挚友 发表于 2007-1-15 15:47:00

[求助]请教PAUSE在command 中的应用!

<p>非常简单的例子：我要在lsp中编写画线的命令时想借助"PAUSE"这个参数，但"PAUSE"只是对用户提供一次拾取点的机会，不知用户要输入多少个拐点，且画完线段后还要对其进行进一步处理，该怎么应用"PAUSE"。。。</p><p>(command "line" pause ....</p><p>也就是想持续使用"pause "直到用户输入回车...</p>

lazybug 发表于 2007-1-15 16:26:00

<p>(defun c:zz (/ pt1 pt2)<br/>&nbsp;&nbsp;&nbsp; (setq pt1 (getpoint "_line 指定第一点:\n"))<br/>&nbsp;&nbsp;&nbsp; (while (setq pt2 (getpoint pt1 "指定下一点或 [放弃(U)]:\n"));"或 [放弃(U)]"这部分自己处理吧，用inithget函数<br/>&nbsp;(command "line" pt1 pt2 "")<br/>&nbsp;(setq pt1 pt2)<br/>&nbsp;&nbsp;&nbsp; )<br/>)<br/></p><p>强烈建议程序里最好不用pause，优点不多坏处不少</p>

挚友 发表于 2007-1-15 16:34:00

<p>2楼的方法实际是避开了PAUSE的用法，之所以用PAUSE就是想有"所见既所得"的效果，我想要的就是PAUSE的效果...</p>

lazybug 发表于 2007-1-15 16:59:00

<p>那最好等你用pause实现了你要求的功能之后发上来看看……</p>

挚友 发表于 2007-1-16 09:12:00

<p>不会吧，这本身应是非常简单的问题啊，有没有可能这样搞：</p><p>(while n<br/>&nbsp;(if (= (type (command pause)) ?????)<br/>&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp; (prin1 "QWE")(terpri)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (command "")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq n nil)<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; (progn&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; (prin1 "Qssss")(terpri)<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;) )<br/>)</p><p>但(type (command pause)) 应=什么?????????????</p>

killer9806 发表于 2007-1-16 14:23:00

pause这个东东偶没用过哦，希望可以看到它的效果哦。

挚友 发表于 2007-1-16 14:31:00

<p>希望高手们快快显身...</p>

Andyhon 发表于 2007-1-16 14:55:00

<p>借用前辈的分享</p><p>(command "line")<br/>(while (= (logand (getvar "CmdActive") 1) 1) (command pause))</p>

挚友 发表于 2007-1-16 16:56:00

高手就是高手，非常感谢！！！！！！！！！！1

firstinti 发表于 2007-1-16 19:28:00

pause就是程序暂停等待用户输入，想要输入多个点其实本身和pause无关，用while循环即可
页: [1] 2
查看完整版本: [求助]请教PAUSE在command 中的应用!