求助：lisp语言添加文字样式的问题
本帖最后由 a880110 于 2016-2-15 20:06 编辑小弟在学习lisp的过程中遇到一个棘手问题，请教大神帮忙。
遇到的问题是要自动添加宋体的文字样式，我的代码如下
(defun c:test()
(setvar "cmdecho" 0)
(princ "\n程序运行中若发现问题，请与我联系QQ330839984")
(command "_style" "宋体" "宋体" "0" "0.7" "0" "" "" "");准备字体
(command "_style" "图签字体" "宋体" "0" "0.7" "0" "" "" "")
(setq chklay1(tblsearch "layer" "图纸编号") chklay2(tblsearch "layer" "图纸名称"));准备图层
(if (= chklay1 nil) (command "layer" "n" "图纸编号" "c" "6" "图纸编号" ""))
(if (= chklay2 nil) (command "layer" "n" "图纸名称" "c" "3" "图纸名称" ""))
(dydcl);调用对话框
(juxing)
)
红色部分是用来生成文字样式的，这种方法生成的文字样式是以"宋体.shx"为基础的，我想要的文字样式是“宋体.ttc”即系统字体中的宋体，cad又不认ttc文件，改用ttf也不行，两种效果的区别如下面两图所示。
页:
[1]