(defun c:ass (/ ogg collegaReactor)
(setq ogg (car (entsel)))
(setq collegaReactor
(vlr-object-reactor (list (vlax-ename->vla-object ogg)) "NOMEAPP"
'(
(:vlr-modified . testedit)
(:vlr-objectClosed . endedit)
)
)
)
)
(defun testedit (notifier-object reactor-object parameter-list / ogg collegaReactor)
(alert "testedit")
)
(defun endedit (notifier-object reactor-object parameter-list / ogg collegaReactor)
(alert "endedit")
)
As an aside: since Reactors are considered a more advanced area of Visual LISP, I would strongly suggest that you have a good grasp of AutoLISP / Visual LISP before working with them. Without solid coding, reactors will have you pulling your hair out before too long.
(setq allowners
(mapcar 'vla-get-handle
(apply 'append
(mapcar 'vlr-owners
(cdar (vlr-reactors :vlr-object-reactor))
)
)
)
)