Command Save

[eblanco_74]

I'm making a LISP routine for saving my drawings with some personal codification. I'm using DCL for introduce data for that code. I undefine the command save to use it as mine but when I try to save normaly (redefining the save command) it doesn't show me the save dialog box, instead it shows only the command prompt. Later I found out that command save called from LISP command (command "save") never shows save dialog box.
Can anyone give me a clue?
TIA
Eric

[fixo]

Give this a try

(initdia)
(command "save" pause)

Hth

~'J'~

[peter]

have you thought of using a reactor instead?


(defun saveCallbackFunction (CALL CALLBACK)
(print call)
(if (wcmatch (car callback) "SAVE,QSAVE")
(princ "\nPut your dialog function here: ")
)
)
(setq rxnVLRSave (vlr-command-reactor nil '((:vlr-commandWillStart . saveCallbackFunction))))

[eblanco_74]

Very simple... I'm ashamed.

Thanks a lot...

[eblanco_74]

Never try reactors. I should try.

Thanks