How to refresh OIP after changing object class?

[billtheia]

Can someone help me figure out how to update the object info palette (OIP) after I use a script to change an object's class?

Here's the script I'm using:

PROCEDURE SelectedToDemo;

FUNCTION ChangeToDemo(h :HANDLE) :BOOLEAN;

BEGIN

SetClass(h,'Demolition');

END;

BEGIN

ForEachObjectInLayer(ChangeToDemo, 2, 0, 4);

END;

RUN(SelectedToDemo);

This does change the class of selected objects but it doesn't refresh the OIP so I still see the old class until I click elsewhere and then back on the object.

I've tried ReDraw and ReDrawAll but neither worked.

[twk]

add a ResetObject(h) at the end of your FUNCTION ChangeToDemo block,

FUNCTION ChangeToDemo(h :HANDLE) :BOOLEAN;
BEGIN
   SetClass(h,'Demolition');
   ResetObject(h);
END;

[billtheia]

Thanks TuiWalker.

That worked like a charm.