[求助]：如何在vba中设置cad的字体为宋体？

ahopera

用vba设置字体，其它字体都好说，找到具体文件就ok了，但这指定宋体的ttc文件后会出错，如果不用sendcommand，有其它方法吗？

azjmjsj

1.Set mytxt = ThisDrawing.TextStyles.Add("mytxt")
   mytxt.fontFile = "c:\windows\fonts\simsun.ttf" '可设置字体文件为宋体
2. Set Stz = ThisDrawing.TextStyles.Add("宋体")
     Stz.SetFont "宋体", False, False, 0, 0
     ThisDrawing.ActiveTextStyle = Stz
注意:使用TTF字体应该使用SetFont。
1.在ACAD2000里,不支持用setFont,只能用FontFile来设置字体，且高宽比不起作用
在ACAD2002及其以上版本里，两种方法均可以，且width能很好的设置
2.对于操作系统也有讲究：在win98里，用FontFile方法设置字体文件名时，宋体的文件名为simsun.ttf,
而在winXp里，这个文件变成了simsun.ttc,但当你如果真正设置成这样：
Object.FontFile="c:\windows\font\simsun.ttc"
汉字却变成了＂？＂号，解决的办法是将Win98的simsun.ttf文件拷入到Windows\Font文件夹，再作如下设置：
Object.FontFile="c:\windows\font\simsun.ttf"
*********************************************************************
西北凡人---www.abofanyi.com/blog