Foro de Delineación

Publicado: **Mié Nov 28, 2007 12:50 pm**

Hoy haciendo unas secciones se me ha ocurrido una rutina que me puede acelerar un poco las cosas, aunque creo que con una macro sera mas que suficiente, os explico.
Necesito una orden que me haga un circulo con un radio no númerico sino que yo le marque con una referencia el radio y despues no me lo dibuje en el sitio donde marque el centro, sino que me pida donde quiere que lo dibuje.
Yo cojo la referencia de una distancia con un circulo y llevo este circulo a la sección.

¿lo habeis entendido?

Pues is hay alguna alma caritativa y amante de estas cosas pues eso que me haría un gran favor

Publicado: **Mié Nov 28, 2007 1:05 pm**

Mandame un dibujo de que es y como lo quieres hacer, y veré si puedo hacer algo por tí.

Saludos

Publicado: **Mié Nov 28, 2007 5:32 pm**

Paco, prueba con esta pequeña rutina Lisp.

Código: Seleccionar todo

(defun c:CD (/ refenti centr)

(vl-cmdf "_undo" "_begin")
(setq refenti (getvar "osmode"))

(setq centr (getpoint "\nPrecise punto central del circulo:"))
(setvar "osmode" 1059)
(vl-cmdf "_circle" centr pause)
(vl-cmdf "_move" (entlast) "" centr pause)

(setvar "osmode" refenti)
(vl-cmdf "_undo" "_end")

(princ)
(princ "\n\n\nTecle \"CD\" o ENTER para repetir el comando")

) ;_end defun CD

(princ)
(princ "\n\n\n* Nuevo comando \"CD\" cargado | Desarrollado por JSR *")

Ya contarás que tal te va.

Saludos

Publicado: **Mié Ene 02, 2008 11:48 am**

Perdona Afga hasta hoy no me he dado cuenta de tu respuesta.

Voy a probar que tal va y te cuento.

Muuuchas gracias.

Publicado: **Mié Ene 02, 2008 4:23 pm**

FUNCIONA PERFECTAMENTE.

Muchas gracias Afga, es exactamente lo que necesitaba, aunque parezca una tonteria me es de mucha ayuda y me quita tener que estar midiendo cada tres por cuatro.

Gracias de nuevo y Feliz entrada de año.

Foro de Delineación

¿Quien me hace una rutina?

¿Quien me hace una rutina?