vba选择集 过滤器

taqqug

请教一下大家，我要用选择集选择比如circlelay层的所有圆，那过器filtertype和filterdata怎么写？filtertype用群组方式-4？请给出代码，谢谢了!

woaishuijia

1. 
   % O! N" W" b" a2 c' G6 L- e( {9 X$ }
2. Dim SS As AcadSelectionSet, filtertype(1) As Integer, filterdata(1) As Variant
   
3. Set SS = ThisDrawing.SelectionSets.Add("SS") '新建选择集
   8 c3 w+ z+ u; o+ Z
4. filtertype(0) = 0 '对象类型
   
5. filterdata(0) = "circle" '圆
   
6. filtertype(1) = 8 '所在图层
   1 V5 l, L% b; |* C- J+ ~, H
7. filterdata(1) = "circlelay" '楼主给出的图层名
   
8. SS.Select acSelectionSetAll, , , filtertype, filterdata '选择方式随意,这里只是举例
   - o+ C6 Y+ x% n# Z# a  e
9. '中间过程略
   . k" f) O: ?$ P
10. SS.Delete '删除用过的选择集
    $ {- a, E4 M' b

复制代码

taqqug

唉,得多加学习呀,看似简单但真正搞起来少一点都不行,太感谢了!!!