[求助]：vba 选择集过虑问题

liujiping

我写了一段程序（vba)
Dim obj as Object
for each object in ent ‘ENT为选择集
If obj.color=Acred Then '是否为红色
　　　　obj.HighLight(True)　'亮显实体
　　 End IF
NEXT
但红色的直线，不能被亮显。这是什么原因？

mccad

在这里，你随层的颜色没有选择到。因为很多对象的颜色都是随层。

liujiping

小弟刚入门，不知应该怎样改才能达到要求？
请多指教！

topirol

看看行不行，我没有测试过！



Dim obj as Object
dim templayer as string
for each object in ent ‘ENT为选择集
If obj.color=Acred Then '是否为红色
　　　　obj.HighLight(True)　'亮显实体

else

templayer=obj.layer

if (acaddoc.layers.item(templayer).color=Acred) and  (obj.color=acByLayer) then

obj.HighLight(True)　'亮显实体

end if

End IF

NEXT

liujiping

先谢了，我拿来调试一下，看行不行

xsf

obj.update