Quantcast
Viewing all articles
Browse latest Browse all 14319

Lisp Routine that opens multiple scripts

Is there a way to have a Lisp Routine open multiple script files?

 

I have 10 types of scripts, that are specific to the type of file they open (as shown below). which simply open a file, purge/audit, save and close.

open "Q:\PROJECTS\321700\Field Management\Coordination\Electrical\Sleeving\613\321700_ES-613-Lev01.dwg"
audit y
-purge all * n
-purge R * n
audit y
qsave
close
open "Q:\PROJECTS\321700\Field Management\Coordination\Electrical\Sleeving\613\321700_ES-613-Lev02.dwg"
audit y
-purge all * n
-purge R * n
audit y
qsave
close

 The file above was named ES-613.

 

I would like to create a Lisp Routine that opens this script, *Some how closes the file*, and then opens another script.  Is this even posible??

 

For example:

(defun c:Audit-Purge ()
	(command ".SCRIPT" "O:/Users/Kurt N/Script/Novartis/NovartisPURGE/ES-615.scr")
	(PROMPT "ES-615 Done.")
	(princ)
	(command ".SCRIPT" "O:/Users/Kurt N/Script/Novartis/NovartisPURGE/ES-613.scr")
	(PROMPT "ES-613 Done.")
	(princ)
ECT>>....
)

 

I know the alternitive solution would be to either have script 615 call on another script "613" and so on....

 

Or

 

Just copy and paste all the scritps together....

 

But

 

I had my hopes set on using this method involving a lisp

Image may be NSFW.
Clik here to view.

Viewing all articles
Browse latest Browse all 14319

Trending Articles