LISP para acuerdos verticales en carreteras

Buenas,

LISP ACUERDOS VERTICALES

Aquí os dejo un LISP para dibujar un acuerdo vertical en AUTOCAD; ahora hay muchos programas paramétricos de trazado que permiten dibujar un trazado de una vía en planta y alzado; a veces no tenemos las herramientas para pequeños ajustes. Este LISP en caso de apuro no está nada mal¡¡¡¡¡¡¡.

Primero un poco de teoría; para que podáis hacer vuestras comprobaciones

TEORIA

Se adjunta esquema de un acuerdo vertical convexo; donde se definen sus parámetros:

Donde tenemos los siguientes parámetros:

Kv= Radio para efectuar una transición progresiva entre las dos pendientes; signo Kv es negativo cuando el acuerdo es convexo y positivo cuando el acuerdo cóncavo. ( - convexo ; + cóncavo)

O(Teta) = Angulo de giro

V = Vértice

T= Tangente

d= Flecha

iE = Pendiente de entrada (- pendiente; +rampa)

iS= Pendiente de salida  (- pendiente; +rampa)

Fórmulas:

El parámetro Kv viene definido por las Normativas donde a partir de la velocidad de proyecto se establece el Kv mínimo; el angulo de giro por las diferencias entre las pendientes; y a partir de estas el resto de parámetros.

EJEMPLO de un acuerdo convexo (rampa-pendiente)

DATOS: 

Vp --> Kv=900

Pendiente de entrada (en tanto por 1) = 0.08 m/m  (positiva pues es una rampa)

Pendiente de salida (en tanto por 1) = -0.05 m/m ( negativa pues es una pendiente) 

Angulo Teta = Valor absoluta pendiente entrada-pendiente salida --> ABS(0.08-(-0.05)= 0.13

Longitud del acuerdo = L = Teta*Kv= 0.13*900 = 117 metros

T Tangencia respcto el vertice = L/2 --> 117/2= 58.5 metros

La formula que define la cota de cada punto de la parabola des de la cota de entrada y salida es la siguiente:

Como funciona el LISP:  

Como he explicado en alguna ocasión cargamos en LISP en AUTOCAD, arrastrando el fichero dentro de la ventana de AUTOCAD.

Se dibujan las dos líneas que serán mis tangente al acuerdo (tienen que ser lineas; no polilineas); ahora debemos ver si tengo un acuerdo cóncavo o convexo.

Se ejecuta el LISP escribiendo en commad : ACUERDO, pedirá que marquemos las dos alineaciones y definamos si queremos definir Kv [k], Flecha [f] o longitud [L] con los siguientes criteris:

1) Cóncavo con signo negativo para K y F

2) Convexo con signo positivo para K y F

3) L siempre distancia con signo positivo.

Si se pone mal el signo, no os dará resultado. Atención¡¡¡¡ OJO¡¡¡¡¡¡. Y acordaros de desactivar el OSNAP --> OSNAP OFF

Aquí os dejo el enlace del fichero LISP. Suscribiros¡¡¡¡¡; muchas gracias¡¡¡¡¡¡ 

https://drive.google.com/file/d/1k3ojWcnV0kirSoTZscS7jX98WHLqW3g8/view?usp=sharing

MIS LISP FAVORITOS

Próximamente........Suscríbete para no perdértelos.........

FICHEROS de AUTOCAD QUE PESAN MUCHO. ¿Cómo reducir su tamaño?

Cuantas veces os ha pasado que un fichero en CAD, pesa más de lo que debiera. Aquí os dejo un LISP que es milagroso. Este fichero lo encontré por internet y es una maravilla.

Podéis arrastrar el fichero LISP a vuestro fichero de CAD i cargarlo; a continuación ejecutar  el comando LIMPIADGN1 y voilà.

Os adjunto un enlace que durará unos días;

http://buffalonas.com/jmsorianot/axs/u:30db5200875209960b1e90a0eca6e21d/LISP%20PURGE-1.LSP

Ese fichero que os lleva por el camino de la amargura se reduce a un tamaño lógico.

También lo podéis instalar en vuestro AUTOCAD cargándolo en las aplicaciones.

CÓDIGO:

(DEFUN C:limpiadgn1 ()
;;(setq a (dictsearch (namedobjdict) "ACAD_DGNLINESTYLECOMP"))
  (alert "Se iniciará el proceso de limpieza de archivo.......")
 (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
 (command "-purge" "all" "*" "n" )
 (command "qsave")
  (command "-purge" "all" "*" "n" )
  (command "qsave")
  (command "-purge" "all" "*" "n" )
  (alert "Se culminó el proceso rápido de limpieza de archivos")
)

NOTA: SI queréis ver el código; los ficheros LISP se pueden editar des del Bloc de Notas. SI el enlace no os funciona; copiar el código que os adjunto en un fichero txt creado en un Bloc de Notas y luego cambiar la extensión por LSP. En el código podéis encontrar dos funciones; la primera ("limpiadgn") no la he probado y si no tenéis cargado el VBA de AUTOCAD no os funcionará. La segunda ("limpiadgn1") la he probado y va de maravilla.

Agradezco comentarios, el feedback con vosotros me anima a seguir con el blog. Muchas gracias.

Como Cargar un LISP en AUTOCAD?

Cómo ya he explicado podemos cargar el LISP en AUTOCAD simplemente arrastrándolo hasta AUTOCAD. Pero eso implica que cada vez que queramos utilizarlo lo tendremos que cargar otra vez. Y eso puede no interesarnos si ese LISP lo precisamos en repetidas ocasiones.

Pero también lo podemos integrar como una aplicación más dentro de AUTOCAD; si trabajaís con el menú clásico lo cargamos desde HERRAMIENTAS (TOOLS)--> AUTOLISP-->LOAD APPLICATIONS--> StartUp Suite

EL LISP debe disponerse siempre físicamente en la misma ruta para que AUTOCAD lo localice.

Des de los RIBONS; MANAGE--> LOAD APPLICATIONS --> StartUp Suite (Contents...)

Un saludo

Agradezco comentarios, el feedback con vosotros me anima a seguir con el blog. Muchas gracias.

___________________

How to load LISP in AUTOCAD?

We can load LISP in AUTOCAD, just drop in AUTOCAD and load. We can also to install like an application for ever; how? Easy?

Menu Classic -->  TOOLS-->AUTOLISP-->LOAD APPLICATIONS --> StartUP Suite
Menu RIBBONS --> MANAGE--> LOAD APPLICATIONS--> StartUp Suite (Contents)

Your lisp must be in a folder with all your personal LISP.

Thank You