Calling a LISP function in many drawings

[daniel.j.wright112877]

Hi

I have a very handy LISP program (thanks to pbejse) but I'm trying to learn how to apply it to many drawings in the one directory. I tried Lee Macs script writer but didnt have much luck.


I typed this into the script line but it only came up with invalid file name and had me select a drawing file. I'm not sure where I went wrong here.

_.open *file* (load "C:\\Users\\Daniel\\Documents\\AutoCAD programs\\ReTagDup.lsp") retagdup _.saveas *file* _.close



I tried installing scriptpro but due to recent IT changes I'm having trouble installing new programs so didn't have any luck there.


Any ideas?

[pbejse]

check the file name syntax

_.open "D:/DrawingFolder/wright.dwg" (load "C:\\Users\\Daniel\\Documents\\AutoCAD programs\\ReTagDup.lsp") retagdup _.saveas "othername" _.close

"/" <-- forward slash for drawing filename

and

_.saveas "othername" <--extra space after _saveas

Note that the prompts and their order may change from version to version

You can however pre-load the lisp routine , read this from LM webiste http://www.lee-mac.com/autoloading.html

[mark.232312]

If I need to run a lisp or lisps on multiple drawings in a folder, I use a neat little free third party program called Starbatch.
It runs direct without altering the registry.

Can be found here: -

http://sourceforge.net/projects/starbatch/

I wouldn't be without this very useful application.

[dong95]

Probably another way is to have a batch file, a script and your lisp program.
batch file example (saved as batch.bat):

 FOR %%V IN (*.DWG) DO START /W "C" "C:\Program Files\Autocad 2010\acad.exe" %%V /b "script"

script file example (saved as script.scr):

(load "C:/Your Folder Path/LISP.lsp") Test

The "Test" is lisp syntax.

[daniel.j.wright112877]

Hi everyone.

Thanks for the help but as usual I'm lost.

pbejse - What I wrote there was what I was trying to write into Lee Mac's script writer. *file* (i thought) was a token in the program replaced with each name of the drawings in the directory. Didn't realise double space after saveas but it didn't seem to help.

mark.232312 - i downloaded starbatch but couldn't get it to actually open autocad. not sure what was going wrong there

dong95 - not sure where to start with your method. How do I call the batch file? Will that code save each file? How does it know which drawing files to open? Does it focus on a specific directory?

[Bruno.Valsecchi]

Hi,

Try this ?
Start this lisp in a new drawing, and after result, use the srcript command for execute it

(defun c:make_script ( / prefix file_scr)
	(setq
		prefix (strcat (vl-filename-directory (getfiled "Select a file drawing for batch your directory" "" "dwg" 16)) "\\")
		file_scr (open (strcat prefix "batch_dir.scr") "w")
	)
	(foreach dwg (vl-directory-files prefix "*.dwg" 1)
		(write-line "_.open" file_scr)
		(write-line (strcat "\"" prefix dwg "\"") file_scr)
;;Begin of your commands
		(write-line "(load \"C:\\Users\\Daniel\\Documents\\AutoCAD programs\\ReTagDup.lsp\")" file_scr)
		(write-line "retagdup" file_scr)
;;End of your commands
		(write-line "_.qsave" file_scr)
		(write-line "_.close" file_scr)
	)
	(close file_scr)
	(princ (strcat "\nYou can use the SCRIPT :" prefix "batch_dir.scr"))
	(prin1)
)

[dong95]

Hi everyone.

Thanks for the help but as usual I'm lost.

pbejse - What I wrote there was what I was trying to write into Lee Mac's script writer. *file* (i thought) was a token in the program replaced with each name of the drawings in the directory. Didn't realise double space after saveas but it didn't seem to help.

mark.232312 - i downloaded starbatch but couldn't get it to actually open autocad. not sure what was going wrong there

dong95 - not sure where to start with your method. How do I call the batch file? Will that code save each file? How does it know which drawing files to open? Does it focus on a specific directory?

The batch file will open the drawing file and will execute the script that calls a lisp routine. Batch process will not open another drawing file unless the script has been executed. The three files (batch, script & lisp) is accompanied on your specific directory.

[mark.232312]

mark.232312 - i downloaded starbatch but couldn't get it to actually open autocad. not sure what was going wrong there?

Hi Daniel,

To use Starbatch, you need Microsoft .NET Framework 3.5 / 4, loaded onto your computer.

If you do not have this it could be the problem.

Can be found here: -

http://www.microsoft.com/net

[daniel.j.wright112877]

Cheers guys

Starbatch still didn't work - I had frame work 4 so i did a repair on it and still no luck.

Bruno.Valsecchi - beautiful work! Thanks alot. Worked a treat!

[USMCBody]

my disclaimer here is that I would say I'm still green at programming. Got some things figured out, but I'm definitely not the cream of the crop type...

I'm working on the same thing. Still trying to make it work but that is a separate problem I think I will fix in the end...

Currently I don't get why you have to write a scr file and then tell it to run. Why can't you just say in the lisp program open file, run programs, save, close, open another file, repeat... Instead of writing a lisp program to write a script file to open file, run programs, save, close, open another file, repeat... end writing script, and then tell it to run the script...

Is it because the lisp program 'lives' in a dwg file and once it is closed it end the lisp program? Can you not keep a default DWG file open to run the lisp program to open other files and such?

also when you're writing to the script, why do you have to have a file path surrounded by '\'. Ex. \C:\\folder\\folder\\file.dwg\