|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！# Z4 Y8 D) [( d
请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。) h& X$ D1 R, m ]
Sub TxtStyle() '首先创建了选择集7 ]0 p2 L Z* u
Dim TS As AcadTextStyles! z& I, J1 R! [; n7 B
Set TS = ThisDrawing.TextStyles
6 {. f* k' F) H9 G* _+ u9 \ H' G/ k5 `
) Y: d( Q+ x% Q/ N; E( |5 e7 L( L9 w For i = 0 To TS.Count - 1: j; R; l* W8 k6 {- t% t: R
TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了+ A" o% g Q+ q) l( d: P
Next1 V$ v6 U c# d w) N1 s+ h
sub
- @) n0 u& h/ P" W6 v, I# c8 B& H( b- z, s L; s" m& I
在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？
- n/ u6 J4 q; w( s% p) E1 M. M& J谢谢！
, c! Q+ G. x' k$ B
, B2 W/ Y+ b$ H T$ }& O* { |
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15