怎样定义字体

fingerli

我要在一个文字样式中定义字体“宋体”的文字样式怎么办，我怎么找不到这个字体文件，谢谢

fingerli

我用了下面两句，实现不了，请高手指正。 Set Stz = ThisDrawing.TextStyles.Add("Stz")
Stz.fontFile = "C:\WINDOWS.0\Fonts\SimSun.ttf"

雪山飞狐_lzh

搜索一下，以前有的

fingerli

我用了下面的 Set Stz = ThisDrawing.TextStyles.Add("宋体")
Stz.SetFont "宋体", False, False, 0, 0
ThisDrawing.ActiveTextStyle = Stz
解决了单行文字的问题，怎么多行文字是乱码啊？

wmz

再来谈谈VBA字体设置问题.在ACAD2000里,不支持用setFont,只能用FontFile来设置字体，且高宽比不起作用，即object.width的设置等于白搭（也不报告错误）．而在ACAD2002及其以上版本里，两种方法均可以，且width能很好的设置．这是其一；其二，对于操作系统也有讲究：在Ｗin98里，用FontFile方法设置字体文件名时，宋体的文件名为simsun.ttf,而在ＷinXp里，这个文件变成了simsun.ttc,但当你如果真正设置成这样：


Ｏbject.FontFile="c:\windows\font\simsun.ttc"


汉字却变成了＂？＂号，解决的办法是将Win98的simsun.ttf文件拷入到Windows\Font文件夹，再作如下设置：


Ｏbject.FontFile="c:\windows\font\simsun.ttf"

fingerli

我的系统是WinXP，CAD2004，用了SetFont方法，单行文字可以显示汉字，多行文字是乱码（不是“？”）。当我把字体设置语句去掉，在CAD里把字体样式设置为宋体后单行文字和多行文字都可以显示，经检查手动设置的字体样式和VBA设置的字体样式完全相同，为什么VBA设置的不显示多行文字？

fingerli

我找到问题的所在了把：Stz.SetFont "宋体", False, False, 1, 1 谢谢上面两位
就是不知道参数是什么意思