Select the object and run the macro (the object face the screen).
Your object return in the XY display and in its new coordinates position (Placement,Angle)