模型或图纸空间中的外部参照？
嗨，如何在vba中找出外部参照是否插入模型空间或纸张空间？
谢谢
**** Hidden Message ***** 猜你需要检查xref的'OwnerID'，
然后借助
'ObjectIdToObject'函数
~'J'~获取所有者
Cadpro
你不能通过观察来判断吗？
也许在外部参照管理器中？
您是否正在尝试执行某些特定操作？
加元 如何选择外部参照？ 我正在尝试更改绘图中所有xrefs的颜色，除了插入到纸张空间中的xrefs。
谢谢 不确定它是否能正确工作
只是在没有编辑器的情况下盲目编写的
所以您需要广泛地测试它代码0]
~'J'~ 我也是这么想的。如果您正在处理非常大的图形，可以使用过滤选择集来选择模型空间外部参照，但是对于正常大小的图形，这样做应该不会对性能造成太大影响。如果需要更改该外部参照中的图层颜色，可以使用oxref的名称并在图层间循环。 那没用！我不会更改外部参照层的颜色。 因为很明显你很着急，我会再添加一些。只需在这个窗口中键入它，因此可能需要一些调整。
Sub ChXrefColor()
Dim oEnt As AcadEntity
Dim oXRef As AcadExternalReference
Dim i As Integer
Dim col As Integer
Dim oLays as acadlayers
dim oLay as acadlayer
dim sLay as string
set olays as thisdrawing.layers
col = CInt(InputBox(vbCrLf & "Enter color number: ", "XRef Color", 121))
For Each oEnt In ThisDrawing.ModelSpace
If TypeOf oEnt Is AcadExternalReference Then
Set oXRef = oEnt
for each olay in olays
if left(olay.name, len(oxref.name)) = oxref.name then
olay.color = col
end if
next olay
End If
Next oent
End Sub
实际上，这可能需要设置为真实的颜色，而不是颜色。
页:
[1]
2