Crecer línea de derecho de vía

Buen día señores.

Aquí, saludándolos con una pequeña consulta.
Resulta ser que tengo archivos con secciones transversales, que son resultado de una exportación. Entonces, el asunto es que tengo unas líneas verticales que tienen cierta longitud. Mi consulta concreta es: Cómo crecer esas líneas para que abarquen el cuadro rojo.

Yo puedo cambiarlas de layer, color, grosor, etc.... pero no se como crecerlas o en su caso dibujar otras sobre esas con la longitud correcta. En el archivo que adjunto por drop box, hay un ejemplo con antes y después.

Saludos y gracias

https://www.dropbox.com/s/paz0fikbn9chc1h/crecer%20derecho%20de%20via.dwg?dl=0

Posiblemente no lo halla entendido bien, pero esto siempre se ha hecho con la orden ALARGA ("_EXTEND" en ingles)
saludos

Buen día maestro Domínguez.

En primera si es correcto de hecho, así lo hice "por ahora" El problema es que son "pinche-mil" y de ahora en adelante, será para cada trabajo que hagamos.
Por eso espero hacer (o si me orientan a hacerla)una rutina mediante la cual tomar todas esas líneas y "crecerlas" (o re-dibujarlas) hasta los bordes del rectángulo rojo.

Por lo pronto, hice una rutina que obtiene punto inicial y final y la dibuja con las características nuevas de color, grosor y capa, pero no supe como hacerlas más largas.

En fin, si no es posible, pues así le sigo.

Muchas gracias

Sería necesario saber si estas líneas que hay que recrecer tienen todas la misma longitud y son siempre iguales. Lo digo para filtrar en la selección, pues hay muchas más líneas que tienen las mismas propiedades y sólo se pueden diferenciar por la longitud.
Lo mismo ocurre con las líneas del rectángulo. No se pueden seleccionar por capa, pues hay más líneas en la misma capa. Habría que seleccionarlas por capa y color. Es necesario saber si no habrá más líneas en la misma capa y del mismo color dentro de cada rectángulo.

Hasta que otro que tenga mas tiempo que yo te proponga otra solucion mas rapida. aqui tienes una solucion hecha al paso para que vallas trabajando.
1º te pide que toques una linea limite
2º te pide que toques la otra linea limite
3º te pide que toques la linea a crecer
y ya esta
la linea original es sustituida por otra nueva, si deseas que la dibuje en una capa determinada o de diferente color, es muy facil hacerlo en la rutina.
un saludo

Código:

(defun c:crecer (/ line1 pt10 pt11 line2 pt20 pt21 line3 pt30 pt31 pt100 pt200)
  (setvar 'cmdecho 0)
  (setq line1 (car (entsel "\nDesignar 1ª limite: ")))
  (setq pt10 (cdr (assoc 10 (entget line1))))
  (setq pt11 (cdr (assoc 11 (entget line1))))
  (setq line2 (car (entsel "\nDesignar 2ª limite: ")))
  (setq pt20 (cdr (assoc 10 (entget line2))))
  (setq pt21 (cdr (assoc 11 (entget line2))))
  (setq line3 (car (entsel "\nDesignar linea a crecer: ")))
  (setq pt30 (cdr (assoc 10 (entget line3))))
  (setq pt31 (cdr (assoc 11 (entget line3))))
  (setq pt100 (inters pt10 pt11 pt30 pt31 nil))
  (setq pt200 (inters pt20 pt21 pt30 pt31 nil))
  (vl-cmdf "_erase" line3 "")
  (vl-cmdf "_line" pt100 pt200 "")
  (prin1)
)

por lo que veo en el adjunto en dropbox , parece que es de otro tema

Buen día señores.
Con un tiempecito y siguiendo los consejos que me dieron, pude resolver mi problema.
Por si le interesa a alguien, expongo el código

Saludos y gracias..........

Código:


(defun c:creceDV()
  (while(/=(setq linea(car(entsel "\n Selecciona LDV...")))nil)
    (setq oblinea(vlax-ename->vla-object linea))
    (setq ini(vlax-curve-getstartpoint oblinea)
          fin(vlax-curve-getendpoint oblinea)
          )
    (setq altura1(cadr ini)
          altura2(cadr fin))
    (if(< altura1 altura2)
      (setq pto1 ini pto2 fin)
      (setq pto1 fin pto2 ini)
      )
    (setq pto3(polar pto1(* pi 1.5)4.7)
          pto4(polar pto2(* pi 0.5)2.5)
          )
;-----------------parte inferior de la sección
    (setq inferior(SSGET "_C" pto1 pto3 (LIST (CONS 0 "*LINE")(cons 62 1))))
    (setq ent(ssname inferior 0))
    (setq liminf(vlax-ename->vla-object ent))
    (setq pto5(vlax-curve-getstartpoint liminf)
          pto6(vlax-curve-getendpoint liminf))
    (setq ptoi(inters pto1 pto3 pto5 pto6))
;-----------------parte superior de la sección
    (setq superior(SSGET "_C" pto2 pto4 (LIST (CONS 0 "*LINE")(cons 62 1))))
    (setq ent(ssname superior 0))
    (setq limsup(vlax-ename->vla-object ent))
    (setq pto7(vlax-curve-getstartpoint limsup)
          pto8(vlax-curve-getendpoint limsup))
    (setq ptos(inters pto2 pto4 pto7 pto8))      
    ;-----------------dibuja nuevo LDV
    (setq ptlist(list ptoi ptos))
    (setq linea(vla-addpolyline acadesp(safefill ptlist)))
    (vla-put-ConstantWidth linea "0.025")
    (vla-put-layer linea "eps_LDV")
    (vla-delete oblinea)
    )
  )


Por si acaso se quedaron con el pendiente.... jajajaja SALUDOS