Con esta rutina hecha con AutoLisp y VisualLisp, podrás insertar cada “n” metros los textos que representan las cotas de una polilinea seleccionada (terreno natural o rasante) en tu formato del perfil, las cotas se insertarán tomando como referencia un punto indicado en el formato.
En este comando podrás definir la escala del dibujo, esta escala no se refiere a la escala vertical de un perfil, sino a la escala de los textos de las cotas que se insertarán, lo textos de cotas para una escala 1:500 serán más grandes que las de una escala 1:50.
También podrás definir la escala vertical de tu perfil, este dato es importante ya que controla los valores de las cotas, en un perfil de terreno natural escalado en 10 veces su tamaño en el vertical tendrá los valores de las cotas también 10 veces más de su tamaño real, por lo que el comando deberá de realizar las operaciones correspondientes para transformar los valores de las cotas a los reales.
Otro valor a ingresar y el que define a este comando, es la distancia en que se insertarán las cotas, el valor por defecto que trae esta rutina es 10, lo que quiere decir que las cotas se insertarán cada 10 metros en el horizontal a partir del punto de referencia indicado.
Luego de seleccionar la polilinea que representa tu perfil (de TN, Rasante, etc), el comando te solicitará que indiques un punto de referencia en tu formato del perfil, este punto deberás de indicarlo en una progresiva entera, por ejemplo si tu perfil es de 0+000 a 100+000, deberás de indicar el punto en la progresiva 0 ó 10 ó 20, etc (de acuerdo a cada cuanto se ha indicado la distancia de inserción de las cotas).
Recuerda que para que el programa obtenga las cotas correspondientes, el perfil deberá de estar ubicado correctamente, es decir que las cotas sean las correctas para el perfil.
El gráfico adjunto te ayudará a una mayor comprensión de las opciones de esta rutina.
Para utilizar esta rutina debes de hacer lo siguiente: (Los valores por defecto son para seguir el ejemplo con el archivo de CAD adjunto).
- Carga el archivo lisp en AutoCAD.
- Ingresa el nombre del comando: ICP
- Ingresa la escala de dibujo para el tamaño de las cotas: 850 (puedes ir cambiando hasta que el tamaño sea el adecuado).
- Ingresa la escala vertical del perfil: 1 (escala vertical igual que la horizontal).
- Ingresa la distancia entre progresivas: 10
- Ingresa el número de decimales, por defecto: 3
- Selecciona el perfil que acotarás (TN, Rasante, etc).
- Indica el punto de referencia en el formato de tu perfil (ver gráfico).
Estimado señor;
Desde hace tiempo vengo usando la rutina COREX que usted, si no me equivoco, dio al uso publico y en codigo abierto.
Tengo un problema: estoy desarrollando una aplicacion para perfiles longitudinales y ya tengo solucionado las intersecciones de las lineae de perfil y las linesa de la rasante. Pero si la linea de la rasante viene como polilinea no encuentro la manera de saber la interseccion de dicha polilinea con la linea del perfil.
¿Seria tan amable de indicarme como resolver el problema?
Sea cual sea su decisión Gracias por leer este mensaje
Atentamente: Enrique
Hola Enrique. Lo que yo haría para no complicarme tanto sería generar las líneas verticales del perfil tomando en cuenta el valor y mas alto que puedan tener todos los vértices de la polilinea de la rasante y generando cada línea vertical con ese valor de Y o incluso con un valor mayor, de tal manera que puedas efectuar un TRIM, tomando como base de corte la polilinea e ir contando cada línea, despues tomas el nuevo valor de Y de la línea cortada y tendrás la cota de cada una de ellas.
Ejemplo:
(command “_trim” entPerfil “” entline “”)
entPerfil: Es la entidad polilinea.
entline: Es cada entidad línea vertical que se genera en el intervalo de la longitud horizontal del perfil.
Saludos.
Mario:
Intentare usar esa solucion, a ver si soy capaz. Asi de entrada creo que sere capaz.
Muchas gracias por su atencion y la rapidez en la respuesta.
Saludos