|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑 3 a$ o) [4 Q9 |3 O
+ |( s" C1 j. E: ^% S
设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- ( }; b9 P( G: D" k' g) v
- Sub myss()
# p; ^' I/ c3 q9 m - Dim myslt As AcadSelectionSet
% \# [$ D& \' ]) @ - Dim Filtertype(0 To 4) As Integer, Filterdata As Variant0 Z4 {$ Z. D1 l2 H+ s8 X
- Set myslt = ThisDrawing.SelectionSets.Add("myslt"
: Q; f- r7 @# H+ i0 x4 W" g - Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -44 P4 [6 [8 m* N& K) |' C/ W
- Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"$ ~0 y9 U" j$ y7 y4 i
- myslt.SelectOnScreen Filtertype, Filterdata0 x; K1 g/ Y) S: V" X( `0 p
- End Sub
3 l4 g* g; ~3 s* o+ B3 }! n
复制代码 不能选取转角标注……
4 _" C$ ^ v7 ~- f( K+ J) ]4 u" T: |8 d! p& w3 h; y5 I
请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。; S2 ~# f$ P2 t3 m1 b% X
不甚感激 |
|