This is a old post which i made a changes,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")