
El dibujo de los sobreanchos de las curvas de una vía siempre a sido una tarea nada facil al momento de generar diseños geométricos de carreteras, pero nada que una buena rutina no pueda solucionar.
Esta vez, este lisp te permitirá generar los sobreanchos de todas las curvas de la carretera, para ello solo basta seleccionar el eje (alineamiento) de la misma y el programa se encargará de leer desde un archivo de datos las variables que permitirán generar los sobreanchos.
La rutina se basa en la lectura de datos desde un archivo "curvas.csv", este archivo csv deberá de contener los elementos propios de cada curva del eje, que son los siguientes: Inicio de Transición de Entrada (Pxe), Final de Transición de Entrada (BMe), Inicio de Transición de Salida (BMs), Fin de Transición de Salida (Pxs), Lado, Sobreancho y Radio. Con todos estos datos el lisp se encarga de dibujar los sobreanchos correspondientes a cada curva.
(El archivo csv deberá de estar en la misma carpeta en el que se encuentra el archivo de dibujo, para que así pueda ser ubicado automaticamente por la rutina, de lo contrario saldrá un error y no podrá continuar).
Estos datos (los elementos de curva) generalmente se tienen desde el diseño de la vía, de no contar con ellos, mediante un programa de procesamiento de datos, como el Land Desktop o Civil 3D, se puede emitir reportes, los cuales mostrarán todos los datos necesarios.
Junto con el lisp se adjuntan dos archivos de Excel, el primero muestra los elementos de curva mas la manera de como contatenar estos para generar los datos que el lisp necesita; el segundo archivo (csv) contiene los datos necesarios que el lisp necesita para generar los sobreanchos.
Además para realizar una prueba del lisp, también se adjunta un archivo CAD con un eje (alineamiento) con las curvas horizontales correspondientes, de las cuales se generaron los datos para el lisp.
Este gráfico te ayudará a ubicar los datos necesarios para que la rutina dibuje los sobreanchos en las curvas:

Para utilizar esta rutina debes de hacer lo siguiente:
- Carga el archivo lisp en AutoCAD.
- Ingresa el nombre del comando: SOB
- Selecciona la polilinea de eje (alineamiento)
- Ingresa la progresiva inicial del eje seleccionado
- Ingresa el ancho del carril de la vía (ancho de la sección en tangente)
Lisp desarrollado por: Kenny W. Quirita Bejar
Comentarios (15)
La rutina para generar sobreanchos es muy buena, solo que cuando genera los sobreanchos en las curvas, las curvas dejan espacios entre si en los centros, es decir, no se dibujan completamente los sobreanchos. Espero se pueda complementar esta parte.
De otro lado, seria conveniente que el lisp generara todo el dibujo de la via, incluyendo tangentes y curvas.
Bueno es solo un comentario, a ver si se puede, pero esta bueno.
Gracias.
Gracias Joel por el comentario, el lisp sólo genera las transiciones hasta llegar al sobreancho máximo, como este sobreancho es constante, basta con solo generar una paralela a la curva.
Saludos
ESTE LISP ES UN BUENA AYUDA PARA EL DIBUJO DEL ALINEAMIENTO EN PLANTA..
GRACIAS
ESTUVE PROBANDO LA RUTINA CON EL EJEMPLO, ME PARECE MUY BUENA, PERO HAGO EL MISMO COMENTARIO DE JOEL, TRATE DE HACER UN OFFSET DE LA CURVA, Y ME PARECE QUE NO COINCIDE CON EL SOBREANCHO, ME GUSTARIA QUE PUDIERAN REVISAR ESA PARTE.
NECESARIAMENTE EL EJE DEBE ESTAR DIBUJADO CON LA CURVA ESPIRAL?
Cuando hay ecuacion de empalme funciona?
AGRADECERIA ME PUDIERAN EXPLICAR PARA PODER BAJAR EL ARCHIVOS...
GRACIAS.
Hola suelos2, para poder descargar los archivos primero debes de registrarte e iniciar sesión y luego solo debes de buscar debajo del post una sección que dice Adjunto, en esa sección encontraras el siguiente link:
Rutina-para-generar-sobreanchos-r1.rar
Has clic en el y descargarás el archivo adjunto.
Sls.
deseo generar un perfil en land y no se puede ya hize varais cosas cuando habro del menu profiles create profiles full profiles no se puede cambiar las progresivas cuando lo hago automaticamente se vuelve a su valor original
las voy a probar estas rutinas luego les doy mi comentario
KENNYLA VERDAD TU RUTINA ES MUY BUENA PERO TAMBIÉN HAGO EL MISMO COMENTARIO QUE HARÍAN LOS PRIMEROS PARTICIPANTES, SOLO GENERA LAS TRANSICIONES, RECONOZCO TU DESTREZA PARA REALIZAR RUTINAS EN AUTOLISP, ES VERDADERA MENTE SORPRENDENTE, PERO DE FAVOR TE PEDIRÍA QUE HICIERAS QUE SE DIBUJE TODO EL ALINEAMIENTO EN AMBOS LADOS, RECONOCIENDO TU CAPACIDAD POR HABER DESARROLLADO ESTA PARTE DE LA RUTINA , LO QUE LE FALTA PARQUE LA RUTINA FUNCIONE A UN 100% LO PUEDES DESARROLLAR SIN NINGÚN PROBLEMA POR QUE LA PARTE DIFÍCIL YA LO HICISTE , ESPERO QUE PUEDAS LEER ESTE COMENTARIO Y RESPONDER TE LO AGRADECERÉ INFINITAMENTE
quisiera saber como hacer los sobreanchos si es mejor o igual que el civil 3d
Kenny coincido con ronaldtroya....el lisp es muy bueno......... y también reconozco esa destreza tuya para desarrollar en lisp …. el cual hace que seas una guía para nosotros que empezamos a ver el tema de desarrollo ……..y si .......... viendo los comentarios faltan ajustes como completar el ancho de vía y por supuesto la curva ........ lo que si se observa que hay pequeñas distancias entre lo que ejecuta el lisp con la curva hecha con Offset (tal como sugieres)……..ahora por otro lado en algunos casos se hacen curvas en espiral y el sobreancho se distribuye a los dos lados de la vía ..... al programa le falta ese detalle.
saludos a todos
Kenny W. Quirita Bejar:
Con tu permiso, le hice unas pequeñas modificaciones a tu rutina... Espero comentarios
gracias exelente aporte