|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
1 W* j& d; u5 ^/ n7 E
' o8 i# \* |/ \& `7 U& I) E5 n& ]
, s2 R6 F+ L0 M
. @$ j. o, _* X+ O# i% r
8 e) K( O- m0 x8 g5 r现在解决的方法是人工放射块属性，MText字体，用下面代码来格式文件。7 l {9 a; A; y9 x8 I2 o$ t
3 w, E; ^7 Z* |8 n+ b* i
+ H6 u0 j% {! `3 O. i+ ~太麻烦
- a* Y: W9 t5 f7 @* C# x+ q) \# w" Y+ h9 m l6 E; |5 P4 K+ T
5 t0 f& J. t2 X4 _' f
. U v8 I" E0 t M7 f- Private Sub ll3()+ M0 L' d3 @5 S9 Y4 C
- , i6 @; W4 P4 I
-
0 k9 W* t3 ]; ^" K& o N# R9 ~4 f& w7 E9 a - Dim Ent As AcadEntity, BlkRef As AcadBlockReference, E() As AcadEntity4 i: G$ _! I' Z% e1 I" W8 U
- Dim mTxtEnt As AcadMText, TxtEnt As AcadText, Kk As Integer
2 C' K8 v! E0 C* u - For ii = 0 To ThisDrawing.ModelSpace.Count - 1 V4 v- F }4 v6 _! k% J
- Set Ent = ThisDrawing.ModelSpace.Item(ii)
' T6 b. e7 I( w6 @ - Select Case Ent.ObjectName0 e7 u1 H7 H" l d& |' ]0 Q8 }2 q
- Case "AcDbText"
3 ]( \4 E! w7 g( | - Set TxtEnt = Ent
W! z! m( R5 \ s% i! Y' @- c' A - TxtEnt.ScaleFactor = 0.7
+ O) R5 [/ A- i( z* a -
& H* w0 J. f6 e7 f4 E2 B. E - End Select4 t, o& ~/ L" p$ f
- Next ii9 V2 i* v _8 j% J, `
- End Sub
& M) |4 T7 p2 T! E2 b/ \9 O
) m" g+ @# A+ ?
. U- A, C$ d9 \# c+ W# l
|
-
-
a.zip
139.91 KB, 下载次数: 10
|
发表于 2015-10-12 19:53:44
发表于 2015-10-12 22:03:42
