删除Blo中的所有三维实体
你好有谁知道AutoCAD 2012的脚本会删除图形中的所有三维实体，即使它们嵌套在块中？
任何帮助都会很好
谢谢
上下快速移动 这不能用脚本（*.scr）完成。但是Lisp解决方案是可能的：
(defun c:Test ( / doc)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vla-endundomark doc)
(vla-startundomark doc)
(vlax-for blk (vla-get-blocks doc)
(vlax-for obj blk
(if (= "AcDb3dSolid" (vla-get-objectname obj))
(vla-delete obj)
)
)
)
(vla-endundomark doc)
(princ)
) 将其添加到（princ）之前，以移除其他固体
(setq ss (ssget "X" (list (cons 0 "3dSolid"))))
(command "erase" ss "")
谢谢你们俩的帮助。
页:
[1]