Script to execute lisp on multiple drawings

[peter]

I would suggest creating a dbx routine to change multiple drawings without having to open them. If you are interested I can post some code to get your started.


Peter Jamtgaard

[jrd.chapman]

I would suggest creating a dbx routine to change multiple drawings without having to open them. If you are interested I can post some code to get your started

That would be great Peter! Always eager to try and learn new things.

[kilari_venkatesh693618]

I would like to add the following lines after ;; open/make a scriptfile to write to But i see at the command prompt the open command is still active which leads to filedia 0 again
even though i make filedia to 1 before (close File#1)

(setq UserCat (vl-filename-directory UserFile))
(setq FileList (vl-directory-files UserCat "*.dwg" 1))
(setq File#1 (open "c:/Lockup.scr" "w"))
;; open/make a scriptfile to write to
(princ "setvar\n" File#1)
(princ "filedia\n" File#1)
(princ "0\n" File#1)
(foreach DwgName FileList
(setq FileName (strcat "\"" UserCat "\\" DwgName "\""))
(princ "open\n" File#1)
(princ (strcat FileName "\n") File#1)
;;Below are commands to run on each drawing...
(princ "audit\n" File#1)
(princ "Y\n" File#1)
(princ "(load \"BatchLockRun.vlx\")\n" File#1)
(princ "(C:BATCHLOCKRUN)\n" File#1)
(princ "audit\n" File#1)
(princ "Y\n" File#1)
(princ "_.qsave\n" File#1)
(princ "_.close\n" File#1)
)
(princ "setvar\n" File#1)
(princ "filedia\n" File#1)
(princ "1\n" File#1)
(close File#1)
(command "script" "C:\\Lockup.scr")

Just thought I'd share the finished product. Modified Kennet's code (thank you so much again kennet...what I've learned about creating a script from within Lisp is invaluable and I will use it a lot in future applications...)

It is working like a charm so far....Here is what I came up with:

(defun c:BatchLock
	   (/ UserFile UserCat FileList File#1 DwgName FileName)
  (vl-load-com)
  (setq UserFile
  (getfiled "Select a drawing within the directory to process"
	 "c:/"
	 "dwg"
	 16
  )
  )
  (setq UserCat (vl-filename-directory UserFile))
  (setq FileList (vl-directory-files UserCat "*.dwg" 1))
  (setq File#1 (open "c:/Lockup.scr" "w"))
  ;; open/make a scriptfile to write to
  (foreach DwgName FileList
	(setq FileName (strcat "\"" UserCat "\\" DwgName "\""))
	(princ "open\n" File#1)
	(princ (strcat FileName "\n") File#1)
	;;Below are commands to run on each drawing...	
	(princ "audit\n" File#1)
	(princ "Y\n" File#1)
	(princ "(load \"BatchLockRun.vlx\")\n" File#1)
	(princ "(C:BATCHLOCKRUN)\n" File#1)
	(princ "audit\n" File#1)
	(princ "Y\n" File#1)
	(princ "_.qsave\n" File#1)
	(princ "_.close\n" File#1)
  )
  (close File#1)
  (command "script" "C:\\Lockup.scr")
  (princ)
)
(princ "\nBatchLock loaded.")
(princ)

Thanks again to everyone for their help!!