为AUTOLISP建立缺省输入函数

王朝other·作者佚名  2008-05-21
窄屏简体版  字體: |||超大  

使用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标准函数一样供其它函数调用。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航