Batch/Script automation of Autocad

[devitg.89838]

Please see TS21336 on Autodesk's website.

Thanks I just understand .

[tedg]

Here's a Script Creator that runs your script on a drawing or drawings in a folder.
You edit it on the fly as required, and may also just test it in the current drawing,
before you run it on a folder of drawings.
.....

That's pretty sweet Terry!
I just did a bat/scr/lsp method on a bunch of drawings to clean up, purge and e-transmit, but your program doesn't require starting AutoCAD everytime.

Here's what mine looked like:
RECORD.BAT

FOR %%f in (T:\5053301\Sheets\"BUILDING"\*.dwg) do start /wait C:\"Program Files"\Autodesk\"AutoCAD Structural Detailing 2011"\acad.exe "%%f" /b "C:\lisp\RECORD\RECORD.scr"

RECORD.SCR

(load "C:\\lisp\\record\\record.lsp")
deleterev
adupurge
-etransmit
choose
RECORD
C
A
quit
y

And RECORD.LSP

;;deletes the layer G-ANNO-REVN and everything on it!
(defun c:deleterev (/ lr1)
(command "layer" "s" "0" "")
(setq lr1 (tblsearch "layer" "G-ANNO-REVN"))
(setq lr2 (tblsearch "layer" "G-ANNO-REVS"))   
  (if (= lr1 nil)
(command "layer" "s" "0" "")
(command "-laydel" "name" "G-ANNO-REVN" "" "y"))
  (if (= lr2 nil)
(command "layer" "s" "0" "")
(command "-laydel" "name" "G-ANNO-REVS" "" "y"))
(princ)
)
;;purge routine
(defun c:adupurge ()
(setq ce (getvar "cmdecho"))
    (setvar "cmdecho" 0)
 (command "layer" "s" "0" "")
 (command "zoom"  "e"  "zoom"  ".9x" ) 
 (repeat 3 
 (command "._purge" "_A" "*" "_N")
 (command "purge" "regapps" "" "n"))
   (setvar "cmdecho" ce)
(command "_qsave")
(princ)
)

But all I needed to do was apply the script commands on your program and it took care of them all wile AutoCAD remained open...much faster!

Thanks.

[irneb]

Ted, just as a suggestion: You don't need to quote each foldername individually. You can quote the entire path in one go: "C:\Program Files\Autodesk\AutoCAD Structural Detailing 2011\acad.exe"

Oh! Edit ... that's what was generated?

[tedg]

Ted, just as a suggestion: You don't need to quote each foldername individually. You can quote the entire path in one go: "C:\Program Files\Autodesk\AutoCAD Structural Detailing 2011\acad.exe"

Oh! Edit ... that's what was generated?

No I didn't know that, I will give it a try.
I can't remember why I needed to do that, maybe because the folder names with spaces?

Thanks I'll look into your suggestion.

[mihsan]

I would like Autocad to run without any user input from a scheduled routine. I have a *.bat file that starts autocad and open files in a folder...

chdir c:\ptc\ilinktrail
dir /B /S *.dwg > list_dwg.txt

for /f "delims=" %%f in (list_dwg.txt) do (
%startw% "C:\PTC\Ilinktrail\run_acad" "%%f"
)

Once autocad is open I want ot run the following *.scr file

ZOOM
Extents
overkill
all
scr-saveas-2000
scr-quit

I do not want to have to manually start Autocad or have manual inputs once autocad opens a file.

Is there a way to get the acaddoc.lsp to open a script file once a drawing file has been opened?

Thanks

jason

Dear Jason,

Try this in your *.scr file

hope it will help.

regen
zoom
extents
-overkill
al


qsave
quit



Thank you,


Regards,


Asad