循环执行命令
是否可以循环执行命令，直到用户退出？一、 E：用户单击我的DCL框上的按钮。。
.. 活动时。。。
（setq pt（getpoint“\n放置目标笔记…”）
（命令“_.CIRCLE”pt 10）
（命令。。。
（命令“_.TEXT…..递增）
...循环，直到用户逃跑。。。
请协助。 嗨，约翰，
使用“while”功能：
即
(while
(/= (setq pt (getpoint "\nPlace your target notes...") ) nil)
(command "_.CIRCLE" pt 10)
(command...
(command "_.TEXT..... with increment
) ; end while 就这么简单。。。。
谢谢李。 没问题，约翰，
看起来您正在创建一个LISP来放置一些注释，我建议可能使用“and”命令和“while”结合使用
即
这样，LISP需要两个数据输入才能继续，用户可以在“选择点”阶段或“指定文本”阶段退出LISP。
但也许这不是你想要的只是一个建议 ...因此，在将任何内容提交到数据库之前，请确保所有用户条目都在！
我喜欢，再次谢谢。
页:
[1]