0 Members and 1 Guest are viewing this topic.
(defun c:Batch_Via_ACADDOC_LSP ();;Load this acaddoc.lsp within a support path.;;If ;; is in front of the line, it will not work when opening drawings.;;Remove ;; this to get command to work on each drawing it opens.;;Place Code Below;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(command "-layout" "set" "");;(command "-layer" "set" "0" "freeze" "*SEAL*" "");;(command "purge" "a" "" "n");;(command "purge" "regapps" "" "n");;(command "purge" "a" "" "n");;(command "_.close" "");;Closes Drawing with Saving;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Keep Bottom Code)(c:Batch_Via_ACADDOC_LSP)(princ)
mailmaverick, what kind of lisp you wnat to run? If this lisp uses only activex methods, it could be run in ObjectDBX mode.