请问如何剔除选择集里的某些图元得到新选择集

peraperson

比如现有选择集ss 请问如何剔除里面的LINE得到新选择集newss?

(ps:选择集ss是现有的 所以不用(ssget (list '(0.....)))这种方法)

自贡黄明儒

(ssdel  e ss)

edata

例子
(setq ss2(SS_REMOVETYPES ss '("LINE")))

1. (defun SS_RemoveTypes ( ss TypeLst / cnt ss1 ssl ename entl en )
   
2. 
   
3. (setq ss1 nil)
   
4. (if (and ss (> (setq ssl (sslength ss)) 0))
   
5. (progn
   
6.         (setq
   
7.                 cnt 0
   
8.                 ss1 (ssadd)
   
9.         )
   
10.         (repeat ssl
    
11.                 (setq
    
12.                         ename (ssname ss cnt)
    
13.                         entl  (entget ename)
    
14.                         en    (LI_item 0 entl)
    
15.                         cnt   (1+ cnt)
    
16.                 )
    
17.                 (if (not (member en TypeLst))
    
18.                         (ssadd ename ss1)
    
19.                 )
    
20.         )
    
21. ))
    
22. 
    
23. (if (and ss1 (> (sslength ss1) 0)) ss1 nil)
    
24. )
    
25. 
    
26. (defun LI_item (n alist)
    
27. 
    
28.         (cdr (assoc n alist))
    
29. )
    

(defun SS_RemoveTypes ( ss TypeLst / cnt ss1 ssl ename entl en )<br /> <br /> (setq ss1 nil)<br /> (if (and ss (> (setq ssl (sslength ss)) 0))<br /> (progn<br />         (setq<br />                 cnt 0<br />                 ss1 (ssadd)<br />         )<br />         (repeat ssl<br />                 (setq<br />                         ename (ssname ss cnt)<br />                         entl  (entget ename)<br />                         en    (LI_item 0 entl)<br />                         cnt   (1+ cnt)<br />                 )<br />                 (if (not (member en TypeLst))<br />                         (ssadd ename ss1)<br />                 )<br />         )<br /> ))<br /> <br /> (if (and ss1 (> (sslength ss1) 0)) ss1 nil)<br /> )<br /> <br /> (defun LI_item (n alist)<br /> <br />         (cdr (assoc n alist))<br /> )<br />

peraperson

谢谢二位 搞定了

chappy0

。。。

chappy0

。。。。。。。。。。。。。。。。。。。。。。。。。。