还要版主回答，你说的早使过了
请版主回答的问题（菜鸟免进）我想把一个CAD文件的所有的TextStyle的Font Name 换成“宋体“以便它在AutoCAD中文显示正常,但是第四行程序程序可通过，不起效果；但是把第四句换成下面语句即可
4acaddoc1.TextStyles.Item(j).fontFile = "txt"，不过"txt"无法正常显示中文
源程序片断如下：请版主或那位高手指教
......
1TScount = acaddoc1.TextStyles.Count
2For j = 0 To TScount - 1
3 acaddoc1.TextStyles.Item(j).fontFile = "c:\winnt\fonts\SIMSUN.TTF"
4Next j
Re: 字体
用SetFont更方便，不用指定字体文件所在的路径，只要系统有注册就行。例如：AcadDoc1.TextStyles.Item(j).SetFont "宋体", 0, 0, 1, 0。试试
我试试，谢了，这论坛里好像还有高手哟！
页:
[1]