topic Re: Batch file to create a script which runs a lisp command on each drawing file in the same directory. in Visual LISP, AutoLISP and General Customization Forum

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

Kate.RobinsonR9FXS — Tue, 31 Oct 2023 23:03:04 GMT

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

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

paullimapa — Wed, 01 Nov 2023 04:36:06 GMT

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"

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

paullimapa — Wed, 01 Nov 2023 07:14:04 GMT

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" )

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

Kate.RobinsonR9FXS — Wed, 01 Nov 2023 23:39:59 GMT

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

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

paullimapa — Wed, 01 Nov 2023 23:52:56 GMT

you could try including at the start of the script:

Filedia 0

and then after opening the last drawing:

Filedia 1