Custom Save command, save a copy of DWG file locally

[robert.1.hall72202]

Can the following code be modified to put the archived copy
in a folder on the C: drive?

I found this code on hot tip harry and I am entertaining different
methods of backing up my cad files. I am having trouble depending
on my IT department.

(DEFUN C:MRSAVE (/ path mrr flnm newname original)
(setvar "CMDECHO" 0)
(command "_.qsave")
(setvar "filedia" 0)
(setq path (getvar "DWGPREFIX"))
(setq mrr "Mirror")
(setq flnm (getvar "DWGNAME"))
(setq original (strcat path flnm))
(setq newname (strcat path mrr flnm))
  (if (null (findfile newname))
      (command "_.saveas" "" newname)
      (command "_.saveas" "" newname "y")
  )

(command "_.saveas" "" original "y")
(setvar "filedia" 1)
(princ)
)

[ccowgill]

(setq newname (strcat path mrr flnm))

Change this line to the new path location (replace path with "c:\\")

[rkmcswain]

I am entertaining different methods of backing up my cad files.

Above and beyond the .BAK file that gets created?

A quick way to make a duplicate of the current drawing is just to ._QSAVE twice. At that point, the BAK = the DWG.

A couple of comments on the code you posted.

1. It will fail if you run it on a new drawing that has never been saved
2. There is no need to perform 3 saves (original, saveas, save original). Just use the ._SAVE command to accomplish the last two. Depending on file size, this could save you some time.

Here is a suggestion that addresses those two items:

  (DEFUN C:MRSAVE (/ newname)
   (setvar "CMDECHO" 0)
   (if (zerop (getvar "dwgtitled"))
 	(command "._qsave" (getstring "\n Enter drawing name: "))
 	(command "_.qsave")
   )
   (setvar "filedia" 0)
   (setq newname 
 		(strcat
 		  "C:\\"
 		  (getvar "DWGNAME")
 		  "-BAK"		  
 		)
   )  
   (if (findfile (strcat newname ".dwg"))
 	(command "_.save" newname "_Y")
 	(command "_.save" newname)
   )
   (setvar "filedia" 1)
   (princ)
 )

[robert.1.hall72202]

Above and beyond the .BAK file that gets created?

A quick way to make a duplicate of the current drawing is just to ._QSAVE twice. At that point, the BAK = the DWG.

A couple of comments on the code you posted.

1. It will fail if you run it on a new drawing that has never been saved
2. There is no need to perform 3 saves (original, saveas, save original). Just use the ._SAVE command to accomplish the last two. Depending on file size, this could save you some time.

Good point. Is there a way to set the file path in your routine?

[rkmcswain]

Good point. Is there a way to set the file path in your routine?

I updated the code in my earlier post.

If you don't want to use the root of C:\ drive, just replace "C:\\" with your desired path.

I also preferred appending "-BAK" on the end of the file, rather than prefixing it with "Mirror".

Basically you can alter the (setq newname.... line to make the "copy" filename whatever you want.

[Mohmed Zuber]

Can the following code be modified to put the archived copy
in a folder on the C: drive?

I found this code on hot tip harry and I am entertaining different
methods of backing up my cad files. I am having trouble depending
on my IT department.

Oh! my goodness, you are discussing my program an I am unaware about it. Carry on fruitful discussion is going on.

[robert.1.hall72202]

Cool! You had a great idea when you put it together.

[kennet.sjoberg]

This reactor, copy your previously Saved -or ExitSaved drawing to ( in this case ) the folder "C:\\DwgBackup"
the name of the file will be "Bak_Drawing3.dwg" if the parent drawing is "Drawing3.dwg"

(vl-load-com)
(defun When_Saving_And_Copy_Drawing_Function (ReactorArg ObjListArg / MyBackupPath )
  (setq MyBackupPath "C:\\DwgBackup" ) ;; <-- Your EXISTING Backup Folder !
  (vl-file-delete (strcat MyBackupPath "\\Bak_" (getvar "DWGNAME" )) ) ;; Erase old "Bak_" copy if exist, then
  (vl-file-copy (findfile (cadr ObjListArg )) (strcat MyBackupPath "\\Bak_" (getvar "DWGNAME" )) nil ) ;; create a new "Bak_" copy
)
(setq When_Saving_And_Copy_Drawing_Reactor (vlr-dwg-reactor nil '((:vlr-saveComplete . When_Saving_And_Copy_Drawing_Function ))) )

To stop the reactor use:

(vlr-remove When_Saving_And_Copy_Drawing_Reactor ) ; Remove the reactor
(setq When_Saving_And_Copy_Drawing_Reactor nil )   ; Clear / assign nil to the reactor
(setq When_Saving_And_Copy_Drawing_Function nil )  ; Clear / assign nil to the function

: ) Happy Computing !

kennet