vlr-owner-add

Dodaje obiekt do listy elementów obsługiwanych przez reaktor.

Przykład:

(vl-load-com)
(vl-load-reactors)

(setq oldcmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)


(defun ReactorNotify (notifier-object reactor-object param-list)
    (princ (vl-princ-to-string (vlax-get-property notifier-object 'radius ) ) )
    (alert (vl-princ-to-string (vlax-get-property notifier-object 'radius ) ) )
)

( defun DrawCircle (  / circle )
    (setq circle (vla-addCircle
        (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object) ) )
        (vlax-3d-point (getpoint "wskaż punkt") )
        30.0
    ) )
    (command "regen")
    circle
)


(defun c:test1()
    (setq *Reactor*
        (vlr-object-reactor    (list (DrawCircle) ) "mycircle"    '((:vlr-modified . ReactorNotify) ) )
    )
)

(defun C:test2 (  / )
    ( vlr-owner-add *Reactor* (DrawCircle) )    
)