[LISP程序]：请各位高手帮忙看一下,我的程序错在哪里?

ywj_82

;;;插入图例
(defun C:tl ()  
  (setq AA (getpoint "\n 请输入图例左下角的位置:"))
(princ
    "\n 请选择图例类型:1水田 2旱地 3桑园 4果园 :"
  )
(initget (+ 1 2 4))
  (setq ss (getint "\n 请输入图例号 : "))   
                        ;(command "layer" "M" "zj" "")

  (cond        ((= ss 1)
         (COMMAND "INSERT"
                  "tlst"
                  AA
                  (rtos kzdxs 2 3)
                  (rtos kzdxs 2 3)
                  ""
         )
        )
        ((= ss 2)
         (COMMAND "INSERT"
                  "tlhd"
                  AA
                  (rtos kzdxs 2 2)
                  (rtos kzdxs 2 2)
                  ""
         )
        )
        ((= ss 3)
         (COMMAND "INSERT"
                  "tlgy"
                  AA
                  (rtos kzdxs 2 2)
                  (rtos kzdxs 2 2)
                  ""
         )
        )
        ((= ss 4)
         (COMMAND "INSERT"
                  "tlsy"
                  AA
                  (rtos kzdxs 2 2)
                  (rtos kzdxs 2 2)
                  ""
         )
        )                                                ;(setq kzdwz (strcat bzd "-"zdh0 ))
                                        ;(SETQ AA (GETPOINT "图例位置: "))
  
  
  (command "regen")
)

LADESIGNER

(rtos kzdxs 2 2) 改成 kzdxs.应直接用数字响应insert命令.
不确定还有其他的问题.