getdist

(getdist [punto-base] [pregunta])

Pide una distancia: tecleada (en cualquier formato de longitud) o con dos puntos. Devuelve un real.

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