|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑 # x0 S$ z: Q& J7 M& S& a
) [ S5 j2 X7 Q; s; c
设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下
) R, k; Z, `) K) H& S- Sub myss(); D3 R( O) [, Y
- Dim myslt As AcadSelectionSet7 s" J/ m) V: ]- M# @
- Dim Filtertype(0 To 4) As Integer, Filterdata As Variant
+ F( U: h& y& n2 v - Set myslt = ThisDrawing.SelectionSets.Add("myslt"& y4 y9 X8 K3 M; t: ~! f" k
- Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -4' Y ^+ r2 h2 d8 K
- Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>": k" P' b+ h+ O) R
- myslt.SelectOnScreen Filtertype, Filterdata w7 r$ p2 a! ]" \' V2 A: W
- End Sub* `: S" P1 Q3 w7 b
复制代码 不能选取转角标注……2 |/ |. |. ~3 z2 D# A. i. d
) f" r' C- a4 i7 C: G9 n
请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。
3 y- R6 p8 ~- n不甚感激 |
|