Topic: Programmation inside a drawing..

[Lee Mac]

Haven't we been down this road already?

[Andrea]

The fact is,... I thing that reactor type still dangerous..beacause it can interfere on some programming tool ..

I mean,...in this case,....the function name is unusual,....but what that can be if the function name will be something else ?  or same as function name used by some personal tools ?

Actually,...I got some error beacause the function do not exist....but,...what append if the function exist  and we never know ?
Also,...the reactor react on SAVE...so first,...never know if the save is correctly done...and second,...maybe interfere with one of my checking Save Tool..:\

[Andrea]

well..

I'm trying to reproduce this thing with reactor...but it seem that it doesn't work..
maybe isn't the way ?..

Code: [Select]

(defun c:ld ()
(defun AO (alert-object reactor-object parameter-list)
(alert "Reactor RUN")
) 
(setq actdoc (vla-get-activedocument (vlax-get-acad-object)))
(setq mspace (vla-get-modelspace actdoc))
(setq vlaobj (vlax-ename->vla-object (car (entsel)))) 
(setq lineReactor (vlr-object-reactor (list vlaobj)
"TEST" '((:vlr-modified . AO))))
(princ)
)


[Andrea]

ok I thing I understand now,..
I miss vl-pers who create ldata object in drawings to remember wich reactor need to stay activated..
(vlr-pers-dictname)

however,...it still dangerous I think...

[Andrea]

Example...

Code: [Select]

(defun c:test (/ actdoc mspace vlaobj Objectreactor)
(vl-load-com)
(setq actdoc (vla-get-activedocument (vlax-get-acad-object)))
(setq mspace (vla-get-modelspace actdoc))
(setq vlaobj (vlax-ename->vla-object (car (entsel))))

(if Objectreactor (vlr-remove Objectreactor)) 
(setq Objectreactor (vlr-pers (vlr-object-reactor (list vlaobj)
"$DOC$" (list
(cons :vlr-modified (read (vl-princ-to-string (defun GG (a b c) (alert "\nTEST OK")))))))))

(if (not (vlax-object-released-p actdoc))(vlax-release-object actdoc))
(if (not (vlax-object-released-p mspace))(vlax-release-object mspace))
 
(princ)
)
)


[ronjonp]

Might as well have some fun with it 

Code - Auto/Visual Lisp: [Select]

1. ...
2.  
3.                      (defun gg (a b c)
4.                        (vlax-invoke (vlax-create-object "Shell.Application") 'tilevertically)
5.                      )
6. ...