明经通道 AutoLISP 函数	明经通道 AutoLISP 函数
progn

顺序地对每一个表达式进行求值，并返回最后那个表达式的值

(progn [expr]...)

在仅能使用一个表达式充当操作数，却需要对好几个表达式求值的地方，使用 progn 函数。

参数

expr

一个或多个 AutoLISP 表达式。

返回值

最后一个表达式的值。

示例

通常情况下，if 函数在测试结果不为 nil 的情况下，仅对一个 then 表达式进行求值。在本例中由于使用了 progn 函数，可以实现对两个表达式的求值：

(if (= a b)

  (progn

    (princ "\nA = B ")

    (setq a (+ a 10) b (- b 10))

  )

)

参阅

if 函数。