|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑
, ^9 o7 J2 i i5 f2 R0 X. J# |0 V$ _0 i( R$ d; G4 |/ ?8 H7 q
设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- 4 d& S- P t; m4 t0 ^/ B+ b3 c
- Sub myss()
9 T9 [, t9 \) w: o2 Y - Dim myslt As AcadSelectionSet
/ W$ L H1 X5 [' I - Dim Filtertype(0 To 4) As Integer, Filterdata As Variant! O: O- |8 n. ^% M( [, N" j
- Set myslt = ThisDrawing.SelectionSets.Add("myslt"
% a C" ~& i8 k6 L) { - Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -44 u' V: B0 L* C" _
- Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"4 Y9 }6 Y( C! T& X% ?
- myslt.SelectOnScreen Filtertype, Filterdata
- p2 ?# g& b( }* e7 M - End Sub: t4 \7 T. g* }) l( e: a
复制代码 不能选取转角标注……
6 R! x$ L! d6 W( p! ?' N
. _ i; N$ j% k& O. c8 F" K请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。
+ p4 q5 f5 H+ w& m# W9 s8 z3 I不甚感激 |
|