wzh 发表于 2004-6-2 23:21:00

字型设置问题？

运行下列程序后，两种字体实际使用均没有问题，但[字体式样]对话框中[字体名]显示却有问题，心里总不塌实；后来我把"宋体"改为"SimSun.ttf"，把"仿宋_GB2312"改为"SIMFANG.TTF"，结果仿宋体设置没有问题，可宋体设置还是没有显示，请指教。


;;;查询并设置为当前字型 <BR>(Defun Set-Style (StyleName StyleHight Stylescale / Textname)<BR>       (cond ((= (strcase Stylename) "STHZ") (setq Textname "宋体"))<BR>        ((= (strcase Stylename) "FSTHZ") (setq Textname "SIMFANG.TTF"));仿宋_GB2312<BR>       ) ;cond<BR>       (if (= (tblobjname "STYLE" StyleName) nil)<BR>                       (progn<BR>                                       (entmake (list<BR>              '(0 . "STYLE")<BR>               '(100 . "AcDbSymbolTableRecord")<BR>               '(100 . "AcDbTextStyleTableRecord")<BR>                               (cons 2       Stylename)<BR>               '(70 . 0) <BR>                       (cons 40 Stylehight)               ;字高<BR>                       (cons 41 Stylescale)               ;宽度系数<BR>               '(50 . 0.0)                                                                       ;旋转角度<BR>               '(71 . 0)                                                                                       ;生成标志<BR>                       (cons 3 Textname)               ;字型名称<BR>               '(4 . "")                                                                                       ;大字体文件名<BR>                                                       )<BR>                                       )<BR>                       )<BR>       )<BR>       (princ)<BR>)


(Set-Style "STHZ" 0.0 0.65)<BR>(Set-Style "FSTHZ" 0.0 0.65)<BR>

wzh 发表于 2004-6-3 14:32:00

那位帮我看看这段程序存在什么问题？

wmz 发表于 2004-6-7 22:16:00

你装的是WINDOWS XP 吧,我好像觉得XP里面字体文件"SimSun.ttf"有问题.
页: [1]
查看完整版本: 字型设置问题？