同心圓

(defun C:SYCIRCLE()
(setq CT (getpoint "Enter Circle's Center point:"))
(setq I 1)
(setq R (* I 0.25))
(while (<= I 10)
(Command "CIRCLE" CT R)
(setq I (1+ I))
(setq R (* I 0.5))
)
)