[求助]：我的程序前面选择错在哪里各位给个修改

xxming

(defun c:m2m() (initget 128 "1 2")
               (SETQ SL (GETKWORD "\n1:平方米转化为亩、2:亩转化为平方米:  "))
               (IF (= SL 1) m2_mu
                   (if(= SL 2) mu_m2 (exit)
                     
                    )
                )
  )
;平方米转化为亩程序
(defun C:m2_mu()    (setq os (getvar "osmode"))
                  (setq cmdch (getvar "cmdecho"))
                  (setvar "osmode" 0)
                  (setvar "cmdecho" 0)
                  (setq obj (entsel "\n选择数字"))
                  (setq ent (entget(car obj)))
                  (setq pt_base (getpoint "\n插入点"))
                  (if (/=  (cdr(assoc 0 ent)) "TEXT")
                  (progn
                    (alert "你选择类型错误\n请再次选择")
                    (exit)
                    )
                  )  
                    (setq num (cdr(assoc 1 ent)))
                    (setq m2m (* (atof num) 0.0015))
                    (command "text" pt_base "" "" (strcat (rtos m2m 2 2) "亩"))
                 (setvar "osmode" os)
                 (setvar "cmdecho" cmdch)
  (princ))
(prompt "\n平方米转化为亩程序，键入：m2_mu执行-------程序设计：小谢")
(princ)
                 
               
;亩转化为平方米
(defun C:mu_m2()    (setq os (getvar "osmode"))
                  (setq cmdch (getvar "cmdecho"))
                  (setvar "osmode" 0)
                  (setvar "cmdecho" 0)
                  (setq obj (entsel "\n选择数字"))
                  (setq ent (entget(car obj)))
                  (setq pt_base (getpoint "\n插入点"))
                  (if (/=  (cdr(assoc 0 ent)) "TEXT")
                  (progn
                    (alert "你选择类型错误\n请再次选择")
                    (exit)
                    )
                  )  
                    (setq num (cdr(assoc 1 ent)))
                    (setq m2m (/ (* (atof num) 10000) 15))
                    (command "text" pt_base "" "" (strcat (rtos m2m 2 2) "平方米"))
                 (setvar "osmode" os)
                 (setvar "cmdecho" cmdch)
                 (princ))
(prompt "\n亩转化为平方米程序，键入：mu_m2执行-------程序设计：小谢")
(princ)

zhang8755

主程序应该为下面这样,主要是少了引号
(defun c:m2m ()
  (initget 128 "1 2")
  (SETQ SL (GETKWORD "\n1:平方米转化为亩、2:亩转化为平方米: "))
  (IF (= SL "1")
        (c:m2_mu)
        (if        (= SL "2")
          (c:mu_m2)
          (exit)
        )
  )
)

xxming

谢谢楼上的，我是初学者，以后请多多指教，