请版主回答的问题（菜鸟免进）

nxy_918

我想把一个CAD文件的所有的TextStyle的Font Name 换成“宋体“以便它在AutoCAD中文显示正常,但是第四行程序出错:Filer error；但是把第四句换成下面语句即可
4  acaddoc1.TextStyles.Item(j).fontFile = "txt"，不过"txt"无法正常显示中文


源程序片断如下：请版主或那位高手指教
......
1  TScount = acaddoc1.TextStyles.Count
2  For j = 0 To TScount - 1
3     acaddoc1.TextStyles.Item(j).fontFile = "SIMSUN.TTF"
4  Next j

mccad

TTF字体因为不在AutoCAD的支持目录下，所以要增加路径给他

nxy_918

mccad

使用其它字体代替时，如C:\WINDOWS\Fonts\SIMYOU.TTF(幼圆体)则可以正常。
在WINXP中，系统已经用simsun.ttc来代替原来的TTF字体，但TTC是可以将几种字体组合在一个文件中，目前还找不到方法来指定TTC中的某一字体。