|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
" F% o$ q; y( S" X. z
2 k, ^4 H j7 a# Z: t
) v$ d' E2 i( d; s" Y0 E
" V3 G1 g# q2 _: J, n$ J
& ^2 ^! L( p F9 s; h* `* ]现在解决的方法是人工放射块属性，MText字体，用下面代码来格式文件。2 h: Q" k+ c) m( k1 E
! S" u7 z2 d' b0 y6 m G8 ?
5 V+ w& O: e0 {1 j0 [' s太麻烦
' R! s: c% N, K/ `2 A& v2 H. ?5 r3 r
/ n6 f/ M# j5 Q$ ~3 q( H: `
1 f4 c3 h7 _! H4 A
- Private Sub ll3()
2 D4 Z% i, q3 E' E -
8 _' t1 M$ X, ?+ h" C. m -
/ t( d+ M# h9 m- v4 h7 s - Dim Ent As AcadEntity, BlkRef As AcadBlockReference, E() As AcadEntity; q- U' K( S2 E- E: Y
- Dim mTxtEnt As AcadMText, TxtEnt As AcadText, Kk As Integer
7 s. J# u0 i0 a9 m; ^$ _ - For ii = 0 To ThisDrawing.ModelSpace.Count - 13 a1 G/ t! l% C6 w8 S4 u% [& E6 A
- Set Ent = ThisDrawing.ModelSpace.Item(ii)
$ `, I. V$ J! Q! a, e0 ` - Select Case Ent.ObjectName
6 J8 G8 `3 @( E* `6 x2 X, [ - Case "AcDbText"2 m) u0 g) [6 Q3 D# S0 t; \
- Set TxtEnt = Ent
: ]5 d! b- k/ k1 a- |# w - TxtEnt.ScaleFactor = 0.7: W; ~% [+ J9 G# L
-
: F1 h# A! ? B. K& n5 F - End Select
6 c$ G6 ~' _* m$ s4 o' n! e1 z - Next ii
8 f' E" w" P" B2 N, I - End Sub
1 R3 _6 k3 ?( }- K+ t) I
7 Z. N7 r; W: a6 V& s
2 ~1 a0 F: v& [# d# Y! n9 Y |
-
-
a.zip
139.91 KB, 下载次数: 10
|
发表于 2015-10-12 19:53:44
发表于 2015-10-12 22:03:42
