getpoint

(getpoint [punto-base] [pregunta])

Pide un punto: clic (con referencias a objetos) o coordenadas tecleadas. Con punto base, muestra una goma elástica desde él. Devuelve el punto, nil con Intro o la palabra clave de initget.

(setq p (getpoint "\nPrecise el centro: "))