CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 高级绘图和组织技术› 关于使用外部引用（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于分离外部参照（VBA/ActiveX）

2023-1-4 19:30| 发布者: admin| 查看: 436| 评论: 0|来自: AutoCAD

摘要: 可以分离外部参照定义以从图形中完全移除外部参照。

可以分离外部参照定义以从图形中完全移除外部参照。

您还可以擦除单个外部参照实例。分离外部参照定义将移除与该外部参照关联的所有从属符号。如果从图形中拭除外部参照的所有实例，AutoCAD 将在下次打开图形时删除外部参照定义。

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

分离外部参照定义

本示例附加一个外部参照，然后分离该外部参照。此示例使用示例目录中的3D House.dwg文件。如果没有此映像，或者它位于其他目录中，请为变量插入有效的路径和文件名。PathName

Sub Ch10_DetachingExternalReference()
 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/sample/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."
 
 ' Detach the external reference definition
 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