acad hispano
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Bomberazo por taludes.

2 participantes

Ir abajo

Bomberazo por taludes. Empty Bomberazo por taludes.

Mensaje por eliasp Vie Sep 23, 2022 6:08 pm

Buen día estimado.

Me surgió un bomberaz y no he encontrado la función que seguramente está "por ahí, en alguna carpeta olvidada"

El hecho es que necesito, a partir de un punto seleccionado en pantalla, trazar una línea con distintos taludes que se preguntarán en su momento, hacia arriba a la derecha, arriba a la izquierda, abajo a la izquierda y abajo a la derecha. Espero haber explicado claramente.

No tengo dwg, ya que apenas se va a empezar el trabajo.

Saludos y gracias

eliasp

Mensajes : 195
Fecha de inscripción : 17/03/2016

Volver arriba Ir abajo

Bomberazo por taludes. Empty Re: Bomberazo por taludes.

Mensaje por saulo2016 Lun Oct 03, 2022 10:59 pm

Estimado eliasp, haber si es eso lo que buscas....

Código:
;Rutina para dibujar un haz de líneas a partir de un punto central de base.
;Se señala primero el punto central de base y después los puntos finales
;de cada línea del haz, tantos como se desee, pulsando RETURN para terminar.

(DEFUN haz (/ ptb pt)
   (INITGET 1)
   (SETQ ptb (GETPOINT "Punto de base: "))(TERPRI)
   (WHILE (SETQ pt (GETPOINT ptb "Punto final (RETURN para terminar): "))
      (TERPRI)
      (COMMAND "_line" ptb pt "")
    )
)

;La función c:haz crea una nueva orden HAZ y llama a la función para dibujar
;las líneas (haz).

(DEFUN c:haz ()
   (SETVAR "blipmode" 0)(SETVAR "cmdecho" 0)
   (haz)
   (SETVAR "blipmode" 1)(SETVAR "cmdecho" 1)
   (PRIN1)
)

;El mensaje se visualiza cada vez que se carga la rutina en memoria, e informa
;al usuario del nombre de la nueva orden definida.

(PROMPT "Nueva orden HAZ definida")(PRIN1)

Ahi nos avisas si te sirvio este codigo, que como bien dices tu ..."por ahí, en alguna carpeta olvidada"....
saulo2016
saulo2016

Mensajes : 210
Fecha de inscripción : 17/03/2016
Edad : 58
Localización : Monterrey, Nuevo León, Mexico

Volver arriba Ir abajo

Volver arriba


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