React on close save

Hi!

I want to run some code when the dwg file is being saved.

A command reactor make this happen but it doesn´t fire if the X (close) is pressed and the user chooses to save.

Like this:

(setq saveReactor (vlr-command-reactor nil '((:vlr-CommandWillStart . cbFunction))))

(defun cbFunction (reactor commandNameList)
(if (wcmatch (car commandNameList) "SAVE,SAVEAS,QSAVE")
 (alert "SAVED!")
)
)

Is it possible to do something when the user chooses to save?

Autopublish manages to do this...

Thanks in advance

(defun cbFunction (reactor commandNameList / commandName)
 (cond
   ((wcmatch (setq commandName (car commandNameList)) "CLOSE")
    (alert (strcat "Closing \"" (getvar 'dwgname) "\""))
   )
   ((wcmatch commandName "*SAVE*")
    (alert (strcat "Saving \"" (getvar 'dwgname) "\""))
   )
 )
 (princ)
)

Autopublish manages to do this...

Autopublish is coded in either .NET, or ObjectARX (C++ for AutoCAD) API... There's a lot more that can be done using those in lieu of LISP.