[求助]autolisp中如何使用判断语句？？？

kristytian

请教AutoLisp高手，就是在Lisp 中如何使用if判断实现如果a=0，程序暂停或终止并提示输入不为零的数，如果不为零则程序继续执行后面的部分。最好可以举个例子看看，谢谢！

ZZXXQQ

……
(while (= (setq a (getreal "\nInput a Data :")) 0)
 (princ "\na = 0 !")
)
……

wwwbxd

(defun C:lsp ()
  (setq int (getint "\n请输入一个数:"))
  (if (= int 0)
    (princ "\n 您输入的数是零! \n 请重新输入:")
    (aa)
  )
  (defun aa ()
    (setq p1 (getpoint "\n 请输入一个点："))
  )
)