|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑 + }# |1 U5 \( L9 V {7 r% Y% x- l
" j0 X7 m* u6 ^! O% e5 `+ `% n设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- - X/ T y6 u# q. j
- Sub myss()
3 q* x N( J8 N* ~0 l2 l - Dim myslt As AcadSelectionSet
5 ~/ h# v+ \9 y) v' K - Dim Filtertype(0 To 4) As Integer, Filterdata As Variant8 P5 t+ @9 @! X+ J! y. N; ^8 ]6 E
- Set myslt = ThisDrawing.SelectionSets.Add("myslt"
0 R6 D) g8 C# C V a1 B - Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -4
3 N$ R3 Q1 M5 f; @( Z. _3 Q0 b - Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"
* Q& P9 u; B% a. O; p1 f: c - myslt.SelectOnScreen Filtertype, Filterdata0 I3 C9 L3 L1 ~6 w5 H+ b6 r, ^
- End Sub% S* i2 D" ~6 [5 P$ b, N8 q* T& ] J
复制代码 不能选取转角标注……6 K2 b, n0 s, ?: V8 P# l
I; b' L) }' |! U1 Z( d& @6 y请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。
6 l. M) C2 c# z4 }8 H不甚感激 |
|