Show result in keyboard input buffer

[frankymont]

Hey,

There only exist a macro to measure a radius.
I wanted to simplify things when measuring a diameter with this macro:

DEFINE Measure_diameter

LOCAL Diameter
LOCAL Element1
LOCAL Old_radius
READ 'Select circular element' Element1
{make sure this element is in your current part}
EDIT_PART Element1
INQ_ELEM Element1
LET Old_radius (INQ 3)
LET Diameter (old_radius *2)

DISPLAY Diameter

END_DEFINE

The only problem with this code is that the result will be displayed as an message box and not in the keyboard input buffer. Is there anyway to make it appear in the keyboard input buffer (like when you measure a radius)?

With kind regards,

Franky