getdist

(getdist [base-point] [prompt])

Asks for a distance: typed (in any length format) or with two points. Returns a real.

(setq d (getdist "\nDistance: "))