[编程申请]：需要一个“只显示”命令

panliang9

我工作时需要处理的图形很复杂，非常需要一个“只显示”命令。

在处理很麻烦的图形时，如果能将当前需要处理的对象只显示在屏幕上，而没有关系的对象让它隐藏起来，是非常有好处的，很最普遍的例子便是抓点时便不会抓到无关对象的点，填充时可以让一些对象隐藏起来，容易计算。

但是AUTOCAD没有这样的命令，尽管AUTOCAD提供了层这样的工具，但前提条件是必须建新层，并且将对象分门别类的放进去，这还是很麻烦，不象三维软件在处理装配时，可以很轻松的选定几个对象，用“只显示”命令就可以将其它对象隐藏掉。

我的同事写了下面的一段小代码，可以用点选的方式选中一个对象，将它隐藏掉，redrawr 的时候又再次显示，据他说这是AUTOCAD中一个函数的功能。但我象，如果在这个函数的基础上，进行加工，也许能实现“只显示”功能。即选中一个或几个对象，使用“只显示”命令，图面上便只有选中的对象，剩下的对象便全部隐藏起来。

非常渴望得到这样的命令，各位大大请帮帮我。


(defun c:d()
  (setq hiog(entsel "\n选择要隐藏的物体:"))
  (setq hisname(cdr (car (entget (car hiog)))))
  (redraw hisname 2)
)

zxq0220

[php]
;xdcad  zxq0220
(DEFUN C:D ()
(SETVAR "CMDECHO" 0)
(IF (AND (PRINC  "\n选择要保留显示的物体:") (SETQ SS (SSGET))) (PROGN
  (COMMAND "SELECT" "ALL" "R" SS "")
  (SETQ SS (SSGET "P"))
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
   (REDRAW (SSNAME SS (SETQ I (1+ I))) 2)
  )
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

eachy

2. (defun c:vvs (/ ss)
   
3.   (vl-load-com)
   
4.   (setvar "cmdecho" 0)
   
5.   (princ "\n选择要保留显示的物体:")
   
6.   (if (setq ss (ssget))
   
7.     (progn
   
8.       (command "select" "all" "r" ss "")
   
9.       (setq ss (ssget "p"))
   
10.       (vla-eval
    
11.         (vlax-get-acad-object)
    
12.         "For Each obj In Thisdrawing.ActiveSelectionSet:obj.Visible = FALSE:Next Obj"
    
13.       )
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:vvs (/ ss)<br />   (vl-load-com)<br />   (setvar "cmdecho" 0)<br />   (princ "\n选择要保留显示的物体:")<br />   (if (setq ss (ssget))<br />     (progn<br />       (command "select" "all" "r" ss "")<br />       (setq ss (ssget "p"))<br />       (vla-eval<br />         (vlax-get-acad-object)<br />         "For Each obj In Thisdrawing.ActiveSelectionSet:obj.Visible = FALSE:Next Obj"<br />       )<br />     )<br />   )<br />   (princ)<br /> )

gysjy

这个功能很有意义。谢谢提出问题的作者，谢谢解答问题的二位高手！

panliang9

非常激动！
谢谢青铜长老ZXQ0220 !
谢谢斑主EACHY,
也谢谢GYSYJ,

这段程序对我非常重要，事实上对于任何一个每天的工作都是在画图的人来说，都是非常的重要。