[求助]：关于IF函数用法的问题

superxzg

关于IF函数用法的问题：
我在autolisp使用过程中发现，如果 if 函数不能执行两个表达式，即便是再一个括号里。
比如：
(defun test()
    (setq n  1)
    (if (= n 1)
          (
              (setq a 1)
              (princ)
          )
     )
)
这样程序就会提示：错误：函数错误。

这是怎么回事？
编程中经常出现判断后执行两个操作，如果autolisp不支持，如何解决，请高手指点。

libo2000

(defun test()
        (setq n 1)
        (if (= n 1)
                (progn
                        (setq a 1)
                        (princ)
                )
        )
)

太低级的错误了。多看看书和lisp help。cad2000里面有详细的中文帮助。

Dallas_whu

多了个括号：
(defun test()
(setq n 1)
(if (= n 1)
(setq a 1)
(princ)
)
)

125740513

2楼的和3楼的都没有问题，只不过返回显示不太一样，2楼的不显示任何东西，3楼的会显示“1”。楼主估计是初学，慢慢会有进步的

fsxm

像你下面这种语法：
(
(setq a 1)
(princ)
)
除了cond认可以外可能不只是if就是别的函数也会不给它面子的~

superxzg

二楼和三楼的做法根本就不是一个概念,二楼的做法可以在判断后执行两个操作,而三楼只能执行一个操作,本质不同,我需要的二楼的答案,上述程序只是一个引子.
多谢各位相助!在下明白了.

tcsl9621

二楼和三楼的效果不一样。呵……