请教lsp执行后显示"引数太多"

p-3-ianlcc

请教lsp执行后显示"引数太多"
我参考网友写的lsp，然后要套用在2016版本的cad中
当我执行后显示"引数太多"的错误讯息，请问是否哪里有错呢？

(defun c:ChgAllStylesToCht()
(defun myerr(m)
(setq *error* olderr)
(princ m)
)
(setq olderr *error* *error* myerr)

(initget 1 “y n")
(if (= “n" (getkword “\n 本程式為從Inventor工程圖轉檔至AutoCAD dwg檔之後，字型轉換需求而設計\n 本程式將對本圖檔之所有字型字體檔更改為romans+chineset，確定執行？ <y/n> “))
(exit)
)
(setq stylst  (list))
(setq stydata (tblnext “style" t)
styname (cdr (assoc 2 stydata))
stylst  (append (list styname) stylst)
)
(while (setq stydata (tblnext “style"))
(setq styname (cdr (assoc 2 stydata))
stylst  (append (list styname) stylst)
)
)
(setq n 0)
(repeat (length stylst)
(chgstyletocht (nth n stylst))
(setq n (+ 1 n))
)
(alert “*** 作業完成 ***")
(setq *error* olderr)
(princ)
)

;—– 程式用到的函式: chgstyletocht() (subrutine program)–

(defun chgstyletocht(stname)
(if (tblsearch “style" stname)
(progn
(command “-style" stname “romans.shx,chineset.shx" 0 1 0 “n" “n" “n")
)
(princ c)
)
)
(princ)

;;

烟盒迷唇

服了你了，双引号怎么能用中文的呢？

muwind

楼上正解，引号问题，还不只一个，你家电脑输入法不太听话啊

p-3-ianlcc

烟盒迷唇 发表于 2020-5-1 07:49
服了你了，双引号怎么能用中文的呢？

了解，謝謝您提醒
我再試著修改看看！