[编程申请]：单独显示选择的图元（包括块）

xotoo

有没有程序可以单独显示选择的图元或者块？

比如一个图形中有一个圆形，一个矩形，一个直线，一个椭圆，不管这几个图元是不是在一个图层上面，我运行命令后选择圆形，那么系统就把别的图元临时隐藏，可以通过刷新等命令让他们重新显示出来……

也可以先选择圆形，然后运行命令，那么系统也是隐藏别的所有的图元（包括块）

ljttjl

编程思路:单选一个对象,将其放置在新建的一个图层上(如:la),然后关闭除新建图层(la)的所有图层即可.
重新显示其它对象时,可再编一个程序:选择刚才这个对象,然后将放在原图层,再打开所有图层,然后再将新建的图层(la)删除.

xotoo

这个很难实现吗？怎么到现在都没有人出手啊？是不是太简单了，大家都不好意思啊

kmdz

2. 
   
3. (defun c:t1 (/ ss ssx n)
   
4.   (defun *error* (msg)
   
5.     (print msg)
   
6.     (setq ss  nil
   
7.           ssx nil
   
8.           n   nil
   
9.     )
   
10.   )
    
11.   (prompt "\n选择不需要隐藏的图元:")
    
12.   (if (setq ss        (ssget)
    
13.             ssx        (ssget "x")
    
14.       )
    
15.     (progn
    
16.       (repeat (setq n (sslength ss))
    
17.         (ssdel (ssname ss (setq n (1- n))) ssx)
    
18.       )
    
19.       (repeat (setq n (sslength ssx))
    
20.         (redraw (ssname ssx (setq n (1- n))) 2)
    
21.       )
    
22.     )
    
23.   )
    
24. )
    

<br /> (defun c:t1 (/ ss ssx n)<br />   (defun *error* (msg)<br />     (print msg)<br />     (setq ss  nil<br />           ssx nil<br />           n   nil<br />     )<br />   )<br />   (prompt "\n选择不需要隐藏的图元:")<br />   (if (setq ss        (ssget)<br />             ssx        (ssget "x")<br />       )<br />     (progn<br />       (repeat (setq n (sslength ss))<br />         (ssdel (ssname ss (setq n (1- n))) ssx)<br />       )<br />       (repeat (setq n (sslength ssx))<br />         (redraw (ssname ssx (setq n (1- n))) 2)<br />       )<br />     )<br />   )<br /> )<br />

xotoo

谢谢HMDZ，是我想要的东西——谢谢！