概要 - 外部参照をロード解除する(VBA/ActiveX)

外部参照をロード解除するには、Unload メソッドを使用します。

現在の図面で使用されていない参照ファイルをロード解除すると、不必要な図面ジオメトリまたはシンボル テーブル情報を読み込み表示する必要がないので、AutoCAD のパフォーマンスが改善されます。外部参照ジオメトリおよびネストした外部参照は、外部参照が再ロードされるまで現在の図面には表示されません。

外部参照定義をロード解除する

次の例では、外部参照をアタッチしてから、ロード解除します。この例では、Sample フォルダにある 3D House.dwg ファイルを使用します。このイメージが存在しない場合や、別のフォルダにある場合は、変数 PathName に有効なパスおよびファイル名を指定してください。

Sub Ch10_UnloadingExternalReference()
 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:/Program Files/Autodesk/AutoCAD release/3D House.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