如何用lisp定义退出事件??

oooo

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

lisp程序该怎样?

oyxx1023

用VLR监视文档的销毁。回调函数执行vla-purgeall。

oooo

oyxx1023发表于2006-12-28 18:54:00用VLR监视文档的销毁。回调函数执行vla-purgeall。

能否来个具体例子?

(defun  ????  ()

...

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

)

phoenixdjq

我以前用的一个程序，现在一直在用，两分号间的程序是删除bak文件的

可以由你来决定取舍。

quit与close的区别，你自己看帮助吧

(defun c:fd()
(command "zoom" "e")
(command "-purge" "a" "" "n" )            ;清除垃圾
(command "-purge" "a" "" "n" )            ;清除垃圾
(command "-purge" "a" "" "n" )            ;清除垃圾
(command "-purge" "a" "" "n" )            ;清除垃圾
(command "-purge" "a" "" "n" )            ;清除垃圾
(command "qsave")                         ;保存

；；；；；；；

(setq nowdwg (getvar "dwgname"))          ;取得当前文件的名称
(setq path (findfile nowdwg))             ;寻找当前文件的路径
(setq strle (strlen path))                ;当前文件路径的长度
(setq bak1 (substr path 1 (- strle 4)))   ;去掉倒数第四以后的字符(即去掉扩展名)
(setq bak (strcat bak1 ".bak"))           ;把扩展名改为bak
(command "DEL" bak)                       ;删除bak文件
(command "_close" "y" )                   ;关闭当前的文件,继续进行下一个文件的操作

；；；；；；；；；
)