[求助]：如何退出EXCEL

animal212

lisp在执行过程中打开了EXCEL,然后进入一个循环的状态,现要中止程序按ESC,结果函数被取消,相应的后面的EXCEL退出的程序没有被执行,请问该如何才能按下ESC后,后面的退出程序也被执行呢?或有没有办法中止循环而安全地退出EXCEL呢.
请高手指教.
不胜感激.

firstintimate

定义error函数，在error函数中设置错误陷阱，出错时关闭excel

rln007

lisp关不了EXCEL，除非退出CAD，关的只是壳，线程还在。

loofs

我也有同样的问题。关闭壳以后，只要CAD 不退出，Excel线程就存在，没有办法关闭。有谁还有高招？

Underway

(vlax-release-object  urExcelObj)

animal212

多谢四位帮忙.但是我还是不太懂,以下是我从其他贴子考过来的一段代码,但不知道怎么修改才能实现按ESC后执行退出EXCEL的程序. 请知道的人帮我修改一下好吗?谢谢!
定义如下两个函数SetIErr,ReErr,在程序开始前使用SetIErr,结束时使用ReErr,例如：
(Defun Test ()
(SetIerr)
.
.
.
(ReErr)
(princ)
)

定义函数如下：

(DEFUN SetIErr (/ sv)
(if (or (= 'LIST (type *Error*)))
(alert "ERROR :THE LAST (SETiERR) FUNCTION HAS NO (ReErr)!")
(PROGN
(SETQ *SVARL* '())
(FOREACH SV *SYSVARNL*
(SETQ *SVARL* (CONS (GETVAR SV) *SVARL*))
)
(FOREACH SV '("ATTDIA" "BLIPMODE" "CMDECHO" "DIMZIN"
"OSMODE" "ORTHOMODE" "MIRRTEXT")
(SETVAR SV 0)
)

(SETVAR "EXPERT" 5)
(SETVAR "CECOLOR" "BYLAYER")
(SETVAR "celtype" "BYLAYER")
; (if SetScale () (InitMap))

(defun *error* (st) (if selections (cancel-s)) (reerr)(princ))
)
)
)

(defun ReErr ()
(if (or (= 'LIST (type *error*)) (= 'SUBR (type *error*)) (= 'USUBR (type *error*)))
(PROGN (MAPCAR 'SETVAR *SYSVARNL* (REVERSE *SVARL*))
(SETQ *Error* nil)
)
(ALERT "ERROR : NO (SETIERR)!")
)
(PRINC)
)

1239918

多谢四位帮忙.但是我还是不太懂,以下是我从其他贴子考过来的一段代码,但不知道怎么修改才能实现按ESC后执行退出EXCEL的程序.

loofs

六楼的思路是对的，但是具体处理方式及内容不一定照抄。同样的，线程无法关闭。关闭线程可能需要VBA语句（调用Windows API函数）。

xcajcj

网上有一个KozMos VLXLS 3.5.61231（全是原码），可以用VILSP操控Excel，下载看看。
地址：http://www.versiontracker.com/dy ... 4&mode=feedback
地址：http://www.atablex.com/