删除Blo中的所有三维实体

Bobzy20 · 发表于 2022-7-6 23:20:14

你好

有谁知道AutoCAD 2012的脚本会删除图形中的所有三维实体，即使它们嵌套在块中？

任何帮助都会很好

谢谢

上下快速移动

Roy_043 · 发表于 2022-7-6 23:45:36

这不能用脚本（*.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)
)

BIGAL · 发表于 2022-7-7 00:10:10

将其添加到（princ）之前，以移除其他固体

copy


(setq ss (ssget "X" (list (cons 0 "3dSolid"))))
(command "erase" ss "")

Bobzy20 · 发表于 2022-7-7 00:29:20

谢谢你们俩的帮助。

[综合讨论] 删除Blo中的所有三维实体

发表回复

精选推荐