CAD VBA中bigFontFile如何修改？

tataki

再次请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工使用st后的替换，我用vba去一次性把这些字体统统给替换掉。
Sub TxtStyle()  '首先创建了选择集
    Dim TS As AcadTextStyles
    Set TS = ThisDrawing.TextStyles

    For i = 0 To TS.Count - 1
    TS.Item(i).BigFontFile=“”  '把有大字体的都去掉，但是这里不会了~~~，我是想把大字体都关闭，不用大字体的
    Next
    sub   

在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？

谢谢！

mikewolf2k

我以前是这么解决这个问题的：
    For I = 0 To ActiveDocument.TextStyles.Count - 1
          ThisDrawing.SendCommand "(command ""_style"" """ & ActiveDocument.TextStyles.Item(I).Name & """ ""黑体"" 0 1.0 0 ""N"" ""N"" ""N"")" & vbCr
    Next I

现在也记不得为什么这么做了……

zzyong00

TS.Item(i).BigFontFile=“”  '这样不行，你定义一个字体样式
set objTS =TS.Item(i)
objts.BigFontFile=......