Question

LISP 如何获取图元中所有点信息并列表

已知多段线定距等分后，如何获取所有等分点，并将所有点列表，方便下一步操作？lisp语言如何编程，谢谢高手不吝赐教！

Answer 1

用等分函数线的函数，然后保存坐标到一个表就行了。

追问

受累能具体一点么，最好把简单的程序写一下，谢谢

追答

(defun c:tt1( )
(setq dis (getreal"\n请输入等分长度:"))
(princ "\n请选择需要等分的线段：")
(setq obj (vlax-ename->vla-object (car(entsel ))))
(setq len (vla-get-Length obj) n 0)
(repeat (1+ (fix (/ len dis)))
(setq pt1 (vlax-curve-getPointAtDist obj (* dis n)))
(setq listdata(cons pt1 listdata))
(setq n (1+ n))
)
(princ)
)

;;;listdata即为等分点的坐标

Answer 2

(entget (ssname (ssget ) 0))
(ssget ) 取得一个选择集
(ssname (ssget ) 0)根据索引值取出选择集中的对象名称
(entget (ssname (ssget ) 0))取出对象名称的信息列表