Solved! Go to Solution.
Solved by danglar. Go to Solution.
If I understood correctly, perhaps something like this:
(vl-load-com) (defun c:demo (/ a) (setq file (strcat (getvar 'DWGPREFIX) (vl-filename-base (getvar 'DWGNAME)) "-" (menucmd "m=$(edtime,0,dd.mo.yy)") ) ) (command "_.etransmit" "_c" file) (princ) )
Hope that helps
Henrique
@apelbaum2014 wrote:
thank you! It work awesome but etransmit created in curent folder.. if is it posible how can i specify transmital folder
You're welcome.
If hard coded, change
(getvar 'DWGPREFIX)
to
"YourDrive:\\Your\\Transmital\\Folder\\"
If not hard coded, say something.
Henrique
@apelbaum2014 wrote:
it work exelent but you have one case when programm stoped. In case when your dwg not saved yet. I make a litle change in your code in order to fix this problem.
What do you mean by 'dwg not saved yet', a new dwg, or a dwg already saved with a specific file name?
Henrique
I mean if you not save your dwg before invoke regular etransmit function you are prompted to do it.. in opposite case you have not any problem with lisp
@apelbaum2014 wrote:
I mean if you not save your dwg before invoke regular etransmit function you are prompted to do it.. in opposite case you have not any problem with lisp
Perhaps
(vl-load-com) (defun c:demo (/ file) (command "_.qsave") (setq file (strcat "C:\\0backup\\" (vl-filename-base (getvar 'DWGNAME)) "-" (menucmd "m=$(edtime,0,dd.mo.yy)") ) ) (command "-etransmit" "_c" file) (princ) )
Henrique