程序重复执行

明天你好 · 发表于 2017-5-12 15:43:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由明天你好于 2017-5-12 15:45 编辑

让一个程序执行后，不要退出，重复运行，按下ESC或者空格或者回车才会退出
如
(defun c:draw()
(command "_.circle" (getpoint) "10")
(c:draw)
(princ)
)

除了上面这样，还有哪些方法呢？我记得好象用while也可以，要怎么写呢？

Lisphk · 发表于 2017-5-12 15:54:57

(while (setq pt (getpoint "\n拾取点<退出>:")) (command ".circle" pt .......)
)

回车或者空格退出循环

ll_j · 发表于 2017-5-12 16:41:50

试试这个：

账号		自动登录	找回密码
密码			立即注册

[研讨] 程序重复执行

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子