CAD VBA中bigFontFile如何修改？

tataki

各位好！
请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。
Sub TxtStyle()  '首先创建了选择集
    Dim TS As AcadTextStyles
    Set TS = ThisDrawing.TextStyles
. t# l8 x  T7 s- M7 l2 l0 z
    For i = 0 To TS.Count - 1
    TS.Item(i).BigFontFile=“”  '把有大字体的都去掉，但是这里错误了
    Next
- A. l& K) x0 j+ i    sub   
. |  {2 C- s+ p" t* Z9 t
$ @0 F2 Q; R' J1 V5 B在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？
谢谢！

woaishuijia

通常可改为“gbcbig.shx”文件全路径