Automate running lisp on folder of files

[laurell]

Hello,

 

I'm an AutoLISP newbie and I need to iterate through a folder of .DWG files, running a lisp on each file one at a time with no prompts to the user. Can this be done in AutoLISP? Here is the lisp that will be run on each file:

 

;delete_layers_except
(vl-load-com)
;(defun c:demo  (/ aDoc name)
     (setvar 'Clayer "0")
     (repeat 4
           (vla-purgeall
                 (setq aDoc (vla-get-ActiveDocument
                                  (vlax-get-acad-object)))))
     (vlax-for
            itm
                 (vla-get-layers aDoc)
           (if (and
                     (not (wcmatch
                                (setq name (vla-get-name itm))
                                "*|*"))
                     (not (eq name "0"))
                     (not (member name
                                  '("Fixture-Shapes"
                                    "CHECKLANE"
                                    ;"Arch-Wall-Interior (Construction)"
                                    ;"Arch-Wall-Interior"
                                    ;"Arch-Wall-Exterior"
                                    ))))
                 (progn
                       (vla-put-lock itm :vlax-false)
                       (vl-cmdf "_.-laydel" "_N" name "" "_Y"))
                 )
           )
     (repeat 4 (vla-purgeall aDoc))
     (princ)
;     )
     
;explode_all
;(defun c:explodeall ()
   (setvar "draworderctl" 0)
   (setvar "qaflags" 1)
   (command "._explode" (ssget "X" )"")
   (setvar "qaflags" 0)
;    )

;erase_hatch
;(defun c:nohatch ()
   ;(if (or (ssget '((0 . "HATCH"))) (ssget "_X" '((0 . "HATCH"))))
   (setq ss1 (ssget "X" '((0 . "HATCH"))))
   (command "_.erase" ss1 "")
;    )

;plot
;(defun c:pp ()
 (command "-plot" "no" "Layout1" "previous plot" "DWG to PDF" "" "" "")
 (princ) 
;  )

 

Thank you!!

[Lee Mac]

Use a Script to:

 

• Open drawing.
  

 

• Load LISP program.
  

 

• Run LISP program.
  

 

• Save drawing.
  

 

• Close drawing.