|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！0 I V1 j, t7 ^' C/ Z
请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。) C1 { S0 H @; X: {
Sub TxtStyle() '首先创建了选择集" W7 j# s4 F8 b1 n
Dim TS As AcadTextStyles' s/ Y( ]/ ^* G) I" ?! j$ W
Set TS = ThisDrawing.TextStyles% n5 Q& }/ e4 @5 H- I7 X
1 R8 |+ I0 }7 c8 @% @* ?% e z2 B
For i = 0 To TS.Count - 1
8 V0 ^+ y5 h/ R0 U2 j$ w4 ?" w TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了- m6 z: y6 P# ]
Next, c8 |, {6 j. [0 z3 e! X
sub 5 i z7 B/ w5 ], _0 t0 `
+ t* o% Y p; K在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？; K1 X8 {/ H, \, @
谢谢！% X! b1 f( C A
+ O: D: G% F/ a* d( f% ~ |
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15