[求助]：谁能告诉我这句LSP语言错在那里啊?

sickman

谁能告诉我这句LSP语言错在那里啊?我怎么改都不对啊?
(command "style" "HZ" "仿宋_GB2312" "" "0.707" "0" "n" "n")
要生成一个汉字字体的语言我怎么写都不对啊?

yy5heng

可以运行。这不是生成字体吧，只是设定了一种文字样式而已。

yi.gao

我觉得没错，只是命令最后自动生成的那句提示闹的，无妨大碍。

sickman

(if (= (tblsearch "style" newr) nil)
                (progn
                  (cond                       
                    ((= newr "KT")
                      (command "style" "KT" "楷体_GB2312" "" "0.707" "0" "n" "n"))
                    ((= newr "DXT")
                      (command "STYLE" "DXT" "fsdb_e,fsdb" "0" "0.707" "0"
                               "n" "n" "n"
                      )
                    )
                    ((= newr "HT")
                      (command "style" "HT" "黑体" "" "0.707" "0" "n" "n")
                    )       
                    ((= newr "HZ")
                      (command "style" "HZ" "仿宋_GB2312" "" "0.707" "0" "n""n"))
                    (T
                      (princ (strcat "\n 请用Style命令定义 " newr " 字体 !"))
                    )
                  )
                )
那上面这段代码为什么dxt和ht都能生成!kt和hz就是生成出错啊?什么原因啊!我测试的CAD是2002和14