|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！
" z) R7 d F- H* ~6 f' P2 @请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。
1 D% B, Z9 |4 ^+ a5 }7 w6 LSub TxtStyle() '首先创建了选择集$ l/ u+ d7 g8 o, [
Dim TS As AcadTextStyles9 b; @$ N4 p/ Y5 j
Set TS = ThisDrawing.TextStyles
[; n$ |7 `! y% T+ f
# Q* H/ {0 a; } For i = 0 To TS.Count - 1
* G; Q, v% k/ _8 H7 V7 W* p7 G* N TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了, D# U' V4 r; O7 H6 ?
Next# K+ w+ l% z+ i
sub ' p0 ~9 T6 |, o2 | x
) p+ @( e5 p; N2 v3 t在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？
5 z0 z9 o: i7 j, i谢谢！- _$ N9 i+ N/ ~1 R6 C
9 J% j. m) ], \1 q. U8 ]$ [( E j |
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15