|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑
j. z- ` R/ f5 m3 F: g+ w p3 T* d4 S8 J9 v
设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- , u" K, f1 C% h2 p# }/ Z/ R6 |
- Sub myss()
9 b. P/ Y) f5 J8 K& k - Dim myslt As AcadSelectionSet `2 q5 c* B8 z4 z
- Dim Filtertype(0 To 4) As Integer, Filterdata As Variant% y! x5 J! j2 g$ `! \( e& d7 T
- Set myslt = ThisDrawing.SelectionSets.Add("myslt"
$ c; e2 d3 y. c5 t2 ~0 X - Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -4
T0 z4 ^; N( Z+ d) e: z+ ~ - Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"
1 u' K/ `; c, C- C, m - myslt.SelectOnScreen Filtertype, Filterdata t3 V" z& r6 A# j/ W7 I! W, ]; W
- End Sub! p/ C m. [ s2 v3 ?
复制代码 不能选取转角标注……# K4 W R9 w7 f* J, d; j
$ f; O. l; T1 d9 i, _请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。% y7 O2 \$ b. z6 ~5 t$ @4 m, p
不甚感激 |
|