vba选择集过滤器

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

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

x

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

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

; U. p9 h' A+ ?: j4 H, B9 W
Dim SS As AcadSelectionSet, filtertype(1) As Integer, filterdata(1) As Variant/ F! t5 i/ ~' W% }5 l
Set SS = ThisDrawing.SelectionSets.Add("SS") '新建选择集
- ^: J6 Z& }9 U+ A2 f4 L G8 O
filtertype(0) = 0 '对象类型
; }2 k! {* ^% N' L
filterdata(0) = "circle" '圆
a. G5 K7 x' S( n
filtertype(1) = 8 '所在图层
$ w0 C0 C+ f& v# r3 O
filterdata(1) = "circlelay" '楼主给出的图层名' V1 H- ?+ P) N5 L( X5 `
SS.Select acSelectionSetAll, , , filtertype, filterdata '选择方式随意,这里只是举例
7 ~& m- r9 V: y k3 b, X( U5 Q
'中间过程略
2 E/ q# @# w( {" w# Q: j% C; d
SS.Delete '删除用过的选择集
3 N( X# g& g( T0 U& g* \

复制代码

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

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

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

通知