[求助]：请大家帮助，急！

Aixer

请大家帮助，谢谢！
我想将下面的四个函数用一个总的函数对它进行调用，由于初学所以能力有限，希望得到大家的帮助！主要是command命令出错后怎么让他再次进行下一个函数的调用，盼回复！

(defun ct()
  (setvar "cmdecho" 1)
  (command "circle" "0,0" 2);正常输入!
  (command "erase" "all" "");判断是否完成命令，并擦除所画circle!
  (princ"\n")
  (princ "数值输入正常");显示输入正常
  (princ)
  )

(defun ct10()
  (princ"\n测试getpoint后加字符串")
  (princ"\n")
  (command "circle" "abc" 2)
  )

(defun ct30()
  (princ"\n测试getpoint后加序列")
  (princ"\n")
  (command "circle" "(0,0)" 2)
  )

(defun ct51()
  (princ"\n测试getpoint后输入空值")
  (princ"\n")
  (command "circle" "" 2)
  )

*-*5

aeo

(defun test(no)
  (cond((= 1 no)(ct))
          ((= 2 no(ct1))
   ...

li809

什么意思？不明白
能有详细说明吗？
包括以上几的函数的用途

Aixer

主要是将这四个函数结用一个总的函数对它实现调用，可是这四个函数实现起来很难，请大家试试，谢谢了，我有急用！这四个函数主要是测试一下"circle"命令对一些极限情况的返回信息！如果这样一个一个输入太麻烦，我想用一个命令对它实现调用，可以将这四个命令全部执行一遍，因为里面有错误的情况，所以不好让他全部执行一次！大家多帮助！