字型设定有问题

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

我编写了一个字型设定函数，当打开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)
)