[求助]请教一下QUIT命令

xcajcj

请教一下QUIT命令
前不久我编了一个小程序，想在关闭CAD时让CAD系统自动将加载的自定义菜单卸载了。于是用到了QUIT命令，程序在R14下没什么问题，但在2002中测试就没效果了。查看了一下，感觉好象是R14下点CAD窗口右上角的“×”关闭CAD时，调用了QUIT命令，所以程序能达到预期效果。但2002中点CAD窗口右上角的“×”关闭CAD时，系统不知是调用了什么命令，使程序达不到取其效果了。
附程序：

2. ;;acad.lsp
3. (defun S::STARTUP ()
4. (setvar "cmdecho" 0)
5. (command "undefine" "QUIT");;取消QUIT命令
6. (defun C:QUIT ()
7. (if (menugroup "mymenu") (command "menuunload" "mymenu"))
8. (command "menuunload" "AJCAD")
9. (alert "\n已经调用QUIT命令")
10. (command ".QUIT")
11. (princ)
12. );end (defun C:QUIT ()
13. (princ)
14. );end (defun S::STARTUP ()

;;acad.lsp (defun S::STARTUP () (setvar "cmdecho" 0) (command "undefine" "QUIT");;取消QUIT命令 (defun C:QUIT () (if (menugroup "mymenu") (command "menuunload" "mymenu")) (command "menuunload" "AJCAD") (alert "\n已经调用QUIT命令") (command ".QUIT") (princ) );end (defun C:QUIT () (princ) );end (defun S::STARTUP ()

说明：2002中在命令行运行QUIT可以卸载自定义菜单，但与退出CAD系统自动卸载的初衷不相符。
望各位大侠解疑答惑，2002下点CAD窗口右上角的“×”关闭CAD时系统是调用的什么命令关闭CAD的？  

ZZXXQQ

估计是调用了.QUIT原始命令，楼主用UNDEFINE是无法屏蔽的。

phoenixdjq

"close" "exit" "quit"都可退出cad

不过"close"不能完全的关闭cad

你可以亲自试一下。不知道能不能行

sanywufour

应该是quit的，close和exit都不能完全关闭！