CAD VBA中bigFontFile如何修改？

tataki

各位好！
6 l1 r/ G  J) ?6 [; ]& x7 }8 y! w请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。
4 H! N4 `  w4 Z- Z2 F6 G* OSub TxtStyle()  '首先创建了选择集
! X% d7 z& o+ e5 H* r    Dim TS As AcadTextStyles
    Set TS = ThisDrawing.TextStyles
0 Q  S  d: p9 j4 e4 L1 _
    For i = 0 To TS.Count - 1
    TS.Item(i).BigFontFile=“”  '把有大字体的都去掉，但是这里错误了
    Next
    sub   

: X! z/ ]6 o% i0 K6 z! l" H4 y在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？
谢谢！
- T" v+ }4 i1 u& Z" p7 Y# O, y

woaishuijia

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