|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑
8 q+ s% w! U3 T' c2 l+ t$ J/ |8 O; J( m& I
设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- 6 ?' U' E9 [! P: c: \
- Sub myss()
+ E2 L; A8 K5 |2 E: ]- Z8 u. q - Dim myslt As AcadSelectionSet
+ T9 @: y6 K: h' i( T# L - Dim Filtertype(0 To 4) As Integer, Filterdata As Variant& G7 P- E, l; G8 P7 n3 p* G
- Set myslt = ThisDrawing.SelectionSets.Add("myslt"7 G" x' [( v: P- T3 B1 E8 o4 I
- Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -42 d" v5 k. D6 {; T E
- Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"
# T k' y" S0 B - myslt.SelectOnScreen Filtertype, Filterdata3 ` X4 H+ a( p4 a* T/ o
- End Sub
3 j5 G( ~# W r( C, ]; R
复制代码 不能选取转角标注……
. L- Q8 @4 {7 r# @6 ]- q; g$ F5 a. y- ? u. G- m
请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。
( V+ ]2 W+ {4 L+ T' @7 ?不甚感激 |
|