PurgeAll メソッド(ActiveX)

ドキュメントから、未使用のブロックや画層など、未使用の名前の付いた参照を除去します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.PurgeAll

object

タイプ: Document

このメソッドが適用されるオブジェクト。

戻り値(RetVal)

戻り値はありません。

注意

このメソッドは、コマンド プロンプトに対して purge と入力して[すべて(A)]オプションを選択し、プロンプト「すべてを名前削除しますか？」に対して y と入力するのと同じです。

このメソッドを使用して削除しない限り、削除後のオブジェクトはドキュメントに残っています。

例

VBA:

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