Batch file to create a script which runs a lisp command on each drawing file in the same directory.

[Kate.RobinsonR9FXS]

Hello,

I am trying to create a batch file which creates a single script file which i can drop into cad and that script file will open a drawing in a directory (same as batch file) and then load a lisp routine (also in same directory) then run that lisp command, save and close that drawing file and then cycle through each drawing in the same directory and run those same commands.

Below is what i have so far which does what i want it to do however it just endlessly creates the script for only the first drawing from the list instead of going to the next drawing in the list and eventually ending after the list is finished.

@Anonymous off

REM Get the current directory
set script_dir=%~dp0

REM Create the list file
dir /b "%script_dir%*.dwg" > "%script_dir%drawing_list.txt"

REM Create the script file
echo (setq script (open "%script_dir%temp_script.scr" "a")) > "%script_dir%temp_script.scr"

REM Read the first line from the list file
set /p drawing=<"%script_dir%drawing_list.txt"

REM Loop through each drawing in the list file
:loop
if not defined drawing goto :eof

REM Add the commands for the current drawing to the script file
echo (command "_open" "%script_dir%%drawing%") >> "%script_dir%temp_script.scr"
echo (command "_load" "MyProgram.lsp" nil) >> "%script_dir%temp_script.scr"
echo (command "(c:MyCommand)") >> "%script_dir%temp_script.scr"
echo (command "_qsave") >> "%script_dir%temp_script.scr"
echo (command "_close") >> "%script_dir%temp_script.scr"

REM Read the next line from the list file
set /p drawing=<"%script_dir%drawing_list.txt"

REM Continue looping through the drawings
goto :loop

[paullimapa]

Would be curious to see the resulting contents in the script. If it doesn’t show the echo command to open the next dwg in the directory list then the set /p drawing is not working 

Also I’m not sure how you’re able to get the following 2 lines to execute:

echo (command "_load" "MyProgram.lsp" nil) >> "%script_dir%temp_script.scr"

echo (command "(c:MyCommand)") >> "%script_dir%temp_script.scr"

The proper syntax should look something like this:

echo (load"MyProgram") >> "%script_dir%temp_script.scr"

echo (c:MyCommand) >> "%script_dir%temp_script.scr"

[paullimapa]

Give this a shot which only works if there are no spaces in the directory name. Save the file as a .bat or .cmd file and run it.

@Anonymous off
REM Only works if there are no spaces in the current directory name
REM Get the current directory
set script_dir=%~dp0

REM Create the list file
dir /b "%script_dir%*.dwg" > "%script_dir%drawing_list.txt"

REM Create the script file
REM echo (setq script (open "%script_dir%temp_script.scr" "a")) > "%script_dir%temp_script.scr"

REM Loop through drawing list file
For /F "tokens=* delims=" %%a in (%script_dir%drawing_list.txt) do (
echo open ^"%script_dir%%%a^" >> "%script_dir%temp_script.scr"
echo ^(load"MyProgram"^) >> "%script_dir%temp_script.scr"
echo ^(c:MyCommand^) >> "%script_dir%temp_script.scr"
echo qsave >> "%script_dir%temp_script.scr"
echo close >> "%script_dir%temp_script.scr"
)

[Kate.RobinsonR9FXS · Accepted solution]

Have actually managed to get this to work by pasting a couple of batch files together (even with directory spaces). Although have removed the load command and just loaded the lisps into my startup.

Now having trouble when running the script, it still opens the dialog box for opening a dwg despite the script having the full path of the dwg name and location? any thoughts what this issue could be? I feel like there is a system variable amiss here.

@Anonymous off

echo Going to execute DRGList
dir /b /o:n *.dwg > DRGList.txt
call :append DRGList.txt
echo Returned from DRGList

echo Going to execute List
call :temp_script DRGList.txt
echo Returned from List
::echo.&pause

echo.&goto :eof

:append
REM Appends the current directory to each line in a text file
REM %1 - file name to append the string to
SETLOCAL
set "f=%~1"
(for /f "tokens=*" %%a in (%f%) do (
    echo %cd%\%%a
)) > "%temp%\t0815.txt"
move /y "%temp%\t0815.txt" "%f%"
EXIT /b

:temp_script
REM Creates a script to open the drawings, apply commands, save, and close
REM %1 - file name to create the script for
SETLOCAL
set "f=%~1"
(for /f "tokens=*" %%a in (%f%) do (
echo open ^"%%a^"
echo Mycommand
echo qsave 
echo close 
)) > "temp_script.scr"
EXIT /b

[paullimapa]

you could try including at the start of the script:

Filedia 0

and then after opening the last drawing:

Filedia 1