fingerli 发表于 2004-8-2 14:42:00

怎样定义字体

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

fingerli 发表于 2004-8-3 11:40:00

我用了下面两句，实现不了，请高手指正。


Set Stz = ThisDrawing.TextStyles.Add("Stz")<BR>                               Stz.fontFile = "C:\WINDOWS.0\Fonts\SimSun.ttf"

雪山飞狐_lzh 发表于 2004-8-3 11:48:00

搜索一下，以前有的

fingerli 发表于 2004-8-3 12:41:00

我用了下面的


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

wmz 发表于 2004-8-3 14:09:00

再来谈谈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 发表于 2004-8-3 15:46:00

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

fingerli 发表于 2004-8-3 17:34:00

我找到问题的所在了把：Stz.SetFont "宋体", False, False, 1, 1


谢谢上面两位<BR>就是不知道参数是什么意思
页: [1]
查看完整版本: 怎样定义字体