lisp中的多命令
如何合并多个命令以在lisp中执行重复命令？我有一个例程，每次插入一个操作系统磁贴。要运行该命令，我必须要么键入multiple，然后键入该命令，要么右键单击并重复最后一个命令。我想尝试并自动化这个过程，只需键入命令的修改版本即可多次运行。
如有任何建议，我们将不胜感激。
提前谢谢。 我建议您只需循环您的例程并使用以下内容执行：(while (> (logand (getvar "CMDACTIVE") 1) 0) 如果你发了Lisp程序，这将是一个很容易的修复方法。 Pick pt1 Pick pt2 distance pt1-pt2/tile space get int value然后查找帮助重新重复
(setq pt1 (getpoint "Pick p1"))
(setq pt2 (getpoint "pick p2"))
(setq tile (getdist "width of tile"))
(setq howmany (fix (/ (distance pt1 pt2) tile)))
(setq x 0)
(repeat howmany
(alert (rtos (setq x (+ x 1)) 2 0))
)
太棒了：）
页:
[1]