拆离外部参照

From AutoCAD ActiveX/VBA

previous page next page

覆盖外部参照

使用外部参照

重载外部参照

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

拆离外部参照

可以拆离外部参照定义，以便从图形中完全删除外部参照。也可以删除单独的外部参照实例。拆离外部参照定义会删除与该外部参照关联的所有依赖符号。如果从图形中删除所有外部参照的实例，则在下次打开图形时，AutoCAD 会删除外部参照定义。

要拆离外部参照，请使用 Detach 方法。不能拆离嵌套的外部参照。

拆离外部参照定义

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

Sub Ch10_DetachingExternalReference()

    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."
                ' 拆离外部参照定义
          Dim name As String
          name = xrefInserted.name
          ThisDrawing.Blocks.Item(name).Detach
          MsgBox "The external reference is detached."
          Exit Sub
      ERRORHANDLER:
          MsgBox Err.Description
      End Sub

previous page start next page