vba选择集过滤器

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

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

x

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

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

' r) U+ T6 ~3 B |! T9 w# ?/ u
Dim SS As AcadSelectionSet, filtertype(1) As Integer, filterdata(1) As Variant
/ }& h' H( E. W3 l: z3 {
Set SS = ThisDrawing.SelectionSets.Add("SS") '新建选择集
: ]' Z/ ~! V. d" Q7 |
filtertype(0) = 0 '对象类型- J1 E- u9 N( ^
filterdata(0) = "circle" '圆8 D$ ]6 M- C4 d% `7 r9 D9 {' \
filtertype(1) = 8 '所在图层- u. O; f1 P% P( l
filterdata(1) = "circlelay" '楼主给出的图层名0 g# |* }- g/ g& O2 H+ P
SS.Select acSelectionSetAll, , , filtertype, filterdata '选择方式随意,这里只是举例
+ G9 ~1 A( q' g0 A; k1 O8 K: U4 t- E9 k
'中间过程略/ f+ O2 v9 U- |. Y! Z6 k
SS.Delete '删除用过的选择集 D7 _) I2 g+ K7 L: Q

复制代码

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

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

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

通知