¿Quien me hace una rutina?

[Paco Fernandez]

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

[Afga]

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

Saludos

[Afga]

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

[Paco Fernandez]

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

Voy a probar que tal va y te cuento.

Muuuchas gracias.

[Paco Fernandez]

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.