请帮忙写个把相同长度线段的图元名处理成一个表
请帮忙写个把相同长度线段的图元名处理成一个表。多种长度则多个表，对表这种处理还是不行。太难了。;; tt(相同长度线段图元处理成表)
;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/Qh7rDf4Y2xwYN（提取码：06ee）
;; LSP编程、e派工具箱群：24942984
(defun c:tt ()
(xyp-Start)
(setq i -1)
(setq ss(ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
lst (xyp-Ss2List ss)
lst (mapcar '(lambda (x) (list (xyp-CurveLength x) x)) lst)
lst (xyp-count1 lst)
)
(princ lst)
(xyp-End)
) xyp1964 发表于 2016-1-6 11:57 static/image/common/back.gif
感谢院长，出手太快了！
页:
[1]