[编程申请]：如何用lisp定义退出事件??

浪奔 · 发表于 2006-12-30 22:55:17

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

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

×

我想让Atocad退出时自动执行"purge清除"命令.

lisp程序该怎样?

(defun exitpu ()

???
...

(command "-purge" "a" "" "N")

)

lidejun_55 · 发表于 2006-12-31 12:12:05

lsp要用反映器才能搞定
对vba和arx很容易

oyxx_1023 · 发表于 2006-12-31 13:33:48

写了简易的。你可以试一下。
Atocad退出时自动purge再SAVE。

carrot1983 · 发表于 2006-12-31 15:46:19

这个怎么样。。就是没办法运行完CAD就要关闭。。。
不可以就点“取消”
对了。。是不是要加入一句(commnd "qsave")看楼主是怎么想的。
[php]
(defun c:epu()
  (command "-purge" "a" "" "N")
  (command "quit" "y")
  )
[/php]

浪奔 · 发表于 2007-1-7 18:31:08

最初由 oyxx_1023 发布
[B]写了简易的。你可以试一下。
Atocad退出时自动purge再SAVE。 [/B]

谢谢！

三楼提供的代码只是在关闭（close）当前文件时执行.

如果要求在Atocad退出（quit或exit）时执行，这个反应器代码如何写？

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

[编程申请]：如何用lisp定义退出事件??

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

相关帖子