做了个简单的lisp程序，（下面只是片段不完整）下面的要求怎么实现？while循环前，先赋给da默认值1，怎么在while循环时，可以保留da值，又可以在某次输入da值？
下面程序的循环下去，如果不输入da值，由于(setq da (getreal))存在，直接回车的话da值就成了nil，不是默认的1，也不是上次循环是输入的da。不知道说清楚没有，哪位大侠指导一下，谢谢。
(setq da 1)
(while (/= ex "E")
(progn
(princ "\n请输入起始偏移量<")
(princ da)
(princ ">:")
(setq da (getreal))
--------------
全部回复（3 ）
只看楼主 我来说两句-
mzhstar
沙发
本帖最后由 mzhstar 于 2015-5-14 15:23 编辑
2015-03-08 09:14:08
赞同0
-
mzhstar
板凳
本帖最后由 mzhstar 于 2015-3-7 09:47 编辑
2015-03-07 09:46:07
赞同0
加载更多程序全貌详见 http://bbs.co188.com/thread-9060133-1-1.html
回复 举报
我已经解决了，又加了一个判断参数
(setq da 1)
(while (/= ex "E")
(progn
(princ "\n请输入起始偏移量<")
(princ da)
(princ ">:")
(setq enter (getdist))
(if (/= enter nil)
(setq da enter)
) ;_ 结束if
----------------
）
回复 举报