While in alert

I've little problem,in my code I would add a "while",but conflict with
"alert",because if alert hit "OK",the program will finish work,how to add
while ,can somebody help me,thanks.

; so is stand for searching of object in drawing sheet
; Design by Ade Suharna <>
; 21 September 2004
; Program no.73/09/2004
(defun c:so (/ ob cordata xdata zdata dataob displayData)
(setq ob (entget (car (entsel "\nSELECT OBJECT: ")))
cordata (assoc 10 ob)
xdata (rtos (cadr cordata)2 3)
ydata (rtos (caddr cordata)2 3)
zdata (rtos (last cordata)2 3)
dataob (cdr (assoc 0 ob))
displayData (alert (strcat "\nTHIS OBJECT IS <" dataob ">"
"\nLOCATION OBJECT ARE"
"\nX-AXIS = " xdata
"\nY-AXIS = " ydata
"\nZ-AXIS = " zdata)))
)

 

Like this:
(defun c:so (/ ob cordata xdata zdata dataob displayData)
(while (setq ob (car (entsel "\nSELECT OBJECT: ")))
(setq
ob (entget ob)
cordata (assoc 10 ob)
xdata (rtos (cadr cordata)2 3)
ydata (rtos (caddr cordata)2 3)
zdata (rtos (last cordata)2 3)
dataob (cdr (assoc 0 ob))
displayData (alert (strcat "\nTHIS OBJECT IS <" dataob ">"
"\nLOCATION OBJECT ARE"
"\nX-AXIS = " xdata
"\nY-AXIS = " ydata
"\nZ-AXIS = " zdata)))
)
(princ)
)

 

Hi Jeff,you are perfect,it's cool,thanks a lot