;|
Well copy the below code into your acaddoc.lsp and then get used to
typing "BAK" before you start any major (or minor for that matter)
changes to your drawing. It will create a /BackUp directory, if not
already present, and a file with the date and time appended to the
drawing name: C:/MyProject/X_Site.dwg would be saved as
C:/MyProject/BackUp/X_Site-2006.03.30.18.32.39.dwg.
|;
;;;James Buzbee
;;;http://www.theswamp.org/index.php?topic=9453.0
(defun c:bak (/ file dirs dir)
(setq dirs(vl-directory-files(getvar "dwgprefix") nil -1))
(if(not(or (member "backup" dirs)(member "archive" dirs)(member "archive" dirs)))
(setq dir(vl-mkdir (strcat (getvar "dwgprefix")"archive")))
(setq dir t)
)
(if dir
(progn
(setq file (strcat
(getvar "dwgprefix")"archive\\"
(vl-filename-base (getvar "dwgname")) "_"
;;(menucmd "M=$(edtime,$(getvar,date),YYYY.MO.DD.HH.MM.SS)")
(menucmd "M=$(edtime,$(getvar,date),MO-DD-YYYY_HH.MM)")
".dwg"))
(while (findfile file)
(setq file (strcat
(getvar "dwgprefix")"archive\\"
(vl-filename-base (getvar "dwgname")) "_"
;;(menucmd "M=$(edtime,$(getvar,date),YYYY.MO.DD.HH.MM.SS)")
(menucmd "M=$(edtime,$(getvar,date),MO-DD-YYYY_HH.MM)")
".dwg")))
(if file
(command "save" file))))
(princ file)(princ))