|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑 " Y7 G% U/ z6 v0 ]9 R7 t
8 u7 N* w. |2 ~/ F F$ w' g
设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- , R( u# U4 ]0 {1 e! n
- Sub myss()
8 r- `/ F X! S& Y0 M$ d - Dim myslt As AcadSelectionSet
; _) w' a! W' H1 ^# q - Dim Filtertype(0 To 4) As Integer, Filterdata As Variant+ }7 ~1 `( x& k2 L' |* ?
- Set myslt = ThisDrawing.SelectionSets.Add("myslt"
* x. v3 R% b. R) ^: J6 v9 Y' Z5 S - Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -4, j( ^# S" p! x8 P
- Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"4 ?% s2 B: \3 u+ t- e
- myslt.SelectOnScreen Filtertype, Filterdata. ^0 x" K7 G# J, s& i
- End Sub b4 J! Z8 A- F
复制代码 不能选取转角标注……
) v% B/ q' T; a2 i) v$ u' Y2 k( E8 d; }5 e% a( I) H
请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。
; {* m. \& f' _& O, ?不甚感激 |
|