;;; zoome.LSP Jon Brazier 10/2003
;;; Automatically creates a script file to zoom extents for all dwgs in drawing folder.

(defun C:autobind (/ FULL_NAME LOG_NAME FNAME_DIR FNAME_LIST
  SCR_NAME FILE IN)
  (setq FULL_NAME (getfiled "Select A Drawing File" "" "dwg" 8))
  (if FULL_NAME (progn
    (setq LOG_NAME (getvar "loginname"))
    (setq FNAME_DIR (vl-filename-directory FULL_NAME))
    (setq FNAME_LIST (vl-directory-files FNAME_DIR "*.dwg"))
    ;;; Write script File
    (if FNAME_LIST (progn
      (setq SCR_NAME (strcat FNAME_DIR "\\" LOG_NAME ".scr"))
      (setq FILE (open SCR_NAME "w"))
      (setq IN 0)
      (repeat (length FNAME_LIST)
        (setq FNAME (nth IN FNAME_LIST))
        (setq FNAME (vl-filename-base FNAME))
        (write-line "open" FILE)
        (write-line (strcat FNAME_DIR "\\" FNAME) FILE)
        (write-line "xref" FILE)
       (write-line "b" FILE)
       (write-line "*" FILE)
        (write-line "qsave" FILE)
        (write-line "close" FILE);;Not available under SDI mode
       (setq IN (1+ IN))
      );;repeat
      (close FILE)
;;; Uncomment this line of code to execute the script file
;;      (command "script" SCR_NAME)
    ))
  ))
  (princ)
)