|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！
6 ~: U* b* n( m6 l6 `; J请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。0 v; x4 X6 q/ A* `
Sub TxtStyle() '首先创建了选择集: Y7 K! }, M* ^; b; s
Dim TS As AcadTextStyles
: r' \* I! \. e. `! X7 }) P Set TS = ThisDrawing.TextStyles
% |* I4 Y' Y2 C3 A' G8 a3 w" i( C+ b: w! r, I5 w2 c8 H* S
For i = 0 To TS.Count - 1* g7 ]/ E2 c; L1 ]% `4 M( z
TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了
p8 g/ v% w2 j% Z Next
% t2 _& j1 C# j5 N sub
/ ?( p% J" C- p; z/ F
" W% n i3 w8 F/ {, p* u) i在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？& s% C6 G# g+ }$ |" @6 A' n% e
谢谢！5 \5 a5 Z9 N1 s: T8 a* C
, ^! f& c) V' I+ g3 r+ \( {8 @/ c
|
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15