卸载外部参照

From AutoCAD ActiveX/VBA

previous page next page

重载外部参照

使用外部参照

绑定外部参照

ActiveX/VBA 开发人员手册 > 高级绘图与组织技术 > 使用外部参照 >

卸载外部参照

要卸载外部参照，请使用 Unload 方法。卸载未在当前图形中使用的参照文件时，AutoCAD 的性能会有所提高，因为这样就不必读取和显示不必要的几何图形或符号表信息。加载外部参照之前，不会显示外部参照几何图形和任何外部参照的嵌套的外部参照几何图形。

卸载外部参照定义

本例附着外部参照，然后卸载外部参照。本例使用位于“Sample”目录中的“ 3D House.dwg ”文件。如果没有此图像，或者此图像位于其他目录中，请为 PathName 变量插入有效的路径和文件名。

Sub Ch10_UnloadingExternalReference()

    On Error GoTo ERRORHANDLER

          ' 定义要插入的外部参照
          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 2008/sample/3D House.dwg"
                ' 添加外部参照
          Set xrefInserted = ThisDrawing.ModelSpace. _
                  AttachExternalReference(PathName, "XREF_IMAGE", _
                  insertionPnt, 1, 1, 1, 0, False)
          ZoomAll
          MsgBox "The external reference is attached."
                ' 卸载外部参照定义
          ThisDrawing.Blocks.Item(xrefInserted.name).Unload
          MsgBox "The external reference is unloaded."
          Exit Sub
      ERRORHANDLER:
          MsgBox Err.Description
      End Sub

previous page start next page