贡献隐藏、显示所有标注的程序，求镶套块中对象显示程序

panliang9

这有一个隐藏、显示所有标注的程序，它可以把所有标注隐藏起来，或者全部显示。
不管这些标注在什么位置，在块里面还是在块外面。

我都不记得这是从哪里找到的程序，没准就是从明经得到的。

现在有一个需求，我需要显示镶套块里隐藏的对象，

图里面有一些镶套块，镶套块有隐藏对象，大家能不能帮我写个程序，可以不用进块编辑。一古脑儿把所有对象显示出来，尤其是镶套块里的对象。

飞雪神光

1. (defun c:dh( / adoc )
   
2.         (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
3.         (setq mode
   
4.                 (cond
   
5.                         ((null mode) 0)
   
6.                         ((boole 6 1 mode)
   
7.                         )
   
8.                 )
   
9.         )
   
10.         (vlax-for blk  (vla-get-Blocks adoc)
    
11.                 (vlax-for obj  blk
    
12.                         (if (And
    
13.                                                 (vlax-property-available-p obj 'Visible)
    
14.                                                 (Wcmatch (Vla-get-ObjectName obj) "AcDbBlockReference")
    
15.                                         )
    
16.                                 (vlax-put obj 'Visible
    
17.                                         (if (zerop mode)
    
18.                                                 0
    
19.                                                 -1
    
20.                                         )
    
21.                                 )
    
22.                         )
    
23.                 )
    
24.         )
    
25.         (vla-regen adoc acAllViewports)
    
26.         (princ)
    
27. )

(defun c:dh( / adoc )<br />         (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />         (setq mode<br />                 (cond<br />                         ((null mode) 0)<br />                         ((boole 6 1 mode)<br />                         )<br />                 )<br />         )<br />         (vlax-for blk  (vla-get-Blocks adoc)<br />                 (vlax-for obj  blk<br />                         (if (And<br />                                                 (vlax-property-available-p obj 'Visible)<br />                                                 (Wcmatch (Vla-get-ObjectName obj) "AcDbBlockReference")<br />                                         )<br />                                 (vlax-put obj 'Visible<br />                                         (if (zerop mode)<br />                                                 0<br />                                                 -1<br />                                         )<br />                                 )<br />                         )<br />                 )<br />         )<br />         (vla-regen adoc acAllViewports)<br />         (princ)<br /> )

lidaxiu

楼主的程序，可以正反用的，不用别人编写，
二次输入命令，标注就显示了

panliang9

飞雪神光 发表于 2023-4-15 15:54

行了，太感谢了！！！

lxl217114

飞雪神光 发表于 2023-4-15 15:54

执行命令以后，不在块内的标注，会隐藏两端的短斜线符号。
块内的标注，会成功隐藏。

飞雪神光

lxl217114 发表于 2023-4-15 17:17
执行命令以后，不在块内的标注，会隐藏两端的短斜线符号。
块内的标注，会成功隐藏。

斜线符号也是块

lxl217114

飞雪神光 发表于 2023-4-15 17:24
斜线符号也是块

是的，短斜线是个块
名称是[ _DIMX ]