如何使用lisp完成下面的设想？

didini

请指教，我想做如下一个程序，可以实现这样的功能，比如说最简单的批量绘制圆： 首先选择圆半径，然后选择圆心，就自动画了，使用一个while就可以画无数个，但是如果想换个半径的时候，就需要重新使用这个命令了，我想可不可以再选择圆心的时候可以使用一个字母，调用更改半径的命令？ 我这样实现的功能，但是总觉得不满意，那位有更好的办法实现这个功能？ (defun c:yuan (/ i j pt r )
(setvar "cmdecho" 0)
(setq i 1)
(while (= i 1)
(setq r (getdist "\n请选择半径长度: "))
(if (/= r nil)
(progn
(setq j 1)
(while (= j 1)
(setq pt (getpoint "\n请选择圆心: "))
(if pt
(command "circle" pt r)
(setq j 0)
)
)
)
(setq i 0)
)
)
(princ)
)

无痕

2. ;| mcir = 灵活定半径画圆---------------by 无痕.2005.4
3. |;
4. (defun c:mcir (/ p)  
5.    (if (not *ms)
6.        (setq *ms (vla-get-ModelSpace(vla-get-activedocument(vlax-get-acad-object))))
7.    )
8.    (while (not *rad)(setq *rad (getdist "\n输入半径:"))) ;;强制初始化半径.
9.    (while (or(not(mapcar 'princ (list "\n当前半径＝" *rad)))
10.          (initget 128)         (setq p (getpoint "\n R 两点定半径 / 直接输入半径值 / 点取圆心 / <退出>:"))
11.    )
12.          (cond
13.              ((listp p) (vla-addcircle *ms (vlax-3d-point p) *rad))
14.              ((= "R" (strcase p))(setq *rad (getdist "\n输入半径:")))
15.              ((> (distof p) 0)(setq *rad (distof p)))
16.          )
17.    )(princ)
18. )

;| mcir = 灵活定半径画圆---------------by 无痕.2005.4 |; (defun c:mcir (/ p)      (if (not *ms)        (setq *ms (vla-get-ModelSpace(vla-get-activedocument(vlax-get-acad-object))))    )    (while (not *rad)(setq *rad (getdist "\n输入半径:"))) ;;强制初始化半径.    (while (or(not(mapcar 'princ (list "\n当前半径＝" *rad)))          (initget 128)         (setq p (getpoint "\n R 两点定半径 / 直接输入半径值 / 点取圆心 / <退出>:"))    )          (cond              ((listp p) (vla-addcircle *ms (vlax-3d-point p) *rad))              ((= "R" (strcase p))(setq *rad (getdist "\n输入半径:")))              ((> (distof p) 0)(setq *rad (distof p)))          )    )(princ) )

didini

多谢！研究研究先！