Hello Luis Augusto,
I have got a lot of drawings. I need to make an e-transmit of all these drawings.
In the "savealll.lsp" I want to put an own command from another lisp file.
This lisp reloads all the unloaded xrefs, saves the drawing, creates an e-transmit, unloads the last reloaded xrefs and saves the drawing again.
The e-transmit is saved at the same folder as the drawing without the transmittal setupname "-standard" in the drawing filename.
(DEFUN c:EQ ()
(command "_xref"
"r"
"*")
(command "_qsave")
(command "_etransmit"
"_c"
(strcat (getvar "dwgprefix")
(substr (getvar "dwgname")
1
(- (strlen (getvar "dwgname")) 3)
)
"ZIP"
)
)
(command "_undo"
"3")
(command "_qsave")
(princ)
)
I've got also another lisp of this one, with the command "close" at the end.
I want to add the command "EQ" to the saveall lisp. It should be perfect if this lisp creates an e-transmit from all the open drawings, save all these drawings and close all these drawings.
Do the same with all the drawings in a specific folder (without opening every drawing) should be much better than perfect.
