[已解决]结果错误时要求返回重新执行的一段程序，最后出现一点问题，请前辈指点。

dinosaurhxe2

照各位的指点，我编了如下一段。想在pit没有获取到int或者real的时候，重新执行一遍，现在出现一个问题是，重新执行是执行了，最后返回的pit却是第一次的pit。比如运行程序时我输入123d，不是数值，那么程序重新执行，提示“输入起点坐标 [或选择实体读取坐标]”，我再输入123，程序正常结束后返回的pit值居然是123d，问题在哪里？

2. (defun c:dzb (/ oom pit ss ent fxh ent1 name)
3.   (setq oom (getvar "osmode"))
4.   (setvar "osmode" 0)
5.   (initget 128 "  ")
6.   (setq pit (getpoint "\n输入起点坐标 [或选择实体读取坐标]"))
7.   (cond
8.     ((null pit) (c:dzb))
9.     ((and (= (type pit) 'LIST) (setq ss (ssget pit)))
10.      (progn
11.       );读取块属性程序
12.     )
13.     ((= (type pit) 'STR) (setq pit (read pit)))
14.     (t (c:dzb))
15.   ) ;cond
16.   ;|(if (not (or (= (type pit) 'INT) (= (type pit) 'REAL)))
17.     (c:dzb)
18.   )|;
19.   (setvar "osmode" oom)
20.   pit
21. )

(defun c:dzb (/ oom pit ss ent fxh ent1 name)   (setq oom (getvar "osmode"))   (setvar "osmode" 0)   (initget 128 "  ")   (setq pit (getpoint "\n输入起点坐标 [或选择实体读取坐标]"))   (cond     ((null pit) (c:dzb))     ((and (= (type pit) 'LIST) (setq ss (ssget pit)))      (progn       );读取块属性程序     )     ((= (type pit) 'STR) (setq pit (read pit)))     (t (c:dzb))   ) ;cond   ;|(if (not (or (= (type pit) 'INT) (= (type pit) 'REAL)))     (c:dzb)   )|;   (setvar "osmode" oom)   pit )

dinosaurhxe2

我已经把判断的if注释掉了，如果不注释的话，就会出现我前面所说的问题。

dinosaurhxe2

不应该递归，循环就解决问题了。

2. (defun dzb (/ wh oom pit ss ent fxh ent1 name)
3.   (setq oom (getvar "osmode"))
4.   (setvar "osmode" 0)
5.   (setq wh t)
6.   (while wh
7.     (initget 128 "  ")
8.     (setq pit (getpoint "\n输入起点坐标 [或选择实体读取坐标]"))
9.     (cond
10.       ((and (= 'LIST (type pit)) (setq ss (ssget pit)))
11.        () ;progn，读取块属性程序
12.       ) ;ssget
13.       ((= (type pit) 'STR) (setq pit (read pit)))
14.     ) ;cond
15.     (setq wh (not (or (= (type pit) 'INT) (= (type pit) 'REAL))))
16.   ) ;while
17.   (setvar "osmode" oom)
18.   pit
19. )

(defun dzb (/ wh oom pit ss ent fxh ent1 name)   (setq oom (getvar "osmode"))   (setvar "osmode" 0)   (setq wh t)   (while wh     (initget 128 "  ")     (setq pit (getpoint "\n输入起点坐标 [或选择实体读取坐标]"))     (cond       ((and (= 'LIST (type pit)) (setq ss (ssget pit)))        () ;progn，读取块属性程序       ) ;ssget       ((= (type pit) 'STR) (setq pit (read pit)))     ) ;cond     (setq wh (not (or (= (type pit) 'INT) (= (type pit) 'REAL))))   ) ;while   (setvar "osmode" oom)   pit )