加深下SSNAMEX的印象

eachy

以前几乎没有用过这个函数，写个小程序加深印象，
按层统计线长

1. (defun c:tt (/ ss lst ll a na)
   
2.   (if (setq ss (ssget '((0 . "*line,arc,circle,ellpise"))))
   
3.     (progn
   
4.       (setq lst (mapcar
   
5.                   '(lambda (x)
   
6.                      (list (cdr (assoc 8 (entget x)))
   
7.                            (vlax-curve-getdistatparam x
   
8.                                                       (vlax-curve-getendparam x)
   
9.                            )
   
10.                      )
    
11.                    )
    
12.                   (mapcar
    
13.                     'cadr
    
14.                     (cdr (reverse (ssnamex ss)))
    
15.                   )
    
16.                 )
    
17.       )
    
18.       (foreach x lst
    
19.         (if ll
    
20.           (if (assoc (car x) ll)
    
21.             (progn
    
22.               (setq a (assoc (car x) ll)
    
23.                     na (list (car x) (+ (cadr x) (cadr a)))
    
24.               )
    
25.               (setq ll (subst
    
26.                          na
    
27.                          a
    
28.                          ll
    
29.                        )
    
30.               )
    
31.             )
    
32.             (setq ll (append
    
33.                        (list x)
    
34.                        ll
    
35.                      )
    
36.             )
    
37.           )
    
38.           (setq ll (list x))
    
39.         )
    
40.       )
    
41.     )
    
42.   )
    
43.   (princ ll)
    
44.   (princ)
    
45. )
    

(defun c:tt (/ ss lst ll a na)<br />   (if (setq ss (ssget '((0 . "*line,arc,circle,ellpise"))))<br />     (progn<br />       (setq lst (mapcar<br />                   '(lambda (x)<br />                      (list (cdr (assoc 8 (entget x)))<br />                            (vlax-curve-getdistatparam x<br />                                                       (vlax-curve-getendparam x)<br />                            )<br />                      )<br />                    )<br />                   (mapcar<br />                     'cadr<br />                     (cdr (reverse (ssnamex ss)))<br />                   )<br />                 )<br />       )<br />       (foreach x lst<br />         (if ll<br />           (if (assoc (car x) ll)<br />             (progn<br />               (setq a (assoc (car x) ll)<br />                     na (list (car x) (+ (cadr x) (cadr a)))<br />               )<br />               (setq ll (subst<br />                          na<br />                          a<br />                          ll<br />                        )<br />               )<br />             )<br />             (setq ll (append<br />                        (list x)<br />                        ll<br />                      )<br />             )<br />           )<br />           (setq ll (list x))<br />         )<br />       )<br />     )<br />   )<br />   (princ ll)<br />   (princ)<br /> )<br />

虽然说这个 ssnamex 不是很高效，在数量不多的情况下写起程序来还是很方便！

/db_自贡黄明儒_

原来我只知道ss是装图元的一个口袋，用ssnamex发现ss内存有如何构成选择的信息。