请帮忙写个把相同长度线段的图元名处理成一个表

434939575

请帮忙写个把相同长度线段的图元名处理成一个表。多种长度则多个表，对表这种处理还是不行。太难了。

xyp1964

2. ;; tt(相同长度线段图元处理成表)
   
3. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/Qh7rDf4Y2xwYN（提取码：06ee）
   
4. ;; LSP编程、e派工具箱群：24942984
   
5. (defun c:tt ()
   
6.   (xyp-Start)
   
7.   (setq i -1)
   
8.   (setq        ss  (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
   
9.         lst (xyp-Ss2List ss)
   
10.         lst (mapcar '(lambda (x) (list (xyp-CurveLength x) x)) lst)
    
11.         lst (xyp-count1 lst)
    
12.   )
    
13.   (princ lst)
    
14.   (xyp-End)
    
15. )

;; tt(相同长度线段图元处理成表)<br /> ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/Qh7rDf4Y2xwYN（提取码：06ee）<br /> ;; LSP编程、e派工具箱群：24942984<br /> (defun c:tt ()<br />   (xyp-Start)<br />   (setq i -1)<br />   (setq        ss  (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))<br />         lst (xyp-Ss2List ss)<br />         lst (mapcar '(lambda (x) (list (xyp-CurveLength x) x)) lst)<br />         lst (xyp-count1 lst)<br />   )<br />   (princ lst)<br />   (xyp-End)<br /> )

434939575

xyp1964 发表于 2016-1-6 11:57

感谢院长，出手太快了！