Lisp显示暂停（键盘和鼠标右键继续）

ll_j

1. 
   
2. (defun  xd::pause2()
   
3.    (princ "\nPress ENTER to continue:")
   
4.    (while (and (/= (setq a(car (grread))) 2)     ;键盘
   
5.                     (/= a 11)                         ;鼠标右键（SHORTCUTMENU＝0）
   
6.                     (/= a 25)                         ;鼠标右键（SHORTCUTMENU≠0）
   
7.             )
   
8.    )
   
9. )
   

<br /> (defun  xd::pause2() <br />    (princ "\nPress ENTER to continue:")<br />    (while (and (/= (setq a(car (grread))) 2)     ;键盘<br />                     (/= a 11)                         ;鼠标右键（SHORTCUTMENU＝0）<br />                     (/= a 25)                         ;鼠标右键（SHORTCUTMENU≠0）<br />             )<br />    )<br /> )<br />

sicky111

这个函数在什么情况下会用到，老大可以举个例子吗？

ll_j

sicky111 发表于 2013-6-14 21:49
这个函数在什么情况下会用到，老大可以举个例子吗？

说起来Lisp很少用到暂停函数的，这一般是用在较多内容需要在文本屏幕显示的时候用的，在需要大段内容显示在文本屏幕时，可以在适当位置插入这种暂停，可以避免屏幕回翻。
之所以贴出这个函数，主要是因为这是while的一个特别用法，就是循环体为nil。

wowan1314

呵呵！ 这个暂停，我有个程序就用到了。 不过程序只是单纯的要求暂停下以便观察。

观察完，再执行后面的删除操作。 所以我当时没想那么多，就直接加了句（getpoint）暂停。

wowan1314

不过后来发现用GETPOINT暂停也挺好，还可以加关键词做点别的事。

XDSoft

wowan1314 发表于 2013-6-14 22:48
不过后来发现用GETPOINT暂停也挺好，还可以加关键词做点别的事。

总有点子你，那把你用GETPOINT暂停并做点什么事的 演示代码贴论坛来啊。

wowan1314

XDSoft 发表于 2013-6-14 23:54
总有点子你，那把你用GETPOINT暂停并做点什么事的 演示代码贴论坛来啊。

源码早发论坛上啦。在我求面域优化的帖子里面。
楼上演示图的程序源码地址

对于面域两两求交集的代码进行优化。
http://bbs.xdcad.net/thread-668425-1-1.html
(出处: 晓东CAD家园-论坛)

XDSoft

wowan1314 发表于 2013-6-15 00:12
源码早发论坛上啦。在我求面域优化的帖子里面。

第一贴，你。

那就找出来来链接，贴这里吧。你找的快。

XDSoft

LL-J,看到你的头像，格外亲切，还有大图吗，贴上论坛吧。

czcxxx_01

{:soso_e160:}{:soso_e156:}{:soso_e179:}

jsrlibao

在需要的时候，这个确实挺好用。