|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑 : M; L1 q) q+ q5 Y% l
+ O+ t: s* y- \8 R& ~% A7 U
设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- " H/ A+ q. k! t% B. J5 ]
- Sub myss()+ M5 `+ i2 B9 \+ ^- f9 n
- Dim myslt As AcadSelectionSet7 ^$ {$ E" C2 Q) u. G: ]/ D, A
- Dim Filtertype(0 To 4) As Integer, Filterdata As Variant
1 y O9 H3 P$ W- \8 y( A$ m - Set myslt = ThisDrawing.SelectionSets.Add("myslt"/ w. I/ Q. \7 [* W/ C
- Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -4* J) q$ z* m7 K0 _4 j3 M+ d `
- Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"& @/ a7 g- E3 p% P/ y0 B8 ?. F
- myslt.SelectOnScreen Filtertype, Filterdata6 o& l: g+ d; j4 K3 W3 }7 F- \
- End Sub4 o8 n' D( ~ x: L; b
复制代码 不能选取转角标注……
) X6 E0 c# U3 `6 H/ e4 B3 c% C$ P |1 K e
请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。' D# B r n/ \
不甚感激 |
|