如何让lisp 跳出循环。并继续执行下面的程序。
www.dimcax.com
如何让lisp 跳出循环。并继续执行下面的程序。
如题。
( while (< n 1000)
........................
........................ ）
（setq x 10）
如何当n 还不到1000时。 跳出循环。。。并可赋值x。
re:如何让lisp 跳出循环。并继续执行下面的程序。
在中间加一个语句,当满足条件时给n赋一个大于1000的值就可以,
(while ( = p q )
(setq z (read (read-line f)))
(setq s (car z))
(if (= mod s) (setq hh (last z) q 20 ))
(if (= s nil)
(progn
(setq mod (getstring "\未录入该型号或型号输入错误,请重输!"))
(close f)
(setq f (open "\\hcad\\lsp\\bear.dat" "r"))
)
)
)
(close f)