CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2020 开发者帮助 › 查看内容

AutoCAD 2020 开发者帮助

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

2024-5-18 18:19| 发布者: admin| 查看: 80| 评论: 0|原作者: admin|来自: AutoCAD

使用该方法将外部参照绑定到图形将使外部参照成为图形的永久部分，而不再是外部参照文件。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