Reactors..........

Callbacks must have arguments. The number of arguments is
specified in the help files.

 

Has anyone got any ideas why this is no working ?? I am trying to write a
drawing timer that activates and deactives with the Drawing Window. But this
seems to keep return "too many arguements" Any help would be greatly
appreciated.

(defun Time-Edit ()
(Reactor_Remove "Edit-Time")
(setq Doc-React (vlr-docmanager-reactor "Edit-Time"
'(vlr-documentToBeActivated . Start-Time)
vlr-documentToBeDeactivated . Between-Time)
)
)
(setq Open-React
(vlr-dwg-reactor "Edit-Time"
'(vlr-endDwgOpen . Start-Time) vlr-beginClose . End-Time))
)
)
)
)

(defun Start-Time () (alert "Timer Started"))

(defun Between-Time () (alert "Timer Paused"))

(defun End-Time () (alert "Timer Stopped"))

(defun Reactor_Remove (Nam / ReactorsInDwg ReactorGroup ReactorObject)
(setq ReactorsInDwg (VLR-Reactors))
(foreach ReactorGroup ReactorsInDwg
(foreach ReactorObject (cdr ReactorGroup)
(if (= (VLR-Data ReactorObject) Nam)
(VLR-Remove ReactorObject)
)
)
)
)

(Time-Edit)

Cheers

Greg McLandsborough