[求助] 重复绘园的lisp程序

qjcpj

如题，如何实现重复绘园，如果用户用“空格键”或“回车键”响应或者用户按下“鼠标右键”时程序静默退出。

ZZXXQQ

(defun c:cc ()
 (while (setq pc (getpoint "\nCenter Point :"))
  (command ".CIRCLE" pc pause)
 )
 (princ)
)

qjcpj

       谢谢版主，程序能重复画圆。如果圆心pc固定不变而画“系列同心圆”，亦即只有第一次输入圆心pc，以后圆心默认pc，当使用“回车键”或使用“鼠标右击”响应时退出，上述程序又该如何修改？

byghbcx

(defun c:cc ()
  (setq pc (getpoint "\n中心点:"))
 (while (setq dis (getdist pc "\r输入半径:"))
  (command ".CIRCLE" pc dis)
 )
 (princ)
)

qjcpj

非常感谢！

byghbcx

可动态显示画园轨迹,一般动态显示要运用GRREAD与GRDRAW联合操作,程序较复杂,
这个利用command的PAUSE可以实现画园的动态显示

2. (defun c:cc ( / pc k e r e1 r1);可动态显示画园轨迹
3.   (setq pc (getpoint "\n中心点:") k t)
4.   (command ".CIRCLE" pc pause)
5. (while k
6.    (setq e (entlast))
7.    (setq r (cdr (assoc 40 (entget e))))
8.    (command ".CIRCLE" pc pause)
9.    (setq e1 (entnext e))
10.    (setq r1 (cdr (assoc 40 (entget e1))))
11.    (if (equal r r1 0.0001) (setq k nil))
12. )
13. (princ)
14. )

(defun c:cc ( / pc k e r e1 r1);可动态显示画园轨迹   (setq pc (getpoint "\n中心点:") k t)   (command ".CIRCLE" pc pause) (while k    (setq e (entlast))    (setq r (cdr (assoc 40 (entget e))))    (command ".CIRCLE" pc pause)    (setq e1 (entnext e))    (setq r1 (cdr (assoc 40 (entget e1))))    (if (equal r r1 0.0001) (setq k nil)) ) (princ) )

claotlaot

没太大的用处吧，这个程序