[LISP函数]：关于函数传递参数的一个问题

urljit

我的本意是编写一个（ifnull    arg1  agr2）函数功能是若arg1为nil则（setq arg1 arg2），可是无论如何也不能传递变量的名字，即：若主程序中pt5为nil用（ifnull pt5 '(0 0  0)）设置，可是不行啊！求救！

lsjjm

最初由 urljit 发布
[B]我的本意是编写一个（ifnull    arg1  agr2）函数功能是若arg1为nil则（setq arg1 arg2）... [/B]

(if arg1 nil (setq arg1 arg2))

秋枫

2. 
   
3. [FONT=courier new]
   
4. (defun ifnull ( var value )
   
5.   (if (eval var) nil (set var value))
   
6. )
   
7. ;; 使用示例：
   
8. ;; (ifnull 'pt5 '(0 0 0))
   
9. [/FONT]

<br /> [FONT=courier new]<br /> (defun ifnull ( var value )<br />   (if (eval var) nil (set var value))<br /> )<br /> ;; 使用示例：<br /> ;; (ifnull 'pt5 '(0 0 0))<br /> [/FONT]

urljit

那就是我对eval函数不熟悉的过，多谢斑主及各位！