|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑
5 n, @' W( M+ v& I1 l: E
9 J* {& {8 q2 K, `设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- 5 q0 y; N3 N# ?7 T6 y! t: w; H% Z" [2 y
- Sub myss()5 Q- A$ h6 y. i
- Dim myslt As AcadSelectionSet: \8 n, x: g2 A) e7 j7 l: J. a. t7 _
- Dim Filtertype(0 To 4) As Integer, Filterdata As Variant. l! O [ h$ ~' A( D3 J" L
- Set myslt = ThisDrawing.SelectionSets.Add("myslt"
: B, h: D% d/ m$ _ - Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -4
- s2 h6 J2 @ J3 R, X6 F - Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"
, a5 f" @" d' z3 s/ e1 P3 I( q - myslt.SelectOnScreen Filtertype, Filterdata
/ z9 D3 n& n) w0 Q& ~ - End Sub2 ]( t4 S! A3 \& C2 v0 u+ O9 A
复制代码 不能选取转角标注……7 W g! N& h+ |' P4 z
; t* U, M& T1 ?" O请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。
' g7 b E& ^! X3 z' w不甚感激 |
|