在AutoLisp中,我们可以使用(progn)函数来同时运行两个或多个函数。
例如,如下的代码将同时运行两个函数:
(progn (function1) (function2))
下面是一个示例,展示了如何使用(progn)循环移动两个实体的位置:
(progn (command "MOVE" (entlast) pause pause 0,0,0 pause) (command "MOVE" (entlast) pause pause 5,5,0))
这里,第一个命令将移动最近创建的实体到原点(0,0,0),使用pause命令来保持显示并等待用户操作,第二个命令将移动之前创建的实体到一个新位置(5,5,0)。
(注意:pause命令产生暂停并等待用户操作。)
通过begin和end块,也可以同时运行多个函数。例如:
(begin (function1) (function2) (function3) … (functionN) )
这将运行所有给定的函数,可以按需要添加或删除函数。