[求助][讨论]任意曲线顶点列表
 

[求助][讨论]任意曲线顶点列表
www.dimcax.com
[求助][讨论]任意曲线顶点列表
选择任意曲线得到顶点列表,用lisp
d
请帮忙
d
打个比方,下面是选择一条多段线的例子:
(defun c:getpoints(/ data pos points)
(setq data(entget(car(entsel ))))
(while(setq pos(assoc 10 data))
(setq points(append points(list(cdr pos))))
(setq data(subst '(0 . 0)pos data))
)
points)
d