|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！, W' s) L( D% j' `
请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。0 [% U" ? c( d3 {6 n" c
Sub TxtStyle() '首先创建了选择集
, p5 G: y+ a$ m. O: ]: A Dim TS As AcadTextStyles" y: W- c! U3 i
Set TS = ThisDrawing.TextStyles
: W. M, i9 S' j4 U" Z* h7 ^! p; |/ T. r7 s |
For i = 0 To TS.Count - 1
) M1 L6 f: l" V6 y* P8 A3 x TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了
' W3 w- V4 e! p& o! m- m Next* Z: o; `3 n' I- K0 {* c0 b6 b
sub " i! O' K( l- S. Z7 W( \. H
8 W& @4 x5 P l: D; L* B
在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？
, }* a' e9 A/ `/ [, \7 _$ y谢谢！
5 Q- q1 f+ E9 X# I+ K+ {1 j$ x3 ^0 f" z& Y: y* U. k( @2 O' Z) I4 n4 A
|
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15