|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑 : v: T8 A, J" W
$ R6 n* u: H3 u5 z d设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- 8 N. g1 Z1 v, j( Y9 N
- Sub myss()) y% L: a9 k7 b, Y% j7 |; @
- Dim myslt As AcadSelectionSet1 F* I: }! G& \% x2 U
- Dim Filtertype(0 To 4) As Integer, Filterdata As Variant
) ?4 D5 n1 V2 T0 g6 I0 |1 S- ?+ i - Set myslt = ThisDrawing.SelectionSets.Add("myslt"" I2 w3 ~$ C. S0 m
- Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -43 X7 w2 O7 d4 j9 K( e
- Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"
( Z" ^/ ^) q3 ?0 N9 T - myslt.SelectOnScreen Filtertype, Filterdata
# U# E$ P+ o9 l( H+ q, e! M, f - End Sub
; a1 \4 K& @3 q- U
复制代码 不能选取转角标注……
; h4 w/ u4 s* f4 z( ^0 X- J' Q& P9 U" R7 H0 x) c4 M
请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。
: t7 t+ R" N# u; m) ^不甚感激 |
|