如何结束循环（通过enter键或其他按键）

chenjieq1990

lisp编写某个while循环的时候，想通过enter键跳出循环，请问有什么方法吗？

比如我用while循环进行多个对象的选择，想通过enter键跳出选择对象，请问如何实现？

fan_zh

grread函数
给你个参考程序

2. (defun c:test()
   
3.    (setvar "cmdecho" 0)
   
4.    (setq en (car (entsel "\n选取一圆: ")))
   
5.    (setq cen1 (getpoint "\n切圆圆心: "))
   
6.    (princ "\n按选键盘任意键可转动切圆，[Enter]结束...")
   
7.    (setq en2 (entlast))
   
8.    (setq k 32)
   
9.    (while (= k 32)
   
10.       (princ "\n按空格键继续，其它键结束")
    
11.           (princ)
    
12.       (command "rotate" en2 "" cen1 10)
    
13.       (setq k (cadr (grread)))
    
14.    )
    
15.    (prin1)
    
16. )

(defun c:test()<br />    (setvar "cmdecho" 0)<br />    (setq en (car (entsel "\n选取一圆: ")))<br />    (setq cen1 (getpoint "\n切圆圆心: "))<br />    (princ "\n按选键盘任意键可转动切圆，[Enter]结束...")<br />    (setq en2 (entlast))<br />    (setq k 32) <br />    (while (= k 32)<br />       (princ "\n按空格键继续，其它键结束")<br />           (princ)<br />       (command "rotate" en2 "" cen1 10)<br />       (setq k (cadr (grread)))<br />    )<br />    (prin1)<br /> )