hello, I am generating this code to insert texts to a civil 3d surface it works ok, my problem is when the peak outside the surface is automatically canceled, what I am looking for is that the lisp when it detects that error automatically restarts asking me to insert the point again or failing to insert the text but with a value of "0" or "---" or "", I hope you can help me
(defun c:test ()
(setq sup (vlax-ename->vla-object (car (entsel "\nSurface:"))))
(WHILE
(setq pt1 (getpoint "\nPoint: "))
(setq ele(vlax-invoke sup 'FindElevationAtXY (car pt1) (cadr pt1)))
(command "text" "j" "mc" pt1 2.5 0 (rtos ele 2 2))
);fin while
);fin defun