Unload メソッド(ActiveX)

メニュー グループまたは外部参照をロード解除します。

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

構文と要素

VBA:

object.Unload

object

タイプ: ExternalReference、MenuGroup

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

戻り値(RetVal)

戻り値はありません。

注意

ExternalReference: ExternalReference オブジェクト(外部参照)が図面からロード解除されると、図面を開くのが早くなると同時に使用メモリが少なくなります。ロード解除された外部参照は表示されず、外部参照に従属するシンボル テーブル情報は図面に現れません。しかし、Reload メソッドを使用して外部参照を再ロードすれば情報はすべて復元することができます。

外部参照をロード解除するには、外部参照を定義するブロックをロード解除する必要があります。たとえば、VBA コードの次の行は、変数 xrefInserted に格納されている外部参照をロード解除します。

ThisDrawing.Blocks.Item(xrefInserted.name).Unload

MenuGroup: メニュー グループが図面からロード解除された場合は、グループ内のメニューおよびツールバーへの参照はどれも無効になります。メニュー グループをロード解除する前に、必ずメニュー グループ内のツールバーおよびメニューへのすべての参照を削除するか、NULL に設定してください。

例

VBA:

Sub Example_Unload()
    On Error GoTo ERRORHANDLER
                          
    ' Define external reference to be inserted
    Dim xrefHome As AcadBlock
    Dim xrefInserted As AcadExternalReference
    Dim insertionPnt(0 To 2) As Double
    Dim PathName As String
    insertionPnt(0) = 1
    insertionPnt(1) = 1
    insertionPnt(2) = 0
    PathName = "c:/AutoCAD/sample/City map.dwg"
    
    ' Add the external reference
    Set xrefInserted = ThisDrawing.ModelSpace. _
            AttachExternalReference(PathName, "XREF_IMAGE", _
            insertionPnt, 1, 1, 1, 0, False)
    ZoomAll
    MsgBox "The external reference is attached."
    
    ' Unload the external reference definition
    ThisDrawing.Blocks.Item(xrefInserted.name).Unload
    MsgBox "The external reference is unloaded."
    Exit Sub
ERRORHANDLER:
    MsgBox Err.Description
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_Unload()
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
                         
    ;; Define external reference to be inserted
    (setq insertionPnt (vlax-3d-point 1 1 0)
          pathName (findfile ".\\Sample\\Sheet Sets\\Architectural\\Res\\STAIR1.dwg"))
    
    ;; Add the external reference to the block
    (setq modelSpace (vla-get-ModelSpace doc))  
    (setq xrefInserted (vla-AttachExternalReference modelSpace pathName "XREF_IMAGE" insertionPnt 1 1 1 0 :vlax-false))
    (vla-ZoomAll acadObj)
    (alert "The external reference is attached.")
    
    ;; Unload the external reference definition
    (vla-Unload (vla-Item (vla-get-Blocks doc) "XREF_IMAGE"))
    (vla-Regen doc :vlax-true)
    (alert "The external reference is unloaded.")

    ;; Reload the external reference definition
    (vla-Reload (vla-Item (vla-get-Blocks doc) "XREF_IMAGE"))
    (alert "The external reference is reloaded.")
)