liujiping 发表于 2003-7-18 01:00:00

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

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

mccad 发表于 2003-7-18 11:57:00

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

liujiping 发表于 2003-7-18 12:50:00

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

topirol 发表于 2003-7-19 00:48:00

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



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 发表于 2003-7-19 09:23:00

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

xsf 发表于 2003-12-9 12:48:00

obj.update
页: [1]
查看完整版本: [求助]：vba 选择集过虑问题