[教学]：LISP中，如何等待一个命令结束...

XDSoft · 发表于 2002-2-1 00:37:06

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

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

×

我们知道COMMAND的参数可以是变化的，那么我们执行一个COMMAND，如何等待它结束，以便执行进一步的操作呢，请用下面的测试代码：

构建选择集SELECT命令，我们不需要另外加上逻辑变量控制，使用系统变量cmdname或者cmdactive就可以了，因为在一个命令中的时候，他们值为了1，结束命令后就是0了。

(defun c:Test ()
(Command "SELECT" "w")
(while (= (getvar "CMDNAMES") "SELECT") (command pause))
(SETQ ss (SSGET "P"))
(print (strcat "Number of entities selected: "
(itoa (sslength ss))
)
)
(setq ss nil)
(princ)
)

:c :c :c

caddog · 发表于 2018-12-17 23:11:54

真不敢相信,这条对我有用的帖子已经16年了!!!!

evayleung · 发表于 2018-12-18 04:04:50

谢谢分享。。。。。。。。。

taoyi0727 · 发表于 2019-6-22 09:42:58

终于搞明白cmdactive cmdnames 怎么用了

xyz002 · 发表于 2019-9-4 15:33:36

谢谢分享，就是不知道什么时候用到这个

zuoxiao100 · 发表于 2020-10-30 22:54:10

真不敢相信,这条对我有用的帖子已经18年了!!!!

sytu2008 · 发表于 2020-10-31 09:06:13

感谢分享

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

[教学]：LISP中，如何等待一个命令结束...

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

相关帖子