|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
: z: B, y' b$ n, i8 b% Z, M
/ e" V Q/ C9 L7 M3 H
& d0 d; i8 r' t; n4 ]' F2 A8 w; a( T" k+ _4 |* u; ?
+ v3 b7 f6 g+ O: I5 N现在解决的方法是人工放射块属性，MText字体，用下面代码来格式文件。, b8 @9 h& T7 [! q; E$ ?
# E! _! f# n9 C, X+ J
( d$ n9 ?) k3 v* e [ x
太麻烦& ?- t9 t5 l, Z" i1 q0 n1 ` l8 H
- P& R9 d, ^* u2 I1 q/ v* A
. @2 ~; _( t9 H( A5 u
0 Y3 J! o* c E: e* q- Private Sub ll3()
# v$ m# T! d+ {$ {! d) \ -
* O y2 u: f. {5 _/ W. T7 N2 T -
" x* K. g; F& B4 ~$ ^ - Dim Ent As AcadEntity, BlkRef As AcadBlockReference, E() As AcadEntity
5 a& k) z8 V- ?( l+ C e - Dim mTxtEnt As AcadMText, TxtEnt As AcadText, Kk As Integer
6 ~! `. k% D) X H7 ]1 v - For ii = 0 To ThisDrawing.ModelSpace.Count - 1. o# X* x6 Q/ E2 M( q0 s
- Set Ent = ThisDrawing.ModelSpace.Item(ii)
3 B, q; r- z7 T4 P: ] - Select Case Ent.ObjectName
6 q* U1 ^, R& I. G+ W: R - Case "AcDbText"3 O" _. a. w! {+ m: U
- Set TxtEnt = Ent( S4 H; I6 N% B9 H p
- TxtEnt.ScaleFactor = 0.7
- {* d7 ?4 u u3 v9 K -
6 O5 D; b- _' G: u( T Y - End Select$ n7 a/ e# i: L. T4 _7 x D& A
- Next ii! }: ^' Z. K. H# J
- End Sub
4 ~4 s$ J# ?5 t( o( R% Q
/ v: I7 _3 W# ^2 c3 M6 d4 |4 @' s) X- _4 K4 r7 H% X5 ^ P9 U
|
-
-
a.zip
139.91 KB, 下载次数: 10
|
发表于 2015-10-12 19:53:44
发表于 2015-10-12 22:03:42
