wzh 发表于 2004-5-22 09:47:00

字型设定有问题

我编写了一个字型设定函数，当打开STYLE对话框时FSTHZ式样名，在字体名中没有显示，用TEXT命令写字则是宋体字，如果我不用TEXTNAME变量而直接将"仿宋_GB2312"写入则没有问题，可我总不能一个字体写一段程序吧！！！



(Defun Wzh-Set-Style (StyleName StyleHight Stylescale / Textname)<BR>       (cond ((= (strcase Stylename "STHZ")) (setq Textname "宋体"))<BR>        ((= (strcase Stylename "FSTHZ")) (setq Textname "仿宋_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>)

meflying 发表于 2004-5-22 10:32:00

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


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

wzh 发表于 2004-5-22 11:44:00

(cond ((= (strcase Stylename) "STHZ") (setq Textname "宋体"))<BR>                                                                                       ((= (strcase Stylename) "FSTHZ") (setq Textname "仿宋_GB2312"))<BR>       ) ;cond<BR>竟然出现这种错误，丢人，浪费版主时间
页: [1]
查看完整版本: 字型设定有问题