Topic: MOVEBAK

[capsochist]

Hi there,

I am trying to place a 'MOVEBAK' line of code in my company acaddoc.lsp which points to a shared server backup location as I have not found a way to do this through the AutoCAD 'Open/Save' Options dialog.

Is there a line of code I could add to the below, so that the backup file would be saved into a folder with the current CAD users name (i.e, H:\Backup\CAD\username)? Username would need to be created by the code initiating the 'MOVEBAK' command since there are over 200 people in our firm.

Code - Auto/Visual Lisp: [Select]

1. (command "MOVEBAK" "H:\Backup\CAD")

Thank you!

[Stefan]

Code - Auto/Visual Lisp: [Select]

1. (if
2.   (vl-mkdir
3.     (setq dir
4.       (strcat
5.         "H:\\Backup\\CAD\\"
6.         (getenv "UserName")
7.       )
8.     )
9.   )
10.   (setenv "AcetMoveBak" dir)
11. )

[capsochist]

Code - Auto/Visual Lisp: [Select]

1. (if
2.   (vl-mkdir
3.     (setq dir
4.       (strcat
5.         "H:\\Backup\\CAD\\"
6.         (getenv "UserName")
7.       )
8.     )
9.   )
10.   (setenv "AcetMoveBak" dir)
11. )

Thank you so much! Would you mind providing comments so I can understand what is happening if I would like to make changes in the future?

For example, I am thinking of having the BAK files actually point to N:\_2019\1019200\CAD\BAK\Username

The location of this would need to pull the directory for each file based on the file location currently being worked in.

Thanks again!

[ronjonp]

See if you can follow this. Welcome to TheSwamp

Code - Auto/Visual Lisp: [Select]

1. (defun c:bak (/ dir)
2.   ;; Make the BAK subfolder in the working drawing
3.   (vl-mkdir (strcat (setq dir (getvar 'dwgprefix)) "BAK"))
4.   ;; Make the BAK\Username subfolder in the working drawing
5.   (vl-mkdir (setq dir (strcat dir "\\BAK\\" (getenv "UserName"))))
6.   ;; If the directory exists
7.   (if (VL-FILE-DIRECTORY-P dir)
8.     ;; Set the environment variable
9.     (setenv "AcetMoveBak" dir)
10.   )
11.   (princ)
12. )

[Marc'Antonio Alessi]

See if you can follow this. Welcome to TheSwamp

Code - Auto/Visual Lisp: [Select]

1. (defun c:bak (/ dir)
2.   ;; Make the BAK subfolder in the working drawing
3.   (vl-mkdir (strcat (setq dir (getvar 'dwgprefix)) "BAK"))
4.   ;; Make the BAK\Username subfolder in the working drawing
5.   (vl-mkdir (setq dir (strcat d "BAK\\" (getenv "UserName"))))
6.   ;; If the directory exists
7.   (if (VL-FILE-DIRECTORY-P dir)
8.     ;; Set the environment variable
9.     (setenv "AcetMoveBak" dir)
10.   )
11.   (princ)
12. )

(vl-mkdir (setq dir (strcat dir "BAK\\" (getenv "UserName")))) 

[ribarm]

(vl-mkdir (setq dir (strcat dir "\\BAK\\" (getenv "UserName"))))

[capsochist]

See if you can follow this. Welcome to TheSwamp

Code - Auto/Visual Lisp: [Select]

1. (defun c:bak (/ dir)
2.   ;; Make the BAK subfolder in the working drawing
3.   (vl-mkdir (strcat (setq dir (getvar 'dwgprefix)) "BAK"))
4.   ;; Make the BAK\Username subfolder in the working drawing
5.   (vl-mkdir (setq dir (strcat d "BAK\\" (getenv "UserName"))))
6.   ;; If the directory exists
7.   (if (VL-FILE-DIRECTORY-P dir)
8.     ;; Set the environment variable
9.     (setenv "AcetMoveBak" dir)
10.   )
11.   (princ)
12. )

Thank you, I think I follow the comment explanations, which are relatively straight forward. Before moving the backup, I just need to pull the directory as a variable so the function knows what sandbox to operate within. I also appreciate the warm welcome!

To be clear for anyone who finds this post useful, removing the general container for this code, allows it to run within the acaddoc.lsp
 

Code - Auto/Visual Lisp: [Select]

1. ;; Make the BAK subfolder in the working drawing
2.   (vl-mkdir (strcat (setq dir (getvar 'dwgprefix)) "BAK"))
3.   ;; Make the BAK\Username subfolder in the working drawing
4.   (vl-mkdir (setq dir (strcat dir "BAK\\" (getenv "UserName"))))
5.   ;; If the directory exists
6.   (if (VL-FILE-DIRECTORY-P dir)
7.     ;; Set the environment variable
8.     (setenv "AcetMoveBak" dir)
9.   )

without needing the following code:

Code - Auto/Visual Lisp: [Select]

1. (LOAD "Z:/LD_CONFIG/LD_Lisp/BAK.lsp");; LOAD BAK COMMAND TO DIRECTORY
2. (COMMAND "BAK");; CREATE AND EXECUTE BAK LOCATION THIS DWG

Please let me know if you feel this is bad practice for acaddoc.lsp so long as it is commented on clearly.

[ronjonp]

(vl-mkdir (setq dir (strcat dir "\\BAK\\" (getenv "UserName"))))

Oops  .. fixed above.

[ronjonp]

See if you can follow this. Welcome to TheSwamp

Code - Auto/Visual Lisp: [Select]

1. (defun c:bak (/ dir)
2.   ;; Make the BAK subfolder in the working drawing
3.   (vl-mkdir (strcat (setq dir (getvar 'dwgprefix)) "BAK"))
4.   ;; Make the BAK\Username subfolder in the working drawing
5.   (vl-mkdir (setq dir (strcat d "BAK\\" (getenv "UserName"))))
6.   ;; If the directory exists
7.   (if (VL-FILE-DIRECTORY-P dir)
8.     ;; Set the environment variable
9.     (setenv "AcetMoveBak" dir)
10.   )
11.   (princ)
12. )

Thank you, I think I follow the comment explanations, which are relatively straight forward. Before moving the backup, I just need to pull the directory as a variable so the function knows what sandbox to operate within. I also appreciate the warm welcome!

To be clear for anyone who finds this post useful, removing the general container for this code, allows it to run within the acaddoc.lsp
 

Code - Auto/Visual Lisp: [Select]

1. ;; Make the BAK subfolder in the working drawing
2.   (vl-mkdir (strcat (setq dir (getvar 'dwgprefix)) "BAK"))
3.   ;; Make the BAK\Username subfolder in the working drawing
4.   (vl-mkdir (setq dir (strcat dir "BAK\\" (getenv "UserName"))))
5.   ;; If the directory exists
6.   (if (VL-FILE-DIRECTORY-P dir)
7.     ;; Set the environment variable
8.     (setenv "AcetMoveBak" dir)
9.   )

without needing the following code:

Code - Auto/Visual Lisp: [Select]

1. (LOAD "Z:/LD_CONFIG/LD_Lisp/BAK.lsp");; LOAD BAK COMMAND TO DIRECTORY
2. (COMMAND "BAK");; CREATE AND EXECUTE BAK LOCATION THIS DWG

Please let me know if you feel this is bad practice for acaddoc.lsp so long as it is commented on clearly.

If you want to run this on startup you can call like so (c:bak). This will keep the 'dir' variable localized. I also added a check for drawing name and read-only.

Code - Auto/Visual Lisp: [Select]

1. (defun c:bak (/ dir)
2.   ;; If the drawing has been named and is not read-only
3.   (if (= 1 (getvar 'dwgtitled) (getvar 'writestat))
4.     (progn ;; Make the BAK subfolder in the working drawing
5.            (vl-mkdir (strcat (setq dir (getvar 'dwgprefix)) "BAK"))
6.            ;; Make the BAK\Username subfolder in the working drawing
7.            (vl-mkdir (setq dir (strcat dir "\\BAK\\" (getenv "UserName"))))
8.            ;; If the directory exists
9.            (if (vl-file-directory-p dir)
10.              ;; Set the environment variable
11.              (setenv "AcetMoveBak" dir)
12.            )
13.     )
14.   )
15.   (princ)
16. )
17. (c:bak)

Also .. the previous code you used had a typo in it. Use this post as your base.