[LISP程序]：请教一段程序！

yayaxf

初学，遇到一个程序，有一段不太理解！望高手指教！

(defun C:XQ()
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(command "limits" "off")
(setq srcs 1)
(while (= 1 srcs)
(prompt "\n第一个数 di? ")(princ dii1)(princ " ")(setq dii (getreal))
    (if (/= dii nil) (setq dii1 dii di dii) (setq di dii1))


高手还有版主帮我看看这段时什么意思！
最好逐句解释一下！主要是这一句不太懂： (if (/= dii nil) (setq dii1 dii di dii) (setq di dii1))
谢谢了！

还有我编的程序为什么运行到中间CAD的命令栏内会提示 numberp:nil

phoenixdjq

如果有dii存在, dii1赋值为dii和di赋值为dii
如果存在,则di赋值为dii1
其实这个是一个判断的两种情况
判断成立,执行(setq dii1 dii di dii)
不成立,则执行(setq di dii1)

出现numberp:nil,是因为你没有找到赋值.就是程序后面要用到前面的值,但是没有,程序就会提示
例如:(setq a (+ 5 b)),如果程序前面没有给b赋值,那就会出现这样的情况
以上均为个人理解