batch recoverall

[spydr101]

I've spent 2 days trying to find a way to batch recoverall, and not a single person has posted online any code for a script like this. Everyone mentions write a script and use scriptpro, but that doesnt work because you need to manually enter in the drawing filenames and path in the script, not just add the dwg in scriptpro and have it run. The closest I got was setting filedia to 1, and enter in the filenames manually for the script, but I get prompted to hit "close" after every recover - which defeats the purpose of a script in the first place. I need to run recoverall on an entire directory twice (but having a script do it once and I just run it twice is ok).

Im guessing lisp is the right way to go about doing this, but I have 0 experience with it, and I dont think I can learn it fast enough on my own to write this script (I am switching jobs in 3 weeks). Any advice?

[marko_ribar]

If you want to recover all *.dwg files in specified directory - qsave them in newest file format and you are not annoyed by displaying log message where you must press enter to go on further, you can use this code :

(defun c:rcdir ( / pth filelst)
(setq pth (getstring "\nType path where are *.dwg files to recover <ex. c:/.../.../> : "))
(setq filelst (vl-directory-files pth "*.dwg"))
(foreach file filelst (command "recoverall" (strcat pth file)) )
(princ)
)

M.R.

[spydr101]

Thank you! Exactly what I needed. I didnt realize that the problem for us was it needed to be in 2010 format for recoverall to actually work, I thought it was just some strange reason recoverall worked the 2nd time in a row but not the first.

[marko_ribar]

Similar to Thread where is activated script file for multiple open-qsave and closeall, you can use this code to generate script (test.scr) in path you in start specify where are *.dwg files for recover-audit-qsave and closeall... This way you can save your *.dwg files in file format you want (firstly you must specify what will that format be through OPTIONS -> Open&Save Files Tab -> Default save file format (select from drop down bar)... After this you can apply this code :

(defun c:brfd () (c:batchrecoverfilesindir))
(defun c:batchrecoverfilesindir ( / FILELST FILEN K PTH PTHFILELST SCRFILE)
(setq pth (getstring "\nSpecify path direcory where are *.dwg files for batch recover-qsave-close <ex. c:/.../.../ : "))
(setq filelst (vl-directory-files pth "*.dwg"))
(foreach file filelst (setq pthfilelst (cons (strcat pth file) pthfilelst)) )
(setq filen (length filelst))
(setq scrfile (open (strcat pth "test.scr") "w"))
(setq k -1)
(repeat filen
(setq k (1+ k))
(princ "Recover" scrfile)
(princ "\n" scrfile)
(prin1 (nth k pthfilelst) scrfile)
(princ "\n" scrfile)
(princ "\n" scrfile)
(princ "Audit" scrfile)
(princ "\n" scrfile)
(princ "Y" scrfile)
(princ "\n" scrfile)
(princ "Qsave" scrfile)
(princ "\n" scrfile)
)
(princ "CloseAll" scrfile)
(princ "\nN" scrfile)
(princ "\n" scrfile)
(close scrfile)
(command "script" (strcat pth "test.scr"))
(princ)
)
(princ "\nType \"brfd\" for batch recover-qsave-close *.dwg files in specified directory")
(princ)

M.R.

[lstarbird]

Marko, I think this is exactly what I'm looking for! But may I ask a newbie question?...what's the next step for using this code?

Thanks!

[pheadpro]

Great code sir. I snagged it for our use on a file set that got corrupted. Credit for your work was added to the saved code. Much appreciated !

Similar to Thread where is activated script file for multiple open-qsave and closeall, you can use this code to generate script (test.scr) in path you in start specify where are *.dwg files for recover-audit-qsave and closeall... This way you can save your *.dwg files in file format you want (firstly you must specify what will that format be through OPTIONS -> Open&Save Files Tab -> Default save file format (select from drop down bar)... After this you can apply this code :

(defun c:brfd () (c:batchrecoverfilesindir))
(defun c:batchrecoverfilesindir ( / FILELST FILEN K PTH PTHFILELST SCRFILE)
(setq pth (getstring "\nSpecify path direcory where are *.dwg files for batch recover-qsave-close <ex. c:/.../.../ : "))
(setq filelst (vl-directory-files pth "*.dwg"))
(foreach file filelst (setq pthfilelst (cons (strcat pth file) pthfilelst)) )
(setq filen (length filelst))
(setq scrfile (open (strcat pth "test.scr") "w"))
(setq k -1)
(repeat filen
(setq k (1+ k))
(princ "Recover" scrfile)
(princ "\n" scrfile)
(prin1 (nth k pthfilelst) scrfile)
(princ "\n" scrfile)
(princ "\n" scrfile)
(princ "Audit" scrfile)
(princ "\n" scrfile)
(princ "Y" scrfile)
(princ "\n" scrfile)
(princ "Qsave" scrfile)
(princ "\n" scrfile)
)
(princ "CloseAll" scrfile)
(princ "\nN" scrfile)
(princ "\n" scrfile)
(close scrfile)
(command "script" (strcat pth "test.scr"))
(princ)
)
(princ "\nType \"brfd\" for batch recover-qsave-close *.dwg files in specified directory")
(princ)

M.R.

[BlackBox]

FWIW -

AutoCAD 2015 introduced the new Recover API, which means that drawings can be recovered without being opened in the Editor (i.e., much, much faster).



Cheers