|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑
% B6 D+ P( o* W% y# H& ^+ v* _) \' |3 t' q) ^( L
设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- ) }1 r7 P4 }# z4 Q, x! {4 @
- Sub myss()
% d& q& n0 b* w: u! k" D& c - Dim myslt As AcadSelectionSet
2 c& z d5 |" u% y) _ - Dim Filtertype(0 To 4) As Integer, Filterdata As Variant8 W4 P. k% T. z4 `1 T: f
- Set myslt = ThisDrawing.SelectionSets.Add("myslt"
+ R: V- O" x7 A1 n - Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -4. ~# P% Z) X% @
- Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"
4 { W! ^2 n$ G( a1 c/ [ - myslt.SelectOnScreen Filtertype, Filterdata, S8 T' ^$ T( c9 L; [: q7 o+ X
- End Sub
7 f9 I f/ V, _2 c, X
复制代码 不能选取转角标注……
9 p7 D$ g0 o6 I4 V; a* }4 y. J" l& d- c! n/ U" j
请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。8 [, L- ^3 B+ y# ^
不甚感激 |
|