求助，这条命令大家能给解决一下吗

yaokui25

小弟，对lisp不是很了解，这个问题实在是困扰着我
下面这段代码，可以执行的，但是执行后，提示：命令不存在
不知何原因，跪求大侠帮帮小弟

代码如下：
是个图框插入的命令
(defun c:A4()
   (setq mylayer (getvar "clayer"))
   (setq layname1 (substr mylayer 1 2))
   (setq layname2 (strcat layname1 "fromat"))
   (if(setq ed1 (tblsearch "LAYER" layname2))
     (progn
       (setq ed2 (cdr (assoc 70 ed1)))
       (cond
         ((= ed2 0)  (command "layer" "on" layname2 ""))
         ((= ed2 1)  (command "layer" "t" layname2 "on" layname2 ""))
         ((= ed2 4)  (command "layer" "u" layname2 "on" layname2 ""))
         ((= ed2 5)  (progn (command "layer" "t"  str3 "u" layname2 "on" layname2 "")))
       )
    )   
    (setq layname2 "fromat")
   )
   (command "layer" "s" layname2 "")

   (setq pt1 (getpoint "请选择图形左上角:\n"))
   (setq pt2 (getcorner pt1 "请选择图形右下角:\n"))
   (setq disx (abs (- (car pt1) (car pt2))))
   (setq disy (abs (- (cadr pt1) (cadr pt2))))
   (setq acx  (/ disx 270.00))
   (setq acy  (/ disy 128.00))
   (if (> acy acx)
       (setq acx acy)
   )
    (setq acx (*  (fix (+ (* acx 10) 0.9999)) 0.1))
   (setq acc (rtos acx 2 1))
   (setq pt0 (list (/ (+ (car pt1 ) (car pt2) (* (- 0 8) acx)) 2.00)
                   (/ (+ (cadr pt1) (cadr pt2) (* (- 0 23.6) acx)) 2.00)))
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (command "insert"  "A4.dwg" pt0 "x" acx "" "" "" "" "" "" "" "" "" "" ""
           acc  "" "" ""  "" )
   (setvar "osmode" os)
   
)

hao3ren

那一般就是command后面多空格了

yaokui25

hao3ren 发表于 2012-11-2 10:18
那一般就是command后面多空格了

能帮小弟看看嘛？

yaokui25

在线等，有没有人帮小弟看看这个程序啊

yaokui25

hao3ren 发表于 2012-11-2 10:18
那一般就是command后面多空格了

hao3ren  谢谢你的指导，把程序改了一下，好用了