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

AutoCAD 2018 开发者帮助

关于附加外部参照（VBA/ActiveX）

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

附着外部参照会将一个图形（参照文件或外部参照）链接到当前图形。

当图形参照外部参照时，AutoCAD 仅将外部参照定义附着到图形，这与常规块不同，常规块定义和块的内容与当前图形一起存储。AutoCAD 读取参照图形以确定要在当前图形中显示的内容。如果参照文件丢失或损坏，则其数据不会显示在当前图形中。每次打开图形时，AutoCAD 都会从参照文件中加载所有图形和非图形（如图层、线型和文本样式）对象。如果 VISRETAIN 处于打开状态，AutoCAD 将在当前图形中存储任何更新的外部参照相关图层信息。

您可以根据需要附加任意数量的外部参照副本，并且每个副本可以具有不同的位置、比例和旋转。您还可以控制在外部参照中定义的从属图层和线型属性。

若要附加外部参照，请使用以下方法。此方法要求输入要参照的图形的路径和文件名、外部参照在当前图形中使用的名称、插入点、外部参照的比例和旋转信息。该方法返回新创建的对象。AttachExternalReferenceAttachExternalReferenceExternalReference

将外部参照附着到绘图

本示例显示添加外部参照之前和之后当前图形中的所有块。此示例使用在示例目录中找到的 3D House.dwg 文件。如果没有此映像，或者它位于其他目录中，请为变量插入有效的路径和文件名。PathName

Sub Ch10_AttachingExternalReference()
 On Error GoTo ERRORHANDLER
 Dim InsertPoint(0 To 2) As Double
 Dim insertedBlock As AcadExternalReference
 Dim tempBlock As AcadBlock
 Dim msg As String, PathName As String
 
 ' Define external reference to be inserted
 InsertPoint(0) = 1
 InsertPoint(1) = 1
 InsertPoint(2) = 0
 PathName = "C:/Program Files/Autodesk/AutoCAD release/sample/3D House.dwg"
 
 ' Display current Block information for this drawing
 GoSub ListBlocks
 
 ' Add the external reference to the drawing
 Set insertedBlock = ThisDrawing.ModelSpace. _
 AttachExternalReference(PathName, "XREF_IMAGE", _
 InsertPoint, 1, 1, 1, 0, False)
 ZoomAll
 
 ' Display new Block information for this drawing
 GoSub ListBlocks
 Exit Sub
ListBlocks:
 msg = vbCrLf    ' Reset message
 For Each tempBlock In ThisDrawing.Blocks
 msg = msg & tempBlock.Name & vbCrLf
 Next
 MsgBox "The current blocks in this drawing are: " & msg
 Return
 
ERRORHANDLER:
 MsgBox Err.Description
End Sub