fengtie 发表于 2004-3-24 10:24:00

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

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



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


用for each obj in thisdrawing.modelspace


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


请大侠帮忙

subtlation 发表于 2004-3-24 10:32:00

使用选择集更方便些。   Dim fType, fData
   BuildFilter fType, fData, 8, "abc",   
ssetObj.Select acSelectionSetAll , fType, fDataBuildFilter是自定义函数，本站的vba自定义函数里有的。

bluemoon 发表于 2004-3-24 11:28:00

For Each element In group<BR>中 group为对象集合或数组的名称（用户定义类型的数组除外）。


所以一楼的方法不可以


最好就是用二楼的
页: [1]
查看完整版本: 请教：如何选择已知图层上的物体??