vba选择集过滤器

taqqug · 发表于 2009-4-9 12:24:06

您需要登录才可以下载或查看，没有帐号？注册

x

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

woaishuijia · 发表于 2009-4-9 17:02:30

2 V( A: q# t9 q H+ B( Q
Dim SS As AcadSelectionSet, filtertype(1) As Integer, filterdata(1) As Variant
3 {5 I: v. O* G" Q; o
Set SS = ThisDrawing.SelectionSets.Add("SS") '新建选择集
: G* N* c- e8 ]/ O7 T1 n; ]
filtertype(0) = 0 '对象类型
3 P2 ` C I; W
filterdata(0) = "circle" '圆# |3 g. z2 R i' g7 c
filtertype(1) = 8 '所在图层6 l( G0 |+ }1 n3 @3 l. {0 c) G; V4 s0 P6 ]
filterdata(1) = "circlelay" '楼主给出的图层名- A# r/ H9 d* j) j" Q6 ^
SS.Select acSelectionSetAll, , , filtertype, filterdata '选择方式随意,这里只是举例& d" X' h4 y/ s# }
'中间过程略
) [4 Y5 p+ {' z) l2 E4 Z- p
SS.Delete '删除用过的选择集
) o& \. e2 p3 q: B4 l2 D

复制代码

taqqug · 发表于 2009-4-9 21:13:49

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

		自动登录	找回密码
密码			注册

通知