这段代码如何结束

行雲

(setq keylist '(49 50)) ;;;数字健  1   2
(while (/= (setq n (cadr (grread))) 13)
(if (member n keylist)
  (cond
   ((= n 49)(command "rotate" s1 "" pt0 90)) ;;;旋转动作
   ((= n 50)(command "rotate" s1 "" pt0 45))
  )
)
)


进入这段代码后，键盘就被它接管，只能用esc键强行结束，如图：



想在热键(setq keylist '(49 50))调整好方位后，以空格键结束 “控制台” ，因为上面那段代码之后，还有其他代码

Lisphk

13 是回车键
32 是空格键

行雲

多谢楼上，我是想结束上面那几行代码，让程序继续往下读，在旋转45度那行下面加了（（＝ n 13））没实现，请问怎么改呀

Lisphk

行雲 发表于 2016-11-29 21:05

你加的代码是13， 是回车结束循环啊，你想空格结束肯定不行了，你的代码，回车能结束，我测试了。