新手刚学LISP 求助！问题如下：
;;;;;;first function
(
defun cc (cen rad)
(command circle cen rad)
)
;;;;;;;second function
(
DEFUN 2C (CEN RAD)
(COMMAND CIRCLE CEN RAD)
(COMMAND CIRCLE CEN (+ RAD 30))
)
;;;;;;;;third function
(
DEFUN C:2CIRCLE ()
(SETQ CEN (LIST 0 0) RAD 50)
(COMMAND CIRCLE CEN RAD)
(COMMAND CIRCLE CEN (+ RAD 30))
)
;;以上加载后 在auto cad后执行时 没效果
第一个函数执行如下：(cc (list 100 100) 50)
第二个函数执行如下：(2c (list 100 100) 50)
第三个函数执行如下： 2CIRCLE