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

liujiping

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

lijiao

最初由 liujiping 发布
[B]我写了一段程序（vba)
Dim obj as Object
for each  object  in ent    ‘ENT为选择集
If obj.color=Acred   Then  '是否为红色
　　　　obj.HighLight(True)　'亮显实体
　　 End IF
NEXT
但红色的直线?.. [/B]

应该是：
obj.HighLight ＝ True

liujiping

这样还是不行，据说是颜色随层的原因。

efan2000

的确是颜色随层的原因，这时应该加上一个条件，即判断对象所在的图层的颜色是不是红色的，对象的颜色是不是设置为随层的如果都满足时将其设置为高亮即可。