|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！5 ~ V# \7 h/ D3 e4 W2 |
请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。/ g9 k& m( T" m- J: O
Sub TxtStyle() '首先创建了选择集% P( r. }6 o$ y+ p
Dim TS As AcadTextStyles
, ^; X% ~4 F' ] Set TS = ThisDrawing.TextStyles
" j% ]2 ?- r8 A, m3 G, P# }! [1 M+ D+ A0 f6 r
For i = 0 To TS.Count - 1- ]8 u& b5 a7 `8 v0 I
TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了* K1 d5 _4 {* o+ Q7 b! t
Next
0 @8 K [' a, o) X sub # B; ? q) Q5 i t. {
/ _7 O. Y+ R& a1 d7 S+ |: x0 ^; M
在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？
* U7 L) k0 t" e; [, J谢谢！. i4 r5 K* _+ L3 B( K) Y% |# {" @
) T/ X% t( j8 ]7 Y- b+ | |
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15