还要版主回答，你说的早使过了

nxy_918

请版主回答的问题（菜鸟免进）
我想把一个CAD文件的所有的TextStyle的Font Name 换成“宋体“以便它在AutoCAD中文显示正常,但是第四行程序程序可通过，不起效果；但是把第四句换成下面语句即可
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 = "c:\winnt\fonts\SIMSUN.TTF"
4  Next j

efan2000

用SetFont更方便，不用指定字体文件所在的路径，只要系统有注册就行。例如：AcadDoc1.TextStyles.Item(j).SetFont "宋体", 0, 0, 1, 0。

nxy_918

我试试，谢了，这论坛里好像还有高手哟！