显示/隐藏选择集

Free-Lancer

1. (defun XD::SS:Visible (ss mode / el sl)
   
2.   (setq  sl (sslength ss)
   
3.   i  -1
   
4.   )
   
5.   (repeat sl
   
6.     (setq el (entget (ssname ss (setq i (1+ i))))
   
7.     el (if mode
   
8.          (append e '((60 . 1)))
   
9.          (subst '(60 . 0)
   
10.           '(60 . 1)
    
11.           el
    
12.          )
    
13.        )
    
14.     )
    
15.     (entmod el)
    
16.   )
    
17. )

(defun XD::SS:Visible (ss mode / el sl)<br />   (setq  sl (sslength ss)<br />   i  -1<br />   )<br />   (repeat sl<br />     (setq el (entget (ssname ss (setq i (1+ i))))<br />     el (if mode<br />          (append e '((60 . 1)))<br />          (subst '(60 . 0)<br />           '(60 . 1)<br />           el<br />          )<br />        )<br />     )<br />     (entmod el)<br />   )<br /> )