(setvar "errno" 0) ; must pre set the errno to 0
(setq p1 nil)
(while
(cond
((null p1)
(setq p1 (getpoint "\nSelect first point."))
)
((= (getvar "errno") 52) ; exit if user pressed ENTER
nil ; exit loop
)
)
)