本帖最后由 作者 于 2008-11-5 8:02:59 编辑
我在编写一段程序时,遇到下面的情况,就是当在 (setq NR (getstring "\n请输入下个标注内容: "))段 使用“回车”时,程序应当在 (while (/= NR nil)段退出, 可程序却继续运行到 (setq pt (getpoint "\n请指定标注点:"))段, 好象getstring值可以为nil 还是(/= NR nil)不对 不知错在那?请高手指正。 先谢谢! (defun c:BZ() ; …… (setq NR (getstring "\n请输入标注内容: ")) (while (/= NR nil) (setq pt (getpoint "\n请指定标注点:")) (command "text" pt 30 0 NR) (setq NR (getstring "\n请输入下个标注内容: "))) (princ) ) 昨天大意,修改了,谢谢指出!
|