PurgeAll 方法 （ActiveX）
从文档中删除未使用的命名参照，例如未使用的块或图层。 支持的平台：仅限 Windows 返回值 （RetVal）无返回值。 言论此方法等效于在命令提示符下输入“清除”，选择“全部”选项，然后在“清除所有内容”提示符下选择“是”。 已删除的对象将保留在文档中，直到使用此方法清除它们。 例子VBA： Sub Example_PurgeAll()
' This example removes all unused named references from the database
ThisDrawing.PurgeAll
End Sub
可视化 LISP： (vl-load-com)
(defun c:Example_PurgeAll()
;; This example removes all unused named references from the database
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(vla-PurgeAll doc)
)
|
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-10-29 20:18
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.
