|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑
' C5 |) w6 f9 d
' V9 R; G, H1 w* L3 Z# O$ [& ~3 ^设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- 4 O/ C; J, y& |3 Y3 D( _
- Sub myss(), ^% ?6 K# [% j) u7 ]
- Dim myslt As AcadSelectionSet, C/ o5 y7 u( w6 v0 z" g
- Dim Filtertype(0 To 4) As Integer, Filterdata As Variant* J, m; }) t+ p9 M) A( `
- Set myslt = ThisDrawing.SelectionSets.Add("myslt"0 ^1 P2 @% C, q& ~! i- B
- Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -4
8 [6 _) I/ j4 g# i( w; [7 o - Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"% D, o3 m* o/ A" E
- myslt.SelectOnScreen Filtertype, Filterdata- @0 M, T/ q! j1 @
- End Sub
3 b+ ]% | n5 b. ^: E
复制代码 不能选取转角标注……$ C' {9 Q" l: Q& X$ Q) f8 }
' L1 V! q! N% v t" \9 U/ s
请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。4 v" C4 z, ?' N' P$ Q6 \- V M! X% U
不甚感激 |
|