字型设定有问题

wzh

我编写了一个字型设定函数，当打开STYLE对话框时FSTHZ式样名，在字体名中没有显示，用TEXT命令写字则是宋体字，如果我不用TEXTNAME变量而直接将"仿宋_GB2312"写入则没有问题，可我总不能一个字体写一段程序吧！！！ (Defun Wzh-Set-Style (StyleName StyleHight Stylescale / Textname)
(cond ((= (strcase Stylename "STHZ")) (setq Textname "宋体"))
((= (strcase Stylename "FSTHZ")) (setq Textname "仿宋_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)
)

meflying

看看你的COND,,,(= (...))


=函数后面只有一个参数的情况下都返回T

wzh

(cond ((= (strcase Stylename) "STHZ") (setq Textname "宋体"))
((= (strcase Stylename) "FSTHZ") (setq Textname "仿宋_GB2312"))
) ;cond
竟然出现这种错误，丢人，浪费版主时间