|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑 " g2 [/ x5 u( S0 J3 k0 M
7 s9 ^+ g/ s4 V
设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- $ i, u" l! ~" |" ?' ~0 @; d
- Sub myss()) y& _+ G. y. c+ j% `
- Dim myslt As AcadSelectionSet
9 \$ W6 z: H( f5 }1 Y/ i8 f - Dim Filtertype(0 To 4) As Integer, Filterdata As Variant
3 j5 N1 h; \+ F6 O L" T* ] - Set myslt = ThisDrawing.SelectionSets.Add("myslt"
' O/ Q' b: A$ l - Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -47 l9 x3 z% V. l. B
- Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"0 H, q9 t% t* m" `" |: ~, a
- myslt.SelectOnScreen Filtertype, Filterdata
* a! [. M2 m0 m" |2 v& F- X& d - End Sub' c) h$ w3 C2 I) M+ N, A' }
复制代码 不能选取转角标注……8 ]" T$ h' \6 m6 d4 Y1 J% H& l+ Q [
; R3 O& n- y5 }& `$ M
请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。
2 g. C0 p7 H9 k3 e8 r不甚感激 |
|