清除所有方法 （ActiveX）

签名

工 务 局：

object.PurgeAll

对象

类型：文档

此方法适用的对象。

返回值（RetVal）

无返回值。

言论

此方法等效于在命令提示符下输入清除，选择“全部”选项，然后在“清除所有内容？”提示下选择“是”。

已删除的对象将保留在文档中，直到使用此方法清除它们。

例子

工 务 局：

Sub Example_PurgeAll()
    ' This example removes all unused named references from the database
    
    ThisDrawing.PurgeAll
    
End Sub

Visual 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)
)