Reactor message

R2005 Autolisp:

I have attached a reactor to a point object to test and learn about reactors.
One thing I find odd is:
When I redo an undo operation, I get a message of "mesh flatten" at the command line.

Select objects:
Specify base point or displacement: Specify second point of displacement or
<use first point as displacement>: :VLR-modifiedMOVE
The Location is (11.5438 3.64358 0.0):VLR-objectClosedMOVE
#2
The Location is (11.5438 3.64358 0.0)
Command: u
mesh flatten :VLR-modifyUndoneU
#1 :VLR-modifiedU
Operation has been Undone. :VLR-objectClosedU
#2
The Location is (17.9336 3.28223 0.0)
Command: redo
:VLR-modifyUndoneREDO
#1 :VLR-modifiedREDO
Operation has been Undone. :VLR-objectClosedREDO
#2
The Location is (11.5438 3.64358 0.0)mesh flatten
Everything has been redone

There are no other entities in the drawing except points and I have done no other operations in the drawing except move or erase.

Any Ideas why I'm getting this?

TIA

Bill

 

Looks like: (vlr-current-reaction-name) is returning this.
Why ? I dunno.
Bob

 

Re: Reactor message

It's there because I have a princ to put it there.
My question is: Why am I getting the "mesh flattten".

Bill

 

When I remove the (princ (vlr-current-reaction-name))
I still get the message:

MOVE
Select objects: 1 found

Select objects:
Specify base point or displacement: Specify second point of displacement or
<use first point as displacement>: MOVE
The Location is (10.5793 8.10018 0.0)
Command: u
mesh flatten U
The Location is (12.9906 9.30467 0.0)

Bill

 

Bill,

Place the following inside of your callback function

(defun callback (notifier reactor params)

(if (not (wcmatch (getvar "cmdnames") "UNDO,U,REDO,OOPS"))
(progn

your staff goes here...

)))

;; sorry i am using my mac, so no autocad for now...

try it, and let us know.

le.

 

Thanks Luis,
I use (= (vlr-current-reaction-name) ':VLR-objectClosed) now to filter and it works good.

The "mesh flatten" comes with a redo or undo from the command line after I move or erase the point.

I create the reactor with:

(setq PointReactor1 (vlr-object-reactor (list Point1)
"Point Reactor" '(vlr-objectClosed . point-manipulate))
)

Makes me wonder if it might be a bug.

Bill