[LISP函数]：隱藏還可以這樣的

xjlong547

隱藏所選的實體，再輸入命令，所選實體又重新出現，做圖時真的有用，與大家分享一下

2. (defun c:ying ()
   
3.   (if (not yin)
   
4.     (progn
   
5.       (setq yin (ssget)
   
6.             l 0)
   
7.       (repeat (sslength yin)
   
8.         (setq el (entget (SSNAME yin L))
   
9.               e (cdr (assoc -1 el)))
   
10.         (redraw e 2)
    
11.         (setq L (+ l 1))))
    
12.     (progn
    
13.       (setq l 0)
    
14.       (repeat (sslength yin)
    
15.         (setq el (entget (SSNAME yin L))
    
16.               e (cdr (assoc -1 el)))
    
17.         (redraw e 1)
    
18.         (setq L (+ l 1)))
    
19.       (setq yin nil)
    
20.     )
    
21.   )(princ)
    
22. )

(defun c:ying ()<br />   (if (not yin)<br />     (progn <br />       (setq yin (ssget)<br />             l 0)<br />       (repeat (sslength yin)<br />         (setq el (entget (SSNAME yin L))<br />               e (cdr (assoc -1 el)))<br />         (redraw e 2)<br />         (setq L (+ l 1))))<br />     (progn <br />       (setq l 0)<br />       (repeat (sslength yin)<br />         (setq el (entget (SSNAME yin L))<br />               e (cdr (assoc -1 el)))<br />         (redraw e 1)<br />         (setq L (+ l 1)))<br />       (setq yin nil)<br />     )<br />   )(princ)<br /> )

hhq5085

高手啊 用起来很有效率啊，