Bomberazo por taludes.

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

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"....