[求助]解决圆渐变阵列的问题

cpleo

想做个渐变圆阵列的lisp，但是老是出现问题，请高手看看

(defun c:CircleArr()

 (setq Ychange 0)
 (setq CP '(0 0 0))
 (setq Yleth 0)
(while (<= Ychange 8)
  (setq ridus (getpoint "\n请输入圆的半径")
space (getpoint "\n请输入偏移距离")
Times 0
reduce (getpoint "\n请输入递减半径")
X_Cood 0

  )
(setq Yleth (+ Yleth space))

  ( while (<= Times 0)
     (setq X_Cood (+ X_Cood space))
     (setq CP (list X_Cood Yleth 0))
     (setq ridus (- ridus reduce))
     (command "circle" CP ridus)
     (setq Times (+ Times 1))
)
(setq Ychange (+ Ychange 1))
)
)