使用 该方法将外部参照绑定到图形会使外部参照成为图形的永久部分,而不再是外部参照文件。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 |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-6-10 18:33
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.