社区 › AutoLISP/Visual LISP 编程技术 › 贡献隐藏、显示所有标注的程序，求镶套块中对象显示程序

panliang9 发表于 2023-4-15 15:31:45

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

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

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

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

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

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

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

lidaxiu 发表于 2023-4-15 16:09:02

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

panliang9 发表于 2023-4-15 16:12:22

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


行了，太感谢了！！！

lxl217114 发表于 2023-4-15 17:17:36

本帖最后由 lxl217114 于 2023-4-15 17:21 编辑

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

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

飞雪神光 发表于 2023-4-15 17:24:10

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

斜线符号也是块

lxl217114 发表于 2023-4-16 11:13:19

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

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

lpx530115 发表于 7 天前

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


大佬，这个程序，可以帮忙改为按框选后，局部隐藏或者显示尺寸吗？我现在只在模型内作业，这个对整图处理，图纸多时，会比较慢，谢谢。

查看完整版本: 贡献隐藏、显示所有标注的程序，求镶套块中对象显示程序