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

ActiveX 开发指南

关于绑定外部参照（VBA/ActiveX）

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

摘要: 使用 Bind 方法将外部参照绑定到图形会使外部参照成为图形的永久部分，而不再是外部参照文件。

使用该方法将外部参照绑定到图形会使外部参照成为图形的永久部分，而不再是外部参照文件。Bind

外部引用的信息将变为块。更新外部参照图形时，绑定外部参照不会更新。此过程将绑定整个图形的数据库，包括其所有从属符号。

依赖符号是命名对象，例如块、标注样式、图层、线型和文本样式。绑定外部参照允许在当前图形中使用外部参照中的命名对象。

该方法只需要一个参数：bPrefixName。如果bPrefixName设置为 TRUE，则外部参照图形的符号名称在当前图形中以 <blockname>$x$ 为前缀，其中 x 是自动递增以避免覆盖现有块定义的整数。如果bPrefixName参数设置为 FALSE，则外部参照图形的符号名称将合并到不带前缀的当前图形中。如果存在重复的名称，AutoCAD 将使用本地图形中已定义的符号。如果不确定图形是否包含重复的符号名称，建议将bPrefixName设置为 TRUE。Bind

绑定外部参照定义

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

Sub Ch10_BindingExternalReference()
 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."
 
 ' Bind the external reference definition
 ThisDrawing.Blocks.Item(xrefInserted.name).Bind False
 MsgBox "The external reference is bound."
 Exit Sub
ERRORHANDLER:
 MsgBox Err.Description
End Sub