|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑
/ n8 @9 Z! S; Y. j2 X# O& `6 q/ K/ q
设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- 8 i* E9 f6 Q. H2 ?
- Sub myss()
; O: }1 k& q$ ]( \, ` - Dim myslt As AcadSelectionSet7 k ]3 A0 H1 _1 g# [- F& F1 ^
- Dim Filtertype(0 To 4) As Integer, Filterdata As Variant
& H" {/ h9 W# ^0 ?/ I! } - Set myslt = ThisDrawing.SelectionSets.Add("myslt"6 x1 j( T$ T: [ E( l4 P
- Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -46 y7 A+ r% m. [/ C( H5 G3 j; q
- Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"
5 G. @5 r( ^5 L/ R# c - myslt.SelectOnScreen Filtertype, Filterdata
: m1 O9 J# h& v; N8 E# ~5 u- g1 O - End Sub
% _9 N' G( [8 |- l" R' M
复制代码 不能选取转角标注……
2 m' q9 ? g. L: S; N# ?
3 ^6 k, p- _ F请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。+ `$ Z$ V, C C7 G3 I
不甚感激 |
|