|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！
0 _9 R# ?; f, E+ H9 O3 w* p请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。
" S+ W, q8 |6 e. `4 dSub TxtStyle() '首先创建了选择集
3 G3 ~* c& Q6 h+ d% A Dim TS As AcadTextStyles6 h% }& A! [5 r4 x% _. U
Set TS = ThisDrawing.TextStyles3 o5 |7 |9 t+ `- O/ F/ u
. R9 _& e) q$ w
For i = 0 To TS.Count - 1
/ @6 w% q% b5 ?* t6 c9 ` TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了4 [, u6 S8 N! U1 G: { L
Next8 h- a1 [. T( n% }
sub
' D! e9 w. a% R2 Z
' s& P3 \/ B7 Y在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？ ?; v" H$ R! y1 g6 V/ T8 Y0 f2 O
谢谢！$ l; l/ }( _, k
/ B4 g( L* a+ g4 l |
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15