请教：如何选择已知图层上的物体??

fengtie

已知图层名abc，欲改变该图层上的所有物体obj的颜色怎办？



我用for each obj in thisdrawing.layers("abc")好像是行不通的


用for each obj in thisdrawing.modelspace


                                                                         if obj.layer="abc"                                 又稍显麻烦


请大侠帮忙

subtlation

使用选择集更方便些。

2.    Dim fType, fData
3.    BuildFilter fType, fData, 8, "abc",   
4.   ssetObj.Select acSelectionSetAll , fType, fData

   Dim fType, fData    BuildFilter fType, fData, 8, "abc",      ssetObj.Select acSelectionSetAll , fType, fData

BuildFilter是自定义函数，本站的vba自定义函数里有的。

bluemoon

For Each element In group
中 group为对象集合或数组的名称（用户定义类型的数组除外）。 所以一楼的方法不可以 最好就是用二楼的