Aplicar while

Hola como están.
Me podrían ayudar a aplicar un while en esta linea.

(defun c:xxx (/) (vl-cmdf "_.circle" "\\" 14))

Quiero dibujar ese circulo cuantas veces sea necesario, así que lo mejor es con while.
Lo que no se es como colocar la condicional, para que al darle esc o al presionar enter finalice el bucle.

De antemano, muchas gracias.

Hay una función que lo permite hacer sin el while . O puede ser controlar si hay error.
El tema es que vl-cmd no da error , ya que evalúa antes de actuar , luego no da error.
Me fijo en mi arcón de herramientas

(while (setq pnt (getpoint "\nSpecify center point for circle: "))
(vl-cmdf "_.CIRCLE" "_non" pnt 14))

Hola hermano como estas, gracias por responder.
Disculpa la demora en contestar, pues estaba sin Internet.
Ya lo estoy utilizando así.
Otra pregunta, hay alguna manera de no utilizar una variable.
Estuve tratando con la comparación de que si
(while (= (vl-cmdf "_.circle" "\\" 14) nil))
O cosas así con null para no colocar la variable.
Pero no pude, por eso la duda de si se podía sin colocar una variable mas.

Gracias.

Código:

(while (setq pnt (getpoint ))
(vl-cmdf "_.CIRCLE" "_non" pnt 14))

Con este sales con el botón derecho.

Hola hermano.
Si, si funciona muy bien.
Lo de la variable lo decía por si se podía eliminar.
Gracias.

¿qué variable? nunca des nada por entendido

La variable pnt que es la del punto.

¿Algo así?

Código:

(while
(vl-cmdf "_.CIRCLE" "_non" (getpoint ) 14))

Que tonto, como no lo vi.
Me gusta mas eliminar variables.

Gracias hermano.

No olvidaros del comando "_multiple" "_circle"
y dando el valor del radio la primera vez, solo teneis que indicar punto y enter cada vez, hasta el fin.
Un saludo

Hola Dominguez, como has estado.
También lo tomare en cuenta, muchas gracias.
Saludos.