[求助]循环问题

tanle2020 · 发表于 2009-11-23 09:39

求助各位大哥，怎样解决在循环中回车结束时出现point: nil的错误

下面举个简单的例子

(defun c:qq()
(while
(setq pt1 (getpoint"\n--1")
pt2 (getpoint pt1"\n--2") ;;去掉跟踪PT1点绘制不会出现问题，但我需要跟踪PT1点绘制
)
(command "line" pt1 pt2 "")
)
(princ)
)

liu_kunlun · 发表于 2009-11-23 09:54

(defun c:qq()
(while (and
(setq pt1 (getpoint"\n--1"))
(setq pt2 (getpoint pt1"\n--2")) ;;去掉跟踪PT1点绘制不会出现问题，但我需要跟踪PT1点绘制
)
(command "line" pt1 pt2 "")
)
(princ)
)

tanle2020 · 发表于 2009-11-23 10:53

谢谢楼上的，返回NIL 结束循环.

xiewawa · 发表于 2010-1-29 01:19

谢谢楼主学习

明经网友 *发表于 2010-1-30 23:39* · 发表于 2010-1-30 23:39

学习了！

从该例可以看出：（and 表达式1 表达式2 。。。）当第一个表达式为nil时，其后的表达式是不执行的

（and nil (setq a 5)）执行该语句，返回nil 而且后面的语句（setq a 5）并没有执行

账号		自动登录	找回密码
密码			注册

[基础] [求助]循环问题

浏览过的版块