luyu9635 发表于 2010-4-12 18:36:00

[讨论]永不止步的lisp

想要有个这样的程序,就是程序一旦执行就不可以退出,即使不停的按ESC也不退出，或遇到错误就跳过错误部分再往后执行，直到完成,不知有何好方法

ZZXXQQ 发表于 2010-4-12 18:53:00

<p>那程序如果死循环岂不是要用任务管理器中止CAD了！</p>

luyu9635 发表于 2010-4-12 19:15:00

ZZXXQQ发表于2010-4-12 18:53:00static/image/common/back.gif那程序如果死循环岂不是要用任务管理器中止CAD了！

<p>谢谢你的回答,我要的不是死循环，还有别的方法吗</p>

caoyin 发表于 2010-4-12 19:48:00

本帖最后由 作者 于 2010-4-14 1:48:50 编辑 <br /><br /> <p>;直到i到1万</p><p>(defun c:tt (/ AAA I)<br/>&nbsp; (setq I 0)<br/>&nbsp; (defun AAA ()<br/>&nbsp;&nbsp; (if <br/>&nbsp;&nbsp;&nbsp;&nbsp; (vl-catch-all-error-p<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vl-catch-all-apply <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '(lambda ()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while (&lt; I 10000)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ (setq I (1+ I)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (AAA)<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (AAA)<br/>)</p>

zml84 发表于 2011-1-2 08:52:18

楼主意图难料

461045462 发表于 2011-1-2 20:10:09

luyu9635 发表于 2010-4-12 18:36 static/image/common/back.gif
想要有个这样的程序,就是程序一旦执行就不可以退出,即使不停的按ESC也不退出，或遇到错误就跳过错误部分再往 ...

一旦执行就不可以退出,即使不停的按ESC也不退出，或遇到错误就跳过错误部分再往后执行，直到完成
请问楼主：直到完成时指什么？.....

仲文玉 发表于 2011-1-2 20:24:21

461045462 发表于 2011-1-2 20:10 static/image/common/back.gif
一旦执行就不可以退出,即使不停的按ESC也不退出，或遇到错误就跳过错误部分再往后执行，直到完成
请问楼 ...

估计是有什么特别的意思！
可能最终目的是强迫使用者执行他接下来的程序

461045462 发表于 2011-1-2 22:51:36

回复 仲文玉 的帖子

谢谢您的说明
或许可以理解为是那样
页: [1]
查看完整版本: [讨论]永不止步的lisp