Con esta rutina hecha con AutoLisp y VisualLisp, podrás insertar cada "n" metros 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, si deseas puedes ver esta rutina que te ayudara como hacerlo:

http://www.construcgeek.com/foro/rutina-lisp-os

Este gráfico 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)

1. Carga el archivo lisp en AutoCAD.
2. Ingresa el nombre del comando: ICP.
3. Ingresa la escala de dibujo para el tamaño de las cotas: 850 (puedes ir cambiando hasta que el tamaño sea el adecuado)
4. Ingresa la escala vertical del perfil: 1 (escala vertical igual que la horizontal)
5. Ingresa la distancia entre progresivas: 10
   
6. Ingresa el número de decimales, por defecto: 3
7. Selecciona el perfil que acotarás (TN, Rasante, etc)
8. Indica el punto de referencia en el formato de tu perfil (ver gráfico)