循环执行命令

Johntosh · 发表于 2022-7-6 17:11:34

是否可以循环执行命令，直到用户退出？

一、 E：用户单击我的DCL框上的按钮。。

.. 活动时。。。

（setq pt（getpoint“\n放置目标笔记…”）
（命令“_.CIRCLE”pt 10）
（命令。。。
（命令“_.TEXT…..递增）

...循环，直到用户逃跑。。。

请协助。

Lee Mac · 发表于 2022-7-6 17:34:37

嗨，约翰，

使用“while”功能：

即

copy


(while
    (/= (setq pt (getpoint "\nPlace your target notes...") ) nil)
    (command "_.CIRCLE" pt 10)
    (command...
    (command "_.TEXT..... with increment
) ; end while