字型设置问题？

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

运行下列程序后，两种字体实际使用均没有问题，但[字体式样]对话框中[字体名]显示却有问题，心里总不塌实；后来我把"宋体"改为"SimSun.ttf"，把"仿宋_GB2312"改为"SIMFANG.TTF"，结果仿宋体设置没有问题，可宋体设置还是没有显示，请指教。
;;;查询并设置为当前字型
(Defun Set-Style (StyleName StyleHight Stylescale / Textname)
   (cond ((= (strcase Stylename) "STHZ") (setq Textname "宋体"))
((= (strcase Stylename) "FSTHZ") (setq Textname "SIMFANG.TTF"));仿宋_GB2312
   ) ;cond
   (if (= (tblobjname "STYLE" StyleName) nil)
   (progn
   (entmake (list
        '(0 . "STYLE")
   '(100 . "AcDbSymbolTableRecord")
   '(100 . "AcDbTextStyleTableRecord")
   (cons 2    Stylename)
   '(70 . 0)
   (cons 40 Stylehight)    ;字高
   (cons 41 Stylescale)    ;宽度系数
   '(50 . 0.0)    ;旋转角度
   '(71 . 0)    ;生成标志
   (cons 3 Textname)    ;字型名称
   '(4 . "")    ;大字体文件名
   )
   )
   )
   )
   (princ)
)
(Set-Style "STHZ" 0.0 0.65)
(Set-Style "FSTHZ" 0.0 0.65)

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

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

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

你装的是WINDOWS XP 吧,我好像觉得XP里面字体文件"SimSun.ttf"有问题.

字型设置问题？

发表回复

精选推荐