外部参照，可以更改覆盖属性吗？

Matt__W · 发表于 2008-10-16 18:30:54

我需要一种快速的方法来查找图形中的所有外部参照，然后将它们更改为所有覆盖。我还没有找到这种控制可能在哪里。有人能给我指出正确的方向吗？还有，如何让VBA生成外部参照名称的集合
谢谢，亚历克斯

Matt__W · 发表于 2008-10-16 18:47:53

使用lisp或VBA，可能需要拆离并重新附着外部参照。对于C#或VB.NET之类的.NET语言不太确定。可能没有必要。

Matt__W · 发表于 2008-10-16 18:59:37

你可以&#039；t更改附件类型，您必须分离并重新连接。

Matt__W · 发表于 2008-10-16 19:04:07

带着我的一切&#039；我最近一直在读，我想在VBA中做它。我需要收集文件名、文件路径和插入点吗。（我们以1:1的比例进行所有外部参照，并进行旋转。）然后使用文件名分离所有外部参照。然后使用文件名、路径和插入点再次附加为覆盖。这就是基本想法吗？

Matt__W · 发表于 2008-10-16 19:20:35

执行过滤选择集，然后对集上的每个循环执行&nbsp；获取外部参照和插入点的路径/名称，分离，然后附着新的
你能从这里走吗？还是需要帮助？

Matt__W · 发表于 2008-10-16 19:21:37

实际上，几年前我在VBA中写了一些东西来实现这一点，但可能是don 35;039；我再也没有了&nbsp；本人&#039；我会查一下的。

Matt__W · 发表于 2008-10-16 19:57:57

我不能&#039；我没有找到它，所以我很快又做了一次&nbsp；这比它可能要不那么优雅，因为我做了一些快速抄袭和修补其他东西&nbsp；它也仅适用于模型空间外部参照&nbsp；如果它点击了pspace外部参照，它会将其分离并在mspace中重新附着&nbsp；本人&#039；以前有人说过我不应该&#039；t张贴任何代码，除非它&#039；因为I 35; 039；如果这些人真的需要自己付出努力，我会浪费他们的时间，但这并没有经过测试&nbsp；它应该有效&nbsp；如果没有&#039；t、只需稍加调整即可

copy

Public Sub Layover()
 Dim objSelSets As AcadSelectionSets
 Dim objSelSet As AcadSelectionSet
 Dim objOverlay As AcadExternalReference
 Dim intType(0) As Integer
 Dim varData(0) As Variant
 Dim strPath As String
 Dim strName As String
 Dim dblInsPnt(0 To 2) As Double
 Dim objXref As AcadExternalReference
 Dim objEnt As AcadEntity
 Dim objBlk As AcadBlock
 Dim objBlks As AcadBlocks
 Set objBlks = ThisDrawing.Blocks
 Set objSelSets = ThisDrawing.SelectionSets
 For Each objSelSet In objSelSets
   If objSelSet.Name = "GetXrefs" Then
     objSelSets.Item("GetXrefs").Delete
     Exit For
   End If
 Next
 Set objSelSet = objSelSets.Add("GetXrefs")
 intType(0) = 0
 varData(0) = "INSERT"
 objSelSet.Select 5, filtertype:=intType, filterdata:=varData
   For Each objEnt In objSelSet
     Set objBlk = objBlks(objEnt.Name)
     If objBlk.IsXRef Then
       Set objXref = objEnt
       strName = obxref.Name
       strPath = objXref.Path
       dblInsPt = objXref.InsertionPoint
       objBlk.Detach
       Set objOverlay = ModelSpace.AttachExternalReference(strPath, strName, dblInsPnt, 1, 1, 1, 1, True)
     End If
   Next objEnt
End Sub