getpoint

(getpoint [base-point] [prompt])

Asks for a point: a click (with object snaps) or typed coordinates. With a base point, shows a rubber band from it. Returns the point, nil on Enter, or the initget keyword.

(setq p (getpoint "\nSpecify center: "))