模型或图纸空间中的外部参照？

cadpro · 发表于 2008-7-13 03:23:25

嗨，
如何在vba中找出外部参照是否插入模型空间或纸张空间？
谢谢

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

fixo · 发表于 2008-7-13 05:59:33

猜你需要检查xref的'OwnerID'，
然后借助
'ObjectIdToObject'函数
~'J'~获取所有者

CadRover · 发表于 2008-7-21 03:42:27

Cadpro
你不能通过观察来判断吗？
也许在外部参照管理器中？
您是否正在尝试执行某些特定操作？
加元

cadpro · 发表于 2008-7-23 13:13:28

如何选择外部参照？

fixo · 发表于 2008-7-24 04:03:19

我正在尝试更改绘图中所有xrefs的颜色，除了插入到纸张空间中的xrefs。
谢谢

cadpro · 发表于 2008-7-24 07:18:18

不确定它是否能正确工作
只是在没有编辑器的情况下盲目编写的
所以您需要广泛地测试它代码0]
~'J'~

cadpro · 发表于 2008-7-24 10:50:47

我也是这么想的。如果您正在处理非常大的图形，可以使用过滤选择集来选择模型空间外部参照，但是对于正常大小的图形，这样做应该不会对性能造成太大影响。如果需要更改该外部参照中的图层颜色，可以使用oxref的名称并在图层间循环。

cadpro · 发表于 2008-10-27 04:20:19

那没用！我不会更改外部参照层的颜色。

cadpro · 发表于 2008-10-27 12:28:57

因为很明显你很着急，我会再添加一些。只需在这个窗口中键入它，因此可能需要一些调整。

copy

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

CadRover · 发表于 2008-10-27 12:33:29

实际上，这可能需要设置为真实的颜色，而不是颜色。

模型或图纸空间中的外部参照？

发表回复

精选推荐