字型设置问题？

wzh

运行下列程序后，两种字体实际使用均没有问题，但[字体式样]对话框中[字体名]显示却有问题，心里总不塌实；后来我把"宋体"改为"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

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

wmz

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