Aplicar while

Ir abajo

Aplicar while

Mensaje por carlosmgilp el Dom Sep 23, 2018 8:57 am

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.

carlosmgilp

Mensajes : 149
Fecha de inscripción : 17/03/2016
Edad : 36
Localización : Venezuela

Ver perfil de usuario

Volver arriba Ir abajo

Re: Aplicar while

Mensaje por Admin el Lun Sep 24, 2018 5:04 pm

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

Admin
Admin

Mensajes : 194
Fecha de inscripción : 16/03/2016
Edad : 70
Localización : CORDOBA ARGENTINA

Ver perfil de usuario http://acadhispano.foroargentina.net

Volver arriba Ir abajo

copiado

Mensaje por Admin el Lun Sep 24, 2018 5:18 pm

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

Admin
Admin

Mensajes : 194
Fecha de inscripción : 16/03/2016
Edad : 70
Localización : CORDOBA ARGENTINA

Ver perfil de usuario http://acadhispano.foroargentina.net

Volver arriba Ir abajo

Re: Aplicar while

Mensaje por carlosmgilp el Vie Sep 28, 2018 3:34 pm

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.

carlosmgilp

Mensajes : 149
Fecha de inscripción : 17/03/2016
Edad : 36
Localización : Venezuela

Ver perfil de usuario

Volver arriba Ir abajo

Re: Aplicar while

Mensaje por Admin el Vie Sep 28, 2018 10:49 pm

Código:
(while (setq pnt (getpoint ))
(vl-cmdf "_.CIRCLE" "_non" pnt 14))

Con este sales con el botón derecho.

Admin
Admin

Mensajes : 194
Fecha de inscripción : 16/03/2016
Edad : 70
Localización : CORDOBA ARGENTINA

Ver perfil de usuario http://acadhispano.foroargentina.net

Volver arriba Ir abajo

Re: Aplicar while

Mensaje por carlosmgilp el Vie Sep 28, 2018 11:41 pm

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

carlosmgilp

Mensajes : 149
Fecha de inscripción : 17/03/2016
Edad : 36
Localización : Venezuela

Ver perfil de usuario

Volver arriba Ir abajo

Re: Aplicar while

Mensaje por Admin el Vie Sep 28, 2018 11:53 pm

¿qué variable? nunca des nada por entendido

Admin
Admin

Mensajes : 194
Fecha de inscripción : 16/03/2016
Edad : 70
Localización : CORDOBA ARGENTINA

Ver perfil de usuario http://acadhispano.foroargentina.net

Volver arriba Ir abajo

Re: Aplicar while

Mensaje por carlosmgilp el Sáb Sep 29, 2018 1:10 am

La variable pnt que es la del punto.

carlosmgilp

Mensajes : 149
Fecha de inscripción : 17/03/2016
Edad : 36
Localización : Venezuela

Ver perfil de usuario

Volver arriba Ir abajo

Re: Aplicar while

Mensaje por Admin el Sáb Sep 29, 2018 1:07 pm

¿Algo así?

Código:
(while
(vl-cmdf "_.CIRCLE" "_non" (getpoint ) 14))

Admin
Admin

Mensajes : 194
Fecha de inscripción : 16/03/2016
Edad : 70
Localización : CORDOBA ARGENTINA

Ver perfil de usuario http://acadhispano.foroargentina.net

Volver arriba Ir abajo

Re: Aplicar while

Mensaje por carlosmgilp el Lun Oct 01, 2018 5:24 pm

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

Gracias hermano.

carlosmgilp

Mensajes : 149
Fecha de inscripción : 17/03/2016
Edad : 36
Localización : Venezuela

Ver perfil de usuario

Volver arriba Ir abajo

Re: Aplicar while

Mensaje por Dominguez el Jue Oct 11, 2018 4:59 pm

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
avatar
Dominguez

Mensajes : 74
Fecha de inscripción : 20/03/2016
Edad : 68
Localización : Zaragoza (España)

Ver perfil de usuario

Volver arriba Ir abajo

Re: Aplicar while

Mensaje por carlosmgilp el Vie Oct 12, 2018 4:54 am

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

carlosmgilp

Mensajes : 149
Fecha de inscripción : 17/03/2016
Edad : 36
Localización : Venezuela

Ver perfil de usuario

Volver arriba Ir abajo

Re: Aplicar while

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.