vba选择集过滤器

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

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

x

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

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

5 h" L: P+ r/ ^0 y, C+ g! i
Dim SS As AcadSelectionSet, filtertype(1) As Integer, filterdata(1) As Variant
0 c% y r* V" Z
Set SS = ThisDrawing.SelectionSets.Add("SS") '新建选择集* t4 q2 X) N" }' ^, \
filtertype(0) = 0 '对象类型8 E) t5 m5 T+ M6 B
filterdata(0) = "circle" '圆0 X) O) y' O. ?% @* p7 f
filtertype(1) = 8 '所在图层
4 R' w' o! A8 H ~# j
filterdata(1) = "circlelay" '楼主给出的图层名
3 g' c9 j }# [" T, Q! ^8 j
SS.Select acSelectionSetAll, , , filtertype, filterdata '选择方式随意,这里只是举例2 K' z }3 {& y9 X4 V
'中间过程略
" ?) a- S1 x$ O2 L- J
SS.Delete '删除用过的选择集
, \4 T3 b/ E. m& \. X% R- M

复制代码

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

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

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

通知