Topic: Monitoring when a system variable changes via reactors

[ELOQUINTET]

It has been brought to my attention that one of our routines is removing hatch association and not resetting it and i am trying to trace which one. what i am looking for is perhaps a reactor that i can put in our acad.lsp would alert us when the hpassoc variable changes to 0. I did a search on here and found this topic but i just want to monitor this one variable and am not sure how to modify these to achieve that. Can somebody help me out?

http://www.theswamp.org/index.php?topic=8822.0

[ELOQUINTET]

i found this code kerry posted awhile ago that is supposed to alert when autosave is turned off and put it in my acad.lsp when i set savetime to 0 i get the error below, what am i doing wrong?


Enter new value for SAVETIME <5>: 0
; error: no function definition: KDUB:REACTORSYSVARCHANGEDREACTOR

Code: [Select]

;;; codehimbelonga kwb@theSwamp
;;
(if kdub:reactorSysvarReactor
  (vlr-remove kdub:reactorSysvarReactor)
)
(setq kdub:reactorSysvarReactor (vlr-sysvar-reactor
                                  nil
                                  '((:vlr-sysvarchanged
                                     .
                                     kdub:reactorSysVarChangedReactor
                                    )
                                   )
                                )
)
(defun kdub:reactorSysVarChangedReactor (data callbacks /)
  ;; (setq *g:reactorSysVarChangedReactor* (cons (car callbacks) *g:reactorSysVarChangedReactor*))
  (if (= (car callbacks) "SAVETIME")
    (alert "wheeeee")
  )
  (princ)
)

[T.Willey]

It doesn't look like a system variable reactor will catch this variable.  I loaded one, and tried the hatch command, and it doesn't show 'hpassoc' in the list of variables changed, even though I changed it twice within the dialog box.  Incase you want to know, here is the code used.

Code: [Select]

(if (not GlbVarReactorSystemVariable)
 (setq GlbVarReactorSystemVariable (vlr-sysvar-reactor "HatchAssociation" '((:vlr-sysVarChanged . HatchAssocAlert))))
)
(defun HatchAssocAlert (React Results)
(print Results)
;|
(if
 (and
  (= (car Results) "HPASSOC")
  (cadr Results)
;  (equal (getvar "hpassoc") 0)
 )
 (alert "System variable \"HpAssoc\" has changed to 0.")
)
|;
(princ)
)


[ELOQUINTET]

hmmm i see anyone else know of another method. it seems strange that associativity is not a property that one can monitor via reactor but hey what do i know

[Kerry]

Enter new value for SAVETIME <5>: 0
; error: no function definition: KDUB:REACTORSYSVARCHANGEDREACTOR

Sounds like you had the reactor set but the callback wasn't loaded.
I just retried that and it works fine for me ...
Have you reloaded it and retried ?

[ELOQUINTET]

kerry i just found yours and was using it as an example but i was actually trying to monitor hatch associativity which tim just told me is not a variable that reactors will catch. read man read 

[Kerry]

kerry i just found yours and was using it as an example but i was actually trying to monitor hatch associativity which tim just told me is not a variable that reactors will catch. read man read 

found this code kerry posted awhile ago that is supposed to alert when autosave is turned off and put it in my acad.lsp when i set savetime to 0 i get the error below, what am i doing wrong?

I thought I did read it. I must be more senile than people say.