CAD VBA中bigFontFile如何修改？
再次请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有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属性，也就是不再需要大字体，我该如何设置？
谢谢！
我以前是这么解决这个问题的：
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
现在也记不得为什么这么做了……
TS.Item(i).BigFontFile=“”'这样不行，你定义一个字体样式
set objTS =TS.Item(i)
objts.BigFontFile=......
页:
[1]