求一个函数，关于获取线段上的点坐标

fan_zh

具体如图，需要返回线段上的点坐标，要求附件

ll_j

Lisp自己是有计算功能的，线段上的点就是一个计算问题：

1. (defun tt(pt1 pt2 n / i l)
   
2.   (setq i 0
   
3.         l (list pt1)
   
4.   )
   
5.   (repeat (- n 1)
   
6.     (setq i (1+ i)
   
7.           l (cons
   
8.               (mapcar '(lambda(x y) (* i (/ (- y x) n 1.0))) pt1 pt2)
   
9.               l
   
10.             )
    
11.     )
    
12.   )
    
13.   (reverse (cons pt2 l))
    
14. )

(defun tt(pt1 pt2 n / i l)<br />   (setq i 0<br />         l (list pt1)<br />   )<br />   (repeat (- n 1)<br />     (setq i (1+ i)<br />           l (cons<br />               (mapcar '(lambda(x y) (* i (/ (- y x) n 1.0))) pt1 pt2)<br />               l<br />             )<br />     )<br />   )<br />   (reverse (cons pt2 l))<br /> )

fan_zh

感谢楼上大侠，已解决