外部参照重新关联问题（
（我正在使用AutoCAD 2000/2002）你好
我有一个问题，我希望得到帮助。我不知道这是否可以做到，所以我不能为董事会提供任何带问题的开始代码。
让我先解释一下我想要实现的目标。
我有成千上万的画需要重新命名。这本身就是一种痛苦，但我会努力克服它。然而，在完成这项任务的过程中，出现了另一个问题。以前附着到主图形的外部参照现在将不会加载，因为它们也已重命名。如果你看我附上的JPG你会看到我指的是什么。
所以……。第一个问题是：
是否可以编写VBA宏来更新文件夹结构中每个主图形的外部参照？（打开每个主图形，并用新的外部参照名称替换初始外部参照名称）
第二个问题是：
如果可以做到这一点，请有人提供尽可能多的信息/代码来完成这项任务吗？
因为我参与编程的时间是如此的零散和有限，我的VBA编程知识有点狭窄，所以我通常需要被引导。
我将尽可能地感谢你的帮助。
非常感谢。
迈克
一个不错的免费重命名程序。。。
http://rename.lupasfreeware.org
可以做到的是，基本上删除旧的外部参照，然后“重新插入”新的外部参照。我们做了一些类似的事情。 不确定，但2002年有参考经理吗？？
启动所有程序Autodesk Autocad 2002 Reference Manager 谢谢borgunit。我可能可以使用该程序来帮助我加快重命名过程。那可以节省我很多时间。
smorales02-我没有看到这样的动物，但谢谢你。 这是一首歌。。。
Private Function GetXrefPath() As String
'------------------------------------------------------------------------------
'
'Returns: XREF drawing path i.e. "SomeDrawing.dwg"
'Caveats: Assuming no nested xrefs and only one per drawing
'------------------------------------------------------------------------------
Dim acXref As AcadExternalReference
Dim acSS As AcadSelectionSet
Dim acBlks As AcadBlocks
Dim acBlk As AcadBlock
Dim acEnt As AcadEntity
Dim sPath As String
Dim sEntType As String
'''''''''''''''''''''''''''''''''''''''
On Error GoTo ErrHandler
sEntType = "INSERT"
Set acSS = GetEntitySS(sEntType)
Set acBlks = ThisDrawing.Blocks
For Each acEnt In acSS
Set acBlk = acBlks(acEnt.Name)
If acBlk.IsXRef Then
Set acXref = acEnt
sPath = acXref.Path
Exit For
End If
Next acEnt
GetXrefPath = sPath
ExitHere:
Exit Function
ErrHandler:
Debug.Print Err.Number, Err.description, "Function 'GetXrefPath' Failed"
End Function
这就是我需要的！！
只有一个问题，你能给我你在这里使用的“GetEntitySS”函数吗？
谢谢！
卢卡·卡波费里
页:
[1]