[求助]如何取得command pause的返回值
<p>请教：<br/>(command "._move"<br/> (entlast)<br/> ""<br/> '(0 0 0)<br/> pause<br/> )</p><p><br/>如何取得这个command的返回值，<br/>比如当回车或空格，或右键的时候 返回nil<br/>如果取得了点，就返回T</p> 本帖最后由 作者 于 2008-7-4 9:08:21 编辑 <br /><br /> <p>(command "._move" ...)<br/>(setq a (getvar "lastpoint"))<br/>(command pause)</p><p>(if (equal a (getvar "lastpoint") 0.00001)<br/> (princ "未拾取点")<br/> (princ "拾取点")<br/>)</p><p></p> caoyin发表于2008-7-4 9:07:00static/image/common/back.gif(command \"._move\" ...)(setq a (getvar \"lastpoint\"))(command pause)(if (equal a (getvar \"lastpoint\") 0.00001) (princ \"未拾取点\") (princ \"拾取点\"))<p>(getvar "lastpoint") 不能监测有没有点取点</p><p>运行(command "._move" (entlast) "" '(0 0 0) pause)后如点取右键(getvar "lastpoint")返回 '(0 0 0)</p> <p>我的意思不是监测有没有点取点</p><p>而是 pause 时，用户如拾取新的点，则返回新点坐标</p> caoyin发表于2008-7-4 10:34:00static/image/common/back.gif我的意思不是监测有没有点取点而是 pause 时，用户如拾取新的点，则返回新点坐标
<p>当你不点取新点(右键)时,lastpoint变量值也在变.</p><p>你先测测你上述程序,点右键是返回</p><p> "未拾取点" 还是 "拾取点"</p> <p>(defun c:tt (/ a)<br/> (command "._move" (entlast) "" '(0 0 0))<br/> (setq a (getvar "lastpoint"))<br/> (command pause)<br/> (if (equal a (getvar "lastpoint") 0.00001)<br/> (princ "未拾取点")<br/> (princ "拾取点")<br/> )<br/> (princ)<br/>)</p><p>不知道我测试为什么没问题</p> 在pause前监测lastpoint变量是对的 <p>谢谢caoyin</p><p>OK了。。。</p>(setq a (getvar "lastpoint"))<p>这句原来放在这里。。。学习啦</p> 学习一下pause caoyin 发表于 2008-7-4 09:07 static/image/common/back.gif
本帖最后由 作者 于 2008-7-4 9:08:21 编辑(command "._move" ...)(setq a (getvar "lastpoint"))(comma ...
不错。谢谢了。
页:
[1]
2