vba选择集过滤器

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

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

x

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

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

/ \* T$ j. p6 c6 a6 g
Dim SS As AcadSelectionSet, filtertype(1) As Integer, filterdata(1) As Variant. t5 F! g+ p; K! G F
Set SS = ThisDrawing.SelectionSets.Add("SS") '新建选择集
4 o. h& D' ^: _+ O' H. n
filtertype(0) = 0 '对象类型+ P2 }+ P) K. P0 U# i( W4 E6 @ ?
filterdata(0) = "circle" '圆8 p* r& U; E% ]4 I8 D
filtertype(1) = 8 '所在图层+ v) b' @, z+ m, I6 k
filterdata(1) = "circlelay" '楼主给出的图层名3 ~, K' e- [/ r J6 _5 S
SS.Select acSelectionSetAll, , , filtertype, filterdata '选择方式随意,这里只是举例
( b8 j4 ^# n* }6 n& K. ~" ~
'中间过程略: A! |! h8 A1 b$ w J% R* z
SS.Delete '删除用过的选择集% u; U8 }& r8 `, P& P

复制代码

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

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

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

通知