[求助]如何取得command pause的返回值

carrot1983

请教：
(command "._move"
        (entlast)
        ""
        '(0 0 0)
        pause
      )

如何取得这个command的返回值，
比如当回车或空格，或右键的时候 返回nil
如果取得了点，就返回T

caoyin

(command "._move" ...)
(setq a (getvar "lastpoint"))
(command pause)

(if (equal a (getvar "lastpoint") 0.00001)
  (princ "未拾取点")
  (princ "拾取点")
)

byghbcx

caoyin发表于2008-7-4 9:07:00(command \"._move\" ...)(setq a (getvar \"lastpoint\"))(command pause)(if (equal a (getvar \"lastpoint\") 0.00001)  (princ \"未拾取点\")  (princ \"拾取点\"))

(getvar "lastpoint")  不能监测有没有点取点

运行(command "._move"   (entlast)   ""   '(0 0 0)    pause)后如点取右键(getvar "lastpoint")返回 '(0 0 0)

caoyin

我的意思不是监测有没有点取点

而是 pause 时，用户如拾取新的点，则返回新点坐标

byghbcx

caoyin发表于2008-7-4 10:34:00我的意思不是监测有没有点取点而是 pause 时，用户如拾取新的点，则返回新点坐标

当你不点取新点(右键)时,lastpoint变量值也在变.

你先测测你上述程序,点右键是返回

 "未拾取点"  还是 "拾取点"

caoyin

(defun c:tt (/ a)
  (command "._move" (entlast) "" '(0 0 0))
  (setq a (getvar "lastpoint"))
  (command pause)
  (if (equal a (getvar "lastpoint") 0.00001)
    (princ "未拾取点")
    (princ "拾取点")
  )
  (princ)
)

不知道我测试为什么没问题

byghbcx

在pause前监测lastpoint变量是对的

carrot1983

谢谢caoyin

OK了。。。

(setq a (getvar "lastpoint"))

这句原来放在这里。。。学习啦

yxp

学习一下pause

Throne

caoyin 发表于 2008-7-4 09:07
本帖最后由 作者 于 2008-7-4 9:08:21 编辑  (command "._move" ...)(setq a (getvar "lastpoint"))(comma ...

不错。谢谢了。