Topic: 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

[Krushert]

Haven't found a away to drive it without dialog box, so I 3rd grader approach will not work.  Hopefully one of the LISP Professors will be along.

[ChrisCarlson]

What about something like this?

http://www.cadtutor.net/forum/showthread.php?50344-Etransmit-lisp

Code - Auto/Visual Lisp: [Select]

1. (defun c:ts_Transmit (/ d yr mo day ts)
2.         (setq   d (rtos (getvar "CDATE") 2 6)
3.                         yr      (substr d 3 2)
4.                         mo      (substr d 5 2)
5.                         day (substr d 7 2)
6.                         ts      (strcat "-" day "_" mo "_" yr)
7.         )
8.         (command "_.qsave"
9.          "_.-etransmit"
10.          "_c"
11.          (strcat (getvar 'dwgprefix)
12.                  (vl-filename-base (getvar 'dwgname)) ts
13.                  ".zip"
14.          )
15.         )
16. )      
17.  
18.  
19.  
20. )

[Lee Mac]

What about something like this?

http://www.cadtutor.net/forum/showthread.php?50344-Etransmit-lisp

Code - Auto/Visual Lisp: [Select]

1. (defun c:ts_Transmit (/ d yr mo day ts)
2.         (setq   d (rtos (getvar "CDATE") 2 6)
3.                         yr      (substr d 3 2)
4.                         mo      (substr d 5 2)
5.                         day (substr d 7 2)
6.                         ts      (strcat "-" day "_" mo "_" yr)
7.         )
8.         (command "_.qsave"
9.          "_.-etransmit"
10.          "_c"
11.          (strcat (getvar 'dwgprefix)
12.                  (vl-filename-base (getvar 'dwgname)) ts
13.                  ".zip"
14.          )
15.         )
16. )
17. )

This could even be shortened to:

Code: [Select]

(defun c:myetransmit nil
    (if (= 1 (getvar 'dwgtitled))
        (command "_.qsave" "_.-etransmit" "_c"
            (strcat
                (getvar 'dwgprefix)
                (vl-filename-base (getvar 'dwgname)) "-"
                (menucmd "m=$(edtime,0,dd.mo.yyyy)")
                ".zip"
            )
        )
        (princ "\nDrawing is not saved.")
    )
    (princ)
)

[ChrisCarlson]

The if test for drawing saved is a nice addition.