|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑 ' r0 d! H8 D. w. _
! ]- t) v" w2 h! ^6 X
设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- 2 a. y s( E$ c
- Sub myss()6 z/ ~$ s& C- |9 C# a- Y2 N0 g X
- Dim myslt As AcadSelectionSet
6 G% s# u2 N& C8 A; L7 ` - Dim Filtertype(0 To 4) As Integer, Filterdata As Variant
0 c9 q9 d) ^& M1 G - Set myslt = ThisDrawing.SelectionSets.Add("myslt"9 e0 R. ^7 n' e( N! H) S( f3 @/ n
- Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -4
3 Z& K+ p% G' v8 `9 z$ U - Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>" E: a6 \. b8 _8 f4 O
- myslt.SelectOnScreen Filtertype, Filterdata
7 K4 y' y3 p0 K. v+ u - End Sub
$ N! q4 `$ y, g# g0 o
复制代码 不能选取转角标注……
( P# f- e& q- x3 G( Z2 `: p' J0 C& z/ \* u3 ]* ^0 `
请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。9 G- c S8 Z3 l/ ~8 r
不甚感激 |
|