Reactor not reacting!

Hello - I have a reactor function below that only seems to work halfway. I
have two entities being passed to the reactor, a line and a block. The
reactor should adjust the line based on changes to either the line or the
block. The reactor works fine if i move the block, but when moving the line
it runs through the process and the changes are not made. It doesn't modify
the line (entmod ENL) even though when i print out the values of ENL the
values are correct.

Hopefully someone out there can explain to me why this is happening. As far
as I am concerned it should work, but alas, I am no expert...

(defun adjustLine (notifier-object
reactor-object
parameter-list /
object-list
vla-object
EN EL ENL p1 p2)
;;Get list of objects
(setq object-list (vlr-owners reactor-object))
;;Loop through each object in list
(foreach vla-object object-list
;;Convert object reference to AutoLISP style
(setq EN (vlax-vla-object->ename vla-object)
EL (entget EN))
(cond ;;what type of entity is it?
((= (cdr (assoc 0 EL)) "LINE");;Is the entity a line?
(setq ENL EL);;save entity list of line
(setq p2 (cdr (assoc 11 ENL))));;line cond
('T
;;Otherwise it is the block so get the insertion point
(setq p1 (vlax-safearray->list
(vlax-variant-value
(vla-get-insertionpoint vla-object)
))));;block cond );;cond );;foreach
;;Find point p1 will be moved to
(setq p3 (polar p1
(angle p1 p2)
(* 0.20828125 scale)))
(princ "\nENL: ")(princ ENL) ;<---shows values before line is
changed
;;replace values in entity list
(setq ENL (subst (cons 10 p3)
(assoc 10 ENL)
ENL)
ENL (subst (cons 11 p2)
(assoc 11 ENL)
ENL))
(entmod ENL);;update the line ;<---only works when block is moved, why
not line?
(princ "\n\nENL: ")(princ ENL) ;<---shows correct values why isn't line
moved here?
(princ)
)

Thanks if anyone knows!
kemp

 

You may have to do (entupd ENL) following the:
(entmod ENL);;update ...

Just guessing.
Or regen ?
Bob

 

I tried entupd and regen but get the same results. I do notice that if I
change the line

(entmod ENL)
to
(setq kikkoman (entmod ENL))(princ kikkoman)

the result is nil only when i move the line. When i move the block it prints
entity data like it is supposed to.

Thanks for guessing, any more guesses?

 

Review the Reactor Use Guidelines.

They state:
"... to access drawing objects, you must use ActiveX functions; entget and
entmod are not allowed inside callback functions."

-Dan

 

I removed all entget or entmod refernces in favor of activeX functions, and
still have exactly the same problem. See attached file for the entire lisp
routine with changes.

I replaced the entmod functions with vla-put-startpoint & vla-put-endpoint
and now it will not complete the reactor function if the line is moved, but
does fine if the block is moved. So in essense it works exactly as it did
before....

I hope someone can help figure it out! Thanks!

kemp

 

I didn't really look at your code in detail, but I did notice that you
wern't updating the object. Found this in the docs:

Note that changing an object's property may not immediately affect the
display of the object in the AutoCAD drawing. AutoCAD delays property
changes to allow you to change more than one property at a time. If you need
to update the drawing window explicitly, issue the vla-update function:

(vla-update object)Take note, that I haven't been doing any (v)lisp for a
while, so I'm a little rusty.-Dan

 

Thanks for the tip, I'll see what I can do with it.

kemp

 

I just read this: "The event causing an object to trigger a callback
function may still be in
progress and the object still in use by AutoCAD when the callback function
is invoked." so I simply am not allowed to have the reactor change the line
i moved to call it.

This is my problem. Now I need to figure out the workaround. If I move a
line that fires a reactor, can i create a new line and have it be associated
with the reactor?