[求助]：关于在lisp中的command函数！

haijiangl · 发表于 2003-7-15 16:34:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请各位帮帮忙，如何在lisp程序中，使用command函数调用acad命令时，不提供响应参数，而是完全由用户相应，直至该命令结束，再继续以下的lisp程序？
例如：
(command"_pline") ;此处不提供响应参数，完全由用户相应，
(setq tt 3) ;上个命令结束后，再执行该函数

好像不能实现，如果谁有办法，先行谢过了！

cy956 · 发表于 2003-7-15 21:37:12

让命令不中断行
(command "_ARC")
(while (= 1 (logand (getvar "CMDACTIVE") 1)) (command PAUSE))

daziran · 发表于 2003-7-16 01:40:44

cy956 不愧斑竹，成精了。
logand的必要性在那里？

XDSoft · 发表于 2003-7-16 07:33:22

最初由 daziran 发布
[B]cy956 不愧斑竹，成精了。
logand的必要性在那里？ [/B]

logand 是用来判断某一位是否置1

比如测试系统变量osmode 是否设置了32位可以用：

(logand (getvar "osmode") 32)

lijiao · 发表于 2003-7-16 08:39:37

好！我还从未用过这个函数，今后也试试。
CY956版主，能不能讲一下这个函数通常用在什么场合下。

haijiangl · 发表于 2003-7-16 11:18:02

多谢cy956，绝对不是cy365！

daziran · 发表于 2003-7-16 14:26:24

我的意思是，这个程序写成如下有何不可？
(command "_ARC")
(while (= 1 (getvar "CMDACTIVE") ) (command PAUSE))

zhang8755 · 发表于 2003-7-17 21:49:28

可能使用了logand函数是程序显得更有逻辑性、通用性。

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

[求助] [求助]：关于在lisp中的command函数！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子