TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: danglar on November 16, 2014, 02:41:11 AM

Title: E-Transmit zip File name with current date
Post by: danglar on November 16, 2014, 02:41:11 AM
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
Title: Re: E-Transmit zip File name with current date
Post by: Krushert on November 17, 2014, 07:14:02 AM
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.
Title: Re: E-Transmit zip File name with current date
Post by: ChrisCarlson on November 17, 2014, 08:15:48 AM
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. )
Title: Re: E-Transmit zip File name with current date
Post by: Lee Mac on November 17, 2014, 08:35:27 AM
Quote from: ChrisCarlson on November 17, 2014, 08:15:48 AM
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)
)
Title: Re: E-Transmit zip File name with current date
Post by: ChrisCarlson on November 17, 2014, 08:38:24 AM
The if test for drawing saved is a nice addition.  8-)