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

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

非常简单的例子：我要在lsp中编写画线的命令时想借助"PAUSE"这个参数，但"PAUSE"只是对用户提供一次拾取点的机会，不知用户要输入多少个拐点，且画完线段后还要对其进行进一步处理，该怎么应用"PAUSE"。。。

(command "line" pause ....

也就是想持续使用"pause "直到用户输入回车...

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

(defun c:zz (/ pt1 pt2)
    (setq pt1 (getpoint "_line 指定第一点:\n"))
    (while (setq pt2 (getpoint pt1 "指定下一点或 [放弃(U)]:\n"));"或 [放弃(U)]"这部分自己处理吧，用inithget函数
(command "line" pt1 pt2 "")
(setq pt1 pt2)
    )
)

强烈建议程序里最好不用pause，优点不多坏处不少

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

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

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

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

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

不会吧，这本身应是非常简单的问题啊，有没有可能这样搞：

(while n
(if (= (type (command pause)) ?????)
   (progn
     (prin1 "QWE")(terpri)
     (command "")
     (setq n nil)
   )
   (progn
     (prin1 "Qssss")(terpri)

) )
)

但(type (command pause)) 应=什么?????????????

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

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

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

希望高手们快快显身...

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

借用前辈的分享

(command "line")
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))

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

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

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

pause就是程序暂停等待用户输入，想要输入多个点其实本身和pause无关，用while循环即可

账号		自动登录	找回密码
密码			注册