为AUTOLISP建立缺省输入函数

新客网 XKER.COM 2006-11-06 来源：收藏本文

使用LISP编程时，常常需要用户回答一些参数，为了提高工作效率，希望能用回车代替某个特定输入即缺省值。此时，在程序中增加一个判断可使变量得到缺省回答。
如：
　　 (setqwidth(getreal″inputwidth:″))
　　 (if(nullwidth)(setqwidth0.3));回车置width的值为0.3。
　　有时需要依上一次的输入值为本次的缺省输入(如：宽度、角度、距离等)，这时就需要用全局变量保存上一次输入值提供缺省输入。例如，若欲将上次输入的宽度值作为缺省输入可使用下述函数：
　　 (if(notwidth)
　　 (setqwidth0.3)；第一次依03为缺省值)
　　 (princ″\inputwidth:″)
　　 (princ″\n
　　 (princwidth)
　　 (princ″:″)；显示提示信息
　　 (setqw1(getrea1))
　　 (if(notw1)
　　 (setqw1width)
　　 (setqwidthw1)；用全局变量保存当前输入值
　　 (princw1)
　　 )
　　函数的执行结果是：第一次执行时依宽度03为缺省值，提示信息为：inputwidth:，给定新的输入值后如05，下一次依宽度05为缺省提示值，提示信息为：inputwidth:。
　　在一般情况下，还可通过建立缺省处理函数，加快程序处理速度，减少编码。如：
　　 (defundefal(strval)
　　 (setqglobaval)
　　 (princ(strcatstr″
　 (princgloba)
(princ″″)
(setqvar(getreal))
　 (if(notvar)
(setqvargloba)；用缺省值作为输入
)
(princvar)
　 )
　　这是一个有参函数，它将输入的实数作为返回值。当按(defal″inputwidth″0.5)调用时提示信息为：inputwidth:。该函数能按str的提示缺省输入实数(由val给定)类值(如：角度、距离等)，加入到ACADLSP文件中即可像LISP标准函数一样供其它函数调用。

上一篇：AutCAD图形文件弄上网页的方法下一篇：应用AutoCAD几何计算器实现快速定位

【收藏】【评论】【推荐】【投稿】【打印】【关闭】