vba选择集过滤器

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

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

x

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

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

1 C+ q2 D0 V, `( s8 q6 v3 H, V
Dim SS As AcadSelectionSet, filtertype(1) As Integer, filterdata(1) As Variant+ [$ I, a* k0 ]+ T
Set SS = ThisDrawing.SelectionSets.Add("SS") '新建选择集
0 k! U; L# D0 Y I) w( J+ f
filtertype(0) = 0 '对象类型) p d% ]: O& Y s% v% D# N. p) N
filterdata(0) = "circle" '圆
+ W. h' X3 J1 C! Z, C1 I P k5 S
filtertype(1) = 8 '所在图层( h0 G2 U/ p- U7 E' p2 U( v: `
filterdata(1) = "circlelay" '楼主给出的图层名
6 x: q N3 v: U
SS.Select acSelectionSetAll, , , filtertype, filterdata '选择方式随意,这里只是举例3 v, J9 n# Z+ f
'中间过程略9 _6 g0 A7 l' Z3 J4 w
SS.Delete '删除用过的选择集+ w" O" `' [$ [3 \+ L/ m& ^/ Q

复制代码

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

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

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

通知