|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 bingdianfeishui 于 2011-5-15 22:07 编辑 . x5 f b) B6 [% P a5 V3 }) t
1 s8 ] A. ^& L5 p! G, |: F设置选择器过滤器时,想过滤转角标注、多行文字、和块,代码段如下- & I* \" O$ O. a& S
- Sub myss()
5 p2 f; ]' f9 a q: a/ w" k - Dim myslt As AcadSelectionSet- b7 w$ O1 s) I# V
- Dim Filtertype(0 To 4) As Integer, Filterdata As Variant
( E, x! a9 k$ Q3 H/ c* ? - Set myslt = ThisDrawing.SelectionSets.Add("myslt"
+ a. m* H$ l2 u5 F' ?& E- [ - Filtertype(0) = -4: Filtertype(1) = 0: Filtertype(2) = 0: Filtertype(3) = 0: Filtertype(4) = -45 i; {4 v+ A) g- j1 K( m
- Filterdata = Array("<OR", "RotatedDimension", "Insert", "MText", "OR>"& q* D/ ]$ l& S' `' Q6 R, f- y, e
- myslt.SelectOnScreen Filtertype, Filterdata
5 w7 z2 P4 h* A/ E5 v% W" i4 d - End Sub4 n( b. E. H. t# N% X
复制代码 不能选取转角标注……
' b" c) U* p# x: [2 J) f7 y
% J ?' F' e2 p7 H. A请教各位高手,转角标注的图元类型用什么表示啊??有没有什么方法或函数能获得图元的类型??在网上查到一个object.entityname的方法不好用,“RotatedDimension”就是用entityname得出来的。, M1 n2 I# k$ q5 T. D0 l+ |' b
不甚感激 |
|