|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
, M5 [! r; I8 ~% I( U
4 f, {; `2 s! H: [( ^
, [( J+ J( u# R$ g7 [% }! v B6 Y7 n( c" X
" r0 V) H0 b0 Q4 s f现在解决的方法是人工放射块属性，MText字体，用下面代码来格式文件。
; o0 L$ W1 J) N! b5 b8 @* e% X2 Q% i4 e1 u
' h1 G n* c- F* E' A; k+ ]太麻烦- i% J5 P: w% O: i" F: i
. n- Q4 U3 Y1 ^4 O+ z, \7 J
- J5 l1 c$ W& T- q/ O9 U- ?% U0 ~, K7 ]# U5 i+ S
- Private Sub ll3()
. R% c, {# E$ k7 [" P$ K' O7 d5 G - ' _" o9 R7 X- a0 c* E" t
- 5 m4 ~( L+ p8 B9 I$ i! ^- ?4 F
- Dim Ent As AcadEntity, BlkRef As AcadBlockReference, E() As AcadEntity; r( h" l6 ?6 D
- Dim mTxtEnt As AcadMText, TxtEnt As AcadText, Kk As Integer$ k3 \, p( o$ C) }/ e& x! S
- For ii = 0 To ThisDrawing.ModelSpace.Count - 1
+ K: R. d1 e2 l5 {! W - Set Ent = ThisDrawing.ModelSpace.Item(ii)
; F* a: z7 `$ F, `9 @: Z - Select Case Ent.ObjectName
+ I- O& Z6 V- ~# X' X$ Y - Case "AcDbText"( j% Q8 n; E/ Z5 x* [
- Set TxtEnt = Ent Z9 s0 P3 Z8 ?# X# ]
- TxtEnt.ScaleFactor = 0.7" E9 k4 {' k5 X0 Y, W
-
# c3 G$ v# n+ L" t# p - End Select
1 c2 g! b1 Q6 M0 h - Next ii
; A* G* s5 e. v, t; G - End Sub
u8 ^" T- F9 x |$ ^: A
/ z0 ]& `+ d' J) b( n1 i
) v. r( J! W% e8 u+ ]3 q |
-
-
a.zip
139.91 KB, 下载次数: 10
|
发表于 2015-10-12 19:53:44
发表于 2015-10-12 22:03:42
