Batch Printing LSP

[Anonymous]

I am trying to create a LSP routine that will run through the dwg files in a folder, open them up one by one and then print. I have adapted this lisp to do so but am having some problems.

As I understand it you cannot run a .lsp without an open drawing? So, I load up a drawing, any drawing, and then try to run this lisp. CAD will then open up each of the drawings in the selected directory but will only do so in the background of the existing drawing. When it goes to run the predetermined plot routine it will just keep printing the first drawing I had open over and over again. Now obviously I don't want this to happen  So what am I missing to make it open a drawing, plot, open the next drawing, plot etc 

Also is there a better way for me to go about doing this?

Thanks

(defun c:batch (/ dir files total ct docs doc)
(defun listAllFiles (path ext /)

(apply 'append
(cons
(mapcar
(function (lambda(x) (strcat path "\\" x)))
(vl-directory-files path ext 1)
)
(mapcar
(function (lambda(x) (listAllFiles (strcat path "\\" x) ext)))
(cddr (vl-directory-files path nil -1)) ; to exclude "." and ".."
)
)
)
)
(if (and
(setq dir (getfiled "Select a directory to process..." "Start here" "" 33))
(setq dir (vl-filename-directory dir))
)
(if (setq files (listAllFiles dir "*.dwg"))
(progn
(vl-load-com)
(setq total (itoa (length files))
ct 0
docs (vla-get-documents (vlax-get-acad-object))
)
(foreach file files
(setq doc (vla-open docs file)
ct (1+ ct)
)

(command "tilemode" "0")
(command "-plot" "y" "Layout1" "\\\\CTASERVER\\Brother MFC-J6520DW Printer" "A3 (297 x 420 mm)" "M"
"L" "N" "e" "F" "" "Y" "" "Y" "y" "N" "N" "n" "N" "y" )  
(setvar"DynMode" 0)

(prompt (strcat "\r" (itoa ct) " of " total " drawings processed."))


(vla-close doc :vlax-false)
)
(vlax-release-object doc)
(vlax-release-object docs)
)
(prompt (strcat "\nNo files of that type found in " dir " !"))
)
(prompt "\nNo path specified!")
)
(princ)
)

[hmsilva]

Hi HaleOED,

Autolisp  is a single document application.  Activating another document to run the "plot" command will stops and autolsip program...

I would suggest to use a .scr file to open each dwg file and call your_plot.lsp file.

You can use Auto/Visual LISP to write the temporary .scr file, and start the script.

Hope this helps,
Henrique

[Anonymous]

AutoCAD CoreConsole can be used...

Here is an exmple with hardcoded folder name -

Batch_Plot.bat file -

echo off
echo Starting AcCoreConsole
c:
cd C:\Program Files\Autodesk\AutoCAD 2013
echo ================================================================================
FOR %%f in ("C:\TEST\*.dwg") DO "C:\Program Files\Autodesk\AutoCAD 2013\AcCoreConsole.exe" /i "%%f" /s "C:\Test\Batch_Plot.scr" /l en-US
echo Pause when done. Hit [Enter] to continue...
pause

Batch_Plot.scr file -

(command "tilemode" "0")
(command "-plot" "y" "Layout1" "\\\\CTASERVER\\Brother MFC-J6520DW Printer" "A3 (297 x 420 mm)" "M" "L" "N" "e" "F" "" "Y" "" "Y" "y" "N" "N" "n" "N" "y" )
(setvar"DynMode" 0)

[Micke_ELE]

I recomend using a .cmd-file to run the script.

@echo off
setlocal EnableDelayedExpansion
cls
echo.
echo. Starting batch plott....
Echo.
ping -n 3 127.0.0.1 >nul
echo.
rem ;check if the exe-file exist
if not exist "%programfiles%\Autodesk\AutoCAD 2012 - English\acad.exe" goto err1
rem ;check if lisp-file exist 
if not exist plott.lsp goto err2
rem ;defun y is to prevent an error if the drawing is not in read only mode
for %%z in (*.dwg) do echo Open "%%z" (defun c:y()(princ)) y (load "plott.lsp") pline 0,0 0,1 1,1 c close y>>tmp.scr
echo.
echo. Running script in AutoCAD...
echo.
"%programfiles%\Autodesk\AutoCAD 2012 - English\acad.exe" /B tmp.scr
ping -n 3 127.0.0.1 >nul
goto done


goto end
:err1
echo.
echo. Autocad exicutable is not found!
echo.
goto end
:errl2
echo.
echo. The lisp-file is not found!
echo. 
:Done
if exist tmp.scr del tmp.scr
echo.
ping -n 3 127.0.0.1 >nul
:end
echo.
echo.
echo. This window is closing in 10 sek....
ping -n 10 127.0.0.1 >nul

Change the version of autocad and name of lisp-file.

Place the cmd and lsp-file in the folder you want to plot and run the cmd-file.

/Micke

[Anonymous]

I have done something similar before with a lisp function and no bat file.  You will need to write a couple of lines fo code to a file named acad.lsp, or acaddco.lsp. 

you will need to write a s::startup function to be ran when the drawing file opens.

(defun S::STARTUP () (custom-plot args))

Matthew

[Anonymous]

Thanks very much guys. I am very much a beginner when it comes to this sort of thing but I shall try to pick from what you guys have said, shoudl help me learn 🙂