|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑
! Q+ g% E- F& X' b2 D. j: |0 r. ]& D
设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下
9 i" \( a6 s* f- Sub myss()
# h0 z: O6 m/ ~' v* e3 N - Dim myslt As AcadSelectionSet5 h" f8 \% p% {4 |/ D
- Dim Filtertype(0 To 4) As Integer, Filterdata As Variant
5 e3 K+ e9 X9 d0 v& A7 `4 ^" |; E5 \ - Set myslt = ThisDrawing.SelectionSets.Add("myslt", ?. V0 O* t* M+ E9 ?. n' X8 |
- Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -4
; z( B; r" S+ C* p% X5 v* j }. c - Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"
0 {7 I. p4 d% f. U- p6 f0 O; |4 Q - myslt.SelectOnScreen Filtertype, Filterdata2 {4 n( U1 v% k
- End Sub) M L9 e9 D+ Y9 a% P
复制代码 不能选取转角标注……
" N3 a4 H m8 l& m% \. W; h7 c
! \6 B: ?; G) L0 I/ h) b请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。
2 J; O: k; d0 j& W+ I不甚感激 |
|