|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑 & H/ `, ` |; y3 F6 N2 T" K
2 `3 [/ u) H+ S设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下
( s" ^ w: D) _$ y- Sub myss()
3 j/ z# c- i, U D+ m1 J q - Dim myslt As AcadSelectionSet0 O- p, Y5 o1 v! E3 ?2 i( ^7 j
- Dim Filtertype(0 To 4) As Integer, Filterdata As Variant' |; W: {0 t& v5 z2 w& c
- Set myslt = ThisDrawing.SelectionSets.Add("myslt"
' V$ H& w/ @& x - Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -4
6 H" n+ k7 B5 G4 }/ d - Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"
! {8 f' d3 G8 m; p5 ? - myslt.SelectOnScreen Filtertype, Filterdata+ m1 z! O3 d% T6 e q$ c
- End Sub1 j) C3 e8 ]0 x8 W4 J; ~. n
复制代码 不能选取转角标注……" ~! h3 m3 ?0 }5 M
# q: u8 l8 U: X; j. p& }! z
请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。2 Q4 T( U- y0 D- e+ r' \- a
不甚感激 |
|