CAD AutoLisp 同心圆绘制

(defun C:TT()
	(setvar "cmdecho" 0)
	(setq R (getreal "请输入半径"))
	(setq a (getreal "请输入间距"))
	(setq n (getint "请输入数目"))
	(setq pt (getpoint "请指定圆心点"))
  (setq i 1)

	(repeat n
		(command "circle" pt r)
		(command "change" "L" "" "p" "C" i "")
		(setq r (+ r a))
		(setq i (1+ i))
		(if (= i 255)
			(setq i 1)
		)
	)
	(princ)
)