帮忙看看这段代码，提示参数太少

athome

(defun c:a4( / v1 v2 v3 ljmch cl shl bl)
   (setq v1(getvar "osmode"))
   (setq v2(getvar  "cmdecho"))
   (setq v3(getvar "bilpmode"))
   (setvar "osmode" 0)
   (setvar "cmdecho" 0)
   (setvar "bilpmode" 0)
  (setq ljmch(getstring "\n输入零件名称:"))
  (setq cl(getstring "\n输入零件材料："))
  (setq shl (getint "\n输入零件数量："))
  (setq shl(itoa shl))
  (setq bl(getstring "\n输入绘图比例"))
  (command "style" "hz" "gbcgig" "" "" "" "" "" "" "")
  (command "layer" "m" "xixian" ) ;设置图纸边框线
  (command "c" 1)
  (command "limits" "0,0" "210,297")
  (command "zoom" "a")
  (command "line" "0,0" "210,0" "210,297" "c")
  (command "layer" "m" "cuxian" "c" 7 "" "lw" 0.6 "");设置图框
  (command "line" "25,5" "205,5" "205,292" "25，292" "c")
  (command "line" "85,5" "85,27" "205,13" "")
  (command "line" "85,13" "205,13" "")
  (command "line" "100,13" "100,27" "")
  (command "line" "120,13" "120,27" "")
  (command "line" "132,5" "132,27" "")
  (command "line" "162,5" "162,13" "")
  (command "line" "180,5" "180,27" "")
  (command "layer" "m" "xixian")
  (command "line" "85,20" "132,20")
  (command "layer" "m" "wenzi" "c" "5" "" "")
  (command "text" "m" (list 188.5 9) 5 0 "清华大学机械厂")
  (command "text" "m" (list 147 9) 5 0 (strcat"材料" cl))
   (command "text" "m" (list 171 9) 5 0 (strcat"数量" shl))
   (command "text" "m" (list 192.5 9) 5 0 (strcat"比例" bl))
    (command "text" "m" (list 92.5 23.5) 5 0 "制图")
    (command "text" "m" (list 92.5 16.5) 5 0 "校核")
    (command "text" "m" (list 156 20) 10 0 ljmch)
  (setvar "osmode")
  (setvar "cmdecho" v2)
  (setvar "blipmode" v3)
  (princ)
  )

caoyin

  ...

  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
  (setvar "blipmode" v3)
  (princ)
  )

Andyhon

More .....
  (command "layer" "m" "xixian" ) ;设置图纸边框线
  (command "c" 1)
==> 
  (command "c" 1 "" "")

(command "line" "25,5" "205,5" "205,292" "25，292" "c")
===>
(command "line" "25,5" "205,5" "205,292" "25,292" "c")

.....

(command "line" "180,5" "180,27" "")
(command "layer" "m" "xixian")
==>
;; (command "layer" "m" "xixian" "")   ; 重复了