求助：lisp语言添加文字样式的问题

a880110

小弟在学习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也不行，两种效果的区别如下面两图所示。