E-Transmit zip File name with current date

[danglar]

How can I do it? I wont to receive something like this after  e-transmit command invoked
"dwgname-curent date.zip"
example: building-16.11.14.zip

[hmsilva]

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

[danglar]

thank you! It work awesome but etransmit created in curent folder.. if is it posible how can i specify transmital folder

[hmsilva]

---

@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

[danglar]

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.
vl-load-com)
(defun c:demo (/ a)
(command "save" "" "Y")
(setq file (strcat "C:\\0backup\\"
(vl-filename-base (getvar 'DWGNAME))
"-"
(menucmd "m=$(edtime,0,dd.mo.yy)")
)
)
(command "-etransmit" "_c" file)
(princ)
)

[hmsilva]

---

@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

[danglar]

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

[hmsilva]

---

@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

[danglar · Accepted solution]

Probably this code is more elegant?
(vl-load-com)
(defun c:et (/ a)
(command "_.qsave")
(setq file (strcat "C:\\0backup\\"
(vl-filename-base (getvar 'DWGNAME))
"-"
(menucmd "m=$(edtime,0,dd.mo.yy)")
)
)
(command "-etransmit" "_c" file)
(princ)
)
(c:et)

[hmsilva]

Probably...

Don't forget to localize the variable 'file' and remove the 'a' variable (I did)...

Henrique

[danglar]

already done. Thank you Henrique.

[hmsilva]

You're welcome.

Glad I could help.

Henrique

[igal1971]

small change ikn order to add more accuracy:
(vl-load-com)
(defun c:et (/ a)
(command "_.qsave")
(setq file (strcat "C:\\Your Storage Folder\\"
(vl-filename-base (getvar 'DWGNAME))
"-"
(menucmd "m=$(edtime,0,dd.mo.yy-H.MM)")

)
)
(command "-etransmit" "_c" file)
(princ)
)
(c:et)