
(defun c:tt()
  (setq pa (getpoint "\n 指定基准点："))
  (setq r (getdist "\n 输入圆半径:"))
  (setq dd (getdist "\n 输入圆间距:"))
  (setq nn (getint "\n 输入圆个数:"))
  (setq cc 1)
  (repeat nn
    (setvar "cecolor" (rtos cc 2 0))
    (command "circle" pa r)
    (setq r (+ r dd))
    (setq cc (1+ cc))
   )
  (setvar "cecolor" "bylayer")
  (prin1)
 )
 