yang686526

[求助]autolisp中如何使用判断语句？？？
www.dimcax.com
[求助]autolisp中如何使用判断语句？？？
请教autolisp高手，就是在lisp 中如何使用if判断实现如果a=0，程序暂停或终止并提示输入不为零的数，如果不为零则程序继续执行后面的部分。最好可以举个例子看看，谢谢！
d
……
(while (= (setq a (getreal "\ninput a data :")) 0)
(princ "\na = 0 !")
)
……
踅摸
d
(defun c:lsp ()
(setq int (getint "\n请输入一个数:"))
(if (= int 0)
(princ "\n 您输入的数是零! \n 请重新输入:")
(aa)
)
(defun aa ()
(setq p1 (getpoint "\n 请输入一个点："))
)
)
d