没有拾取 没有输入时按下空格不能 结束

明天你好

请教各位前辈 下面有一段代码，如下

2. (if (setq xd_point (getpoint "\n选择插入点: "))
   
3.    (if (setq angle (getangle xd_point "\n输入角度: "))
   
4.     (Drawobject)
   
5.    )
   
6.   )

(if (setq xd_point (getpoint "\n选择插入点: "))<br />    (if (setq angle (getangle xd_point "\n输入角度: "))<br />     (Drawobject)<br />    )<br />   )

当提示插入点 时， 我不拾取点，直接按下空格 就直接结束了，没有任何提示，也不继续下面的，同样后面输入角度也是一样的
能不能当提示操作时，没拾取到点，或者没输入角度，按下空格，不能结束

谢谢！

st788796

(if (not (setq xd_point ...

明天你好

st788796 发表于 2014-12-31 11:54
(if (not (setq xd_point ...

改成这样：

1. (if (not (setq xd_point (getpoint "\n选择插入点: ")))
   
2.    (if (not (setq angle (getangle xd_point "\n输入角度: ")))
   
3.     (Drawobject)
   
4.    )
   
5.   )

(if (not (setq xd_point (getpoint "\n选择插入点: ")))<br />    (if (not (setq angle (getangle xd_point "\n输入角度: ")))<br />     (Drawobject)<br />    )<br />   )

不拾取点按空格会 显示“Error: 参数类型错误: point: nil”，  拾取一点后，就直接结束了，没有继续运行后面的程序，这是怎么回事？

Underway

(progn
  (while (not (setq xd_point (getpoint "\n选择插入点: "))))
  (while (not (setq ang (getangle xd_point "\n输入角度: "))))
  (Drawobject)
)

明天你好

Underway 发表于 2014-12-31 16:09
(progn
  (while (not (setq xd_point (getpoint "\n选择插入点: "))))
  (while (not (setq ang (getang ...

谢谢前辈！ 此方法完美的解决了问题！