如何让一个 lsp （或cad）的命令重复运行，按空格或esc退出？

zhynt · 发表于 2011-6-12 20:05

这是帮助原文：
可以在宏中使用前导星号 (*) 来重复执行命令，直到选择另一个命令。

命令一经选定，可能要在转至另一命令之前执行多次。在宏中，可以重复执行一个命令，直到选择另一个命令。但不能使用此功能选择选项。

如果宏以 *^C^C 开头，该命令将会重复执行，直到通过在键盘上按 ESC 键或选择另一个命令来终止重复。

注意不要在以 *^C^C 字符串开头的宏中使用 ^C（取消）；否则将取消重复。
以下样例中的宏将重复执行命令：

*^C^Cmove Single
*^C^Ccopy Single
*^C^Cerase Single
*^C^Cstretch Single Crossing
*^C^Crotate Single
*^C^Cscale Single
这些样例中的每个宏都将启动一个命令，然后提示用户选择一个对象。系统将显示完成该命令所需的其他所有提示，然后结束命令并再次启动该命令。

注意对于图像平铺菜单，则不能在宏中重复执行命令。

chengx2000 · 发表于 2011-6-12 20:28

回复 669423907 的帖子

恕我愚钝，楼主的这段代码中的“bpoly”是个什么函数，怎么在《AutoLISP函数》中都查不到啊！请楼主指教。

669423907 · 发表于 2011-6-12 20:48

回复 chengx2000 的帖子

不必谦虚，其实我也不懂，都是别人的程序啦！

669423907 · 发表于 2011-6-12 21:15

回复 zhynt 的帖子

zhynt 你真热情，又让我学了一招！

不知 lsp 的该怎么搞？

啵浪鼓 · 发表于 2011-6-12 23:20

不懂楼主意思，重复上一个命令直接空格或回车就重复了呀，哪需要用到什么程序啊

tm20038175 · 发表于 2011-6-12 23:31

如何调用呢？？？？？

669423907 · 发表于 2011-6-12 23:57

回复啵浪鼓的帖子

能少敲键盘那是更好的啦！还是非常感谢你的帮助！

啵浪鼓 · 发表于 2011-6-13 00:54

回复 669423907 的帖子

8楼的程序不就是按了命令就一直循环吗，直到选择为空时才退出，这不正是你想要的结果吗?

zhynt · 发表于 2011-6-13 07:39

本帖最后由 zhynt 于 2011-6-13 11:25 编辑

(defun test (fn)(while (fn)))
;fn为定义的程序
;样例：假如定义有c:test程序
;(test c:test)
;当然前提是c:test程序返回的不是nil

yewuqiang · 发表于 2011-6-13 08:54

用个while判断下应该可以吧

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

[函数] 如何让一个 lsp （或cad）的命令重复运行，按空格或esc退出？