lisp中的多命令

Baber62 · 发表于 2022-7-5 18:18:55

如何合并多个命令以在lisp中执行重复命令？

我有一个例程，每次插入一个操作系统磁贴。要运行该命令，我必须要么键入multiple，然后键入该命令，要么右键单击并重复最后一个命令。我想尝试并自动化这个过程，只需键入命令的修改版本即可多次运行。

如有任何建议，我们将不胜感激。

提前谢谢。

broncos15 · 发表于 2022-7-5 18:38:09

我建议您只需循环您的例程并使用以下内容执行：

copy

(while (> (logand (getvar "CMDACTIVE") 1) 0)

tombu · 发表于 2022-7-5 18:56:22

如果你发了Lisp程序，这将是一个很容易的修复方法。

BIGAL · 发表于 2022-7-5 19:12:28

Pick pt1 Pick pt2 distance pt1-pt2/tile space get int value然后查找帮助重新重复

copy


(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))
)

hosyn · 发表于 2022-7-5 19:22:38

太棒了：）

[编程交流] lisp中的多命令

发表回复

精选推荐