如：
(setqwidth(getreal″inputwidth:″))
(if(nullwidth)(setqwidth0.3));回车置width的值为0.3。
有时需要依上一次的输入值为本次的缺省输入(如：宽度、角度、距离等)，这时就需要用全局变量保存上一次输入值提供缺省输入。例如，若欲将上次输入的宽度值作为缺省输入可使用下述函数：
(if(not?硍idth)
(setq?硍idth0.3)；第一次依0??3为缺省值)
(princ″\inputwidth:″)
(princ″\n
(princ?硍idth)
(princ″:″)；显示提示信息
(setqw1(getrea1))
(if(notw1)
(setqw1?硍idth)
(setq?硍idthw1)；用全局变量保存当前输入值
(princw1)
)函数的执行结果是：第一次执行时依宽度0??3为缺省值，提示信息为：inputwidth:，给定新的输入值后如0??5，下一次依宽度0??5为缺省提示值，提示信息为：inputwidth:。
在一般情况下，还可通过建立缺省处理函数，加快程序处理速度，减少编码。如：
(defundefal(strval)
(setq?砱lobaval)
(princ(strcatstr″
(princ?砱loba)
(princ″″)
(setqvar(getreal))
(if(notvar)
(setqvar?砱loba)；用缺省值作为输入
)
(princvar)
)这是一个有参函数，它将输入的实数作为返回值。当按(defal″inputwidth″0.5)调用时提示信息为：inputwidth:。该函数能按str的提示缺省输入实数(由val给定)类值(如：角度、距离等)，加入到ACAD?盠SP文件中即可像LISP标准函数一样供其它函数调用。
模具之家为您提供最全面的塑胶,塑料,模具,模具设计,塑胶模具品牌的装修知识点和各种塑胶模具的导购与在线购买服务,拥有最便宜的塑胶模具价格和最优质的售后服务,敬请登陆模具之家：http://muju.jc68.com/