社区 › AutoLISP/Visual LISP 编程技术 › 求一个函数，关于获取线段上的点坐标

fan_zh 发表于 2014-11-19 14:06:04

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

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

ll_j 发表于 2014-11-19 15:16:42

Lisp自己是有计算功能的，线段上的点就是一个计算问题：
(defun tt(pt1 pt2 n / i l)
(setq i 0
      l (list pt1)
)
(repeat (- n 1)
    (setq i (1+ i)
          l (cons
            (mapcar '(lambda(x y) (* i (/ (- y x) n 1.0))) pt1 pt2)
            l
            )
    )
)
(reverse (cons pt2 l))
)

fan_zh 发表于 2014-11-19 17:25:30

感谢楼上大侠，已解决

查看完整版本: 求一个函数，关于获取线段上的点坐标