vba选择集过滤器

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

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

x

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

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

' T! P8 A, a' N* H6 \
Dim SS As AcadSelectionSet, filtertype(1) As Integer, filterdata(1) As Variant( E* i& E s" ~6 ?1 }
Set SS = ThisDrawing.SelectionSets.Add("SS") '新建选择集
3 [' T( K% j- b# l6 {$ X) }
filtertype(0) = 0 '对象类型: ]* p+ _. @/ S$ M: j. a
filterdata(0) = "circle" '圆
' Z& A) T% X* u4 A' n: E" {
filtertype(1) = 8 '所在图层
# f A2 S& ]! X# Q% n/ s
filterdata(1) = "circlelay" '楼主给出的图层名4 U/ n9 ~+ t5 c3 v' B( V9 A( o- H
SS.Select acSelectionSetAll, , , filtertype, filterdata '选择方式随意,这里只是举例8 N6 }. H% ^: P( ~1 m ^+ P! k0 M9 O: I
'中间过程略7 c) E- V# _. o3 p6 Z5 \
SS.Delete '删除用过的选择集
( l8 f; R. k" ~

复制代码

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

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

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

通知