As an example:
Code:
;;;--------------------------------------------------------------------;
;;; Reactor function:
(defun VLR_DWG-IT ()
(vl-load-com)
(cond (*Reactor_BeginSave*)
((setq *Reactor_BeginSave*
(vlr-dwg-reactor
nil
'((:vlr-beginsave . saveCallback))))))
(prompt "\n*** ------ Save Reactor Activated. ------ ***")
(princ))
;;;--------------------------------------------------------------------;
;;; Callback function:
(defun saveCallback (dataBase fileName / _Send ss)
(defun _Send (ss loc)
;; © RenderMan, 2011
(sssetfirst nil ss) (ai_draworder loc))
(if (/= "0" (getvar 'clayer))
(setvar 'clayer "0"))
(if (setq ss (ssget "_x" '((0 . "DIMENSION,MTEXT,TEXT"))))
(_Send ss "_f"))
(if (setq ss (ssget "_x" '((0 . "HATCH"))))
(_Send ss "_b"))
(princ))
;;;--------------------------------------------------------------------;
;;; Autoload for named drawings:
(if (= 1 (getvar 'dwgtitled))
(VLR_DWG-IT))
;;;--------------------------------------------------------------------;
;;; Silent load:
(princ)