Object Reactor woes!

Can someone please help? I can’t seem to make Object Reactors persistent (see code in routine CreateObjectReactor-QtyChange below). When I open a drawing with Object Reactors I created, I receive the following messages:

Opening an AutoCAD 2000 format file.
Regenerating model.

; warning:erased VLA-object restored to NIL
; warning:erased VLA-object restored to NIL
; warning:erased VLA-object restored to NIL
; error: VLISP: internal: Document application(.VLX) not found
; error: VLISP: internal: Document application(.VLX) not found
; error: VLISP: internal: Document application(.VLX) not found

AutoCAD menu utilities loaded.

This is with no customization at all (acad.lsp, acaddoc.lsp, MyMenu.mnl, etc). What am I doing wrong?

Also, am I doing the “active document only” notification correctly? Will this notification be persistent?

(defun CreateObjectReactor-QtyChange (object-list app #leader-text / hole-reactor)
  (vl-load-com)
  (setq
    hole-reactor
    (vlr-pers
      (VLR-Object-Reactor
        object-list
        (list app #leader-text)
        '( VLR-erased . UpdateHoleCalloutText)
           VLR-copied . UpdateHoleCalloutText)
        &nbsp
      VLR-Object-Reactor
    vlr-pers
  setq
  (vlr-set-notification hole-reactor 'active-document-only)
)

 

Thanks Luis.

 

; warning:erased VLA-object restored to NIL

I'm getting the same message using persistant reactors, even when I call the
clean-up reactor (when the dwg is closed)
Any suggestions on how otherwise to remove the reactor?
Thanks.


;; -------------------------------------------------------------------------
----------------------
;; Establishes a cleanup reactor when closing drawing to
;; remove the persistence of orphaned or empty leader reactors

(defun leader_make_dwg_close_reactor ()
(setq leader_dwg_close_reactor
(vlr-dwg-reactor
"Leader_Cleanup"
'(vlr-beginClose . leader_reactor_purge))
)
))


;; Call the above function when loading this file to create the dwg_close
reactor...
(if (not leader_dwg_close_reactor) (leader_make_dwg_close_reactor))

;; -------------------------------------------------------------------------
----------------------

;; Purges empty and orphaned leader reactors - maybe?

;; Command line prompt

(defun C:LRP () (alert (leader_reactor_purge)))

;; Silent method - called by leader_dwg_close_reactor when closing drawing

(defun leader_reactor_purge (/ lreactors lr l0c l1c l2c)
(setq lreactors (cdar (vlr-reactors :vlr-object-reactor))
l0c 0
l1c 0
l2c 0)
(setq txt (strcat "Leader Reactor Summary \nTotal:\t\t" (itoa (length
lreactors))))

(foreach lr lreactors
(if (= (vlr-data lr) "Make_Leader")
(progn
(setq ownerlist (vlr-owners lr))
(cond ((= ownerlist nil)
(setq l0c (1+ l0c))
(vlr-remove lr)
(vlr-pers-release lr)
)
((= (length ownerlist) 1)
(setq l1c (1+ l1c))
(vlr-remove lr)
(vlr-pers-release lr)
)
(T
(setq l2c (1+ l2c))
)
)
)
)
)

(setq txt (strcat txt
"\nActive:\t\t" (itoa l2c)
"\nOrphaned:\t" (itoa l1c)
"\nEmpty:\t\t" (itoa l0c)
)
) ; returns txt string

)
;;--------------------------------------------------------------------------
-----------------------