kristytian 发表于 2008-11-6 21:51:00

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

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

ZZXXQQ 发表于 2008-11-6 23:34:00

<p>……<br/>(while (= (setq a (getreal "\nInput a Data :")) 0)<br/>&nbsp;(princ "\na = 0 !")<br/>)<br/>……</p>

wwwbxd 发表于 2008-11-9 19:34:00

(defun C:lsp ()<br/>&nbsp; (setq int (getint "\n请输入一个数:"))<br/>&nbsp; (if (= int 0)<br/>&nbsp;&nbsp;&nbsp; (princ "\n 您输入的数是零! \n 请重新输入:")<br/>&nbsp;&nbsp;&nbsp; (aa)<br/>&nbsp; )<br/>&nbsp; (defun aa ()<br/>&nbsp;&nbsp;&nbsp; (setq p1 (getpoint "\n 请输入一个点："))<br/>&nbsp; )<br/>)<br/>
页: [1]
查看完整版本: [求助]autolisp中如何使用判断语句？？？