Rutina para generar las progresivas de un alineamiento
Por Mario Torres el Jue, 19/08/2010 - 12:46
Cuerpo:
Esta útil rutina llego a mis manos hace algún tiempo y para aquellas personas que deseen generar alineamientos sencillos sin la necesidad posterior de generar secciones transversales o perfiles longitudinales del mismo, podrán aprovechar esta rutina.
La rutina posee una interface de cuadros de diálogo que permiten personalizar el formato final de las progresivas insertadas en el eje.
Para utilizar la rutina se deberá de contar con una polilinea (alineamiento) y seguir los siguientes pasos:
- Copia los 3 archivos descargados en una de las rutas de soporte de tu AutoCAD
- Carga el archivo lisp en AutoCAD (cona APPLOAD).
- Ingresa el nombre del comando: progresivas
- En el cuadro de diálogo define el formato que tendrán las progresivas a generar.
- Selecciona la polilinea (alineamiento) en la que se generarán estas progresivas.
- Indica un punto, el cual se convertirá en el punto inicial de la generación de las progresivas.
Autor del Lisp: M.Santillán
Archivos adjuntos:
| Adjunto | Tamaño |
|---|---|
 Rutina para generar las progresivas de un alineamiento | 18.38 KB |
- Inicie sesión o regístrese para comentar
- 20712 lecturas
Lo más leídoLo más comentado
Publicidad
Comentarios recientes
lodecoyense dijo: hace 1 día 6 horas
lodecoyense dijo: hace 1 día 11 horas
cadrichard dijo: hace 2 días 13 horas
johsepgonzales dijo: hace 3 días 14 horas
Conversaciones (42)
hola amigos, me gustaria su alineamiento en el perfil longitudinal, alguien podria decirme como hacerlo, o si hay algun lis o programa para hacerlo
Muy bueno e util, gracias!!!
Hola probe la rutina, y no me salen las progresivas, que estoy haciendo mal.
Hola Renzo, posiblemente tengas que restaurar tu UCS al sistema de coordenadas universal o WCS antes de ejecutar la rutina.
hola amigos, eh vuelto a cargar la rutina y me sale un mensaje de que el tiempo de prueba ah finalizado, que tengo qhacer para poder utilizar la rutina otra vez
gracias y saludos
hola que tal necesito que me ayuden porque la rutina dice que se termino el tiempo de prueba y aunque lei que se debe borrar algunas lineas de codigos no tengo la menor idea de como se hace eso podrian ayudarme gracias o por favor envienme al correo arqken@gmail.com el archivo ya con eso hecho para que funcione gracias de nuevo
Quisiera saber si hay algun lisp para sacar las secciones transversales a partir de una tabla de excel.
Me sale un problema, dice ke el tiempo de prueba a caducado...
Sabes como solucionar este problema....
Saludos
saludos amigos esta pagina esta genial
hola el lisp tiene fecha de caducidad y luego no se puede usar mas, alguien podria decirme como solucionar ese problema es de suma irgencia porfa alguien q me diga
Hola Julio,
Para seguir utilizando la rutina debes de abrir el archivo LISP y eliminar o comentar las siguientes líneas de código:
39 al 51 y 73 al 74
Eso debería de evitar que te muestre el mensaje de caducidad.
Saludos,
hola que tal necesito que me ayuden porque la rutina dice que se termino el tiempo de prueba y aunque lei que se debe borrar algunas lineas de codigos no tengo la menor idea de como se hace eso podrian ayudarme gracias
Hola Mario entre en el lisp y no encontré donde hacer dicho cambio q mencionas, serias tan amable de mostrarme con unas imágenes el antes y el después de modificado o un video o si fuera posible el lisp modificado lo necesito con suma urgencia, apreciaría mucho tu ayuda.
Hecho.
hola amigo, aun no me salio ese problema de caducidad del lisp pero en caso de que me salga que debo hacer, gracias.
hola mario gracias por la solucion inmediata pense q demoraria en responder a mis preguntas pero me fueron solucionadas de inmediato. ya complete mi trabajo muchas gracias, si no fuera por el lisp me habría demorado un chorro
hola amigo, aun no me salio ese problema de caducidad del lisp pero en caso de que me salga que debo hacer, gracias.
Alguien me puede ayudar con una rutina para sacar un reporte de un alineamiento horizontal con los PC,PT,TE,EC,CE,ET
hola cuales son las rutas de soporte??
Hola, las puedes encontrar en el cuadro de diálogo OPTIONS (OPCIONES), para cargar este cuadro debes de ejecutar el comando OPTIONS.
al seleccionar el alineamiento la rutina me dice: Seleccione Inicio de Progresivas:; error: no function definition:
VLAX-CURVE-GETSTARTPOINT, que significa y como puedo corregirlo, gracias
Hola lduero, debes de agregar en el lisp la siguiente línea de código: (vl-load-com) ó si lo prefieres puedes digitarlo en la línea de comando de AutoCAD antes de ejecutar la rutina.
gracias, ya corre pero los textos no aparecen de las progresivas
no funciona ya elimine las lineas y me sale un error de variables tal vez hago algo mal por favor solicito el archivo o el video para poder solucionar mi problema gracias te lo agradece infinitamente
Hola. me pueden ayudar por favor, al cargar la utilidad para generar un perfil, me pide cargar los datos. como debe ir el formato de ese archivo para poder cargarlo?????.
hola que tal necesito que me ayuden porque la rutina dice que se termino el tiempo de prueba y aunque lei que se debe borrar algunas lineas de codigos no tengo la menor idea de como se hace eso podrian ayudarme gracias
VLAX-CURVE-GETSTARTPOINT
el punto de inicio de la curva
No me sale
En que línea escribo el comando vl-load-com
va directo o con algún comento antes.
Gracias
Manuel Borja
mario me sale el mensaje de caducidad y y ano abre el lips, me podrias indicar como modificar y abriri el programa, anteriormente abria pero ya no abre ahora despues de la fecha de caducidad
mario se aora sale el mensaje de caducudad ya n aabre como lo abro y anulo la cadicudad
TODAVIA NO PUEDO USAR LA RUTINA. HE HECHO TODOS LOS PASOS Q SE HAN COMENTADO PERO NO SALEN LAS PROGRESIVAS. ME GUSTARIA TENER MAYORES INSTRUCCIONES O UN VIDEO. DESDDEE MUCHAS GRACIAS¡¡¡
Les agradesco por sus comentarios, ya esa corrindo en mejor manera.
para que versiones de autocad son utiles estos lisp
en mi autocad 2006 y 20010 no funciona el comando vl-load-com que indica para corregir el error que me sale de
error: no function definition:
VLAX-CURVE-GETSTARTPOINT
no entiendo como usar este codigo vl-load-com ya que en la linea de comandos lo desconoce
error: no function definition:
VLAX-CURVE-GETSTARTPOINT
Hay que colocar el comando: (vl-load-com) CON LOS PARENTESIS! a mi no me funcionaba hasta que lo hice. ojala sirva el dato, es muy buena apliacion.
Saludos
EXCELENTEEEEEE!!!!!!!!!!!!!!!!!
perfecto corre exelente
Hola, les envio un codigo mas simplificado y el resultado es casi el mismo, ojala les guste
Saludos
(vl-load-com)
;;;-------------codigo para generar progresivas de un eje ---------------- ;
;;; ;
;;; Paul Silva - Mexico 2013 ;
(defun c:est ()
(setvar "osmode" 0)
(setq eje (vlax-ename->vla-object (car (entsel "\n Seleccione linea o eje."))))
(setq largo (vlax-curve-getdistatparam eje (vlax-curve-getendparam eje)))
(setq dx 20); esta variable es la distancia entre estaciones
(setq est_inicio (getreal "\n Indique estacion inicial <+0.0> : "))
(if (= est_inicio nil)
(setq est_inicio 0))
(setq n 0)
(setq y 0.001)
(setq lado 1)
(repeat (+(fix (/ largo dx))1)
(setq wpa (vlax-curve-getpointatdist eje (* n dx)))
(setq wpan (vlax-curve-getpointatdist eje (+ y (* n dx))))
(setq dist (vlax-curve-getdistatpoint eje wpa))
(setq ang (angle wpa wpan))
(setq per (+ ang (/ pi 2)))
(setq punto_der (polar wpa per lado))
(setq punto_izq (polar wpa (+ per pi) lado))
(setq ins_tx (polar (polar punto_izq (+ per pi) 1) (+ ang pi) 1))
(entmake
(list
(cons 0 "line")
(cons 10 punto_der)
(cons 11 punto_izq)
)
)
(entmake
(list
(cons 0 "text")
(cons 10 ins_tx)
(cons 50 (angle punto_der punto_izq))
(cons 40 2)
(cons 1 (strcat "+ " (rtos (+ est_inicio dist) 2 2)))
)
)
(setq n (+ n 1))
)
)
Saludos, muy buena aplicacion. La he usado pero no me aparece el texto. Les agradezco su ayuda, lo nocesito urgente.
Hola, Verifica que estes en coordenadas globales y que el tamaño del texto (en el cuadro de dialogo textstyle ) sea 0.0.
Esta rutina c:est es para escala en metros.
no me corre el lips, si alguien me puede ayudar seria bueno, me sale el error que se menciona en otros comentarios