X

Entradas recientes

geofumadas

Más de 60 rutinas Autolisp para AutoCAD

Lisp para conversiones y operaciones

1. Convertir pies a metros y viceversa

Esta rutina generada con Autolisp, nos permite convertir el valor ingresado de pies a metros y viceversa, el resultado es mostrado en la línea de comandos.

Aquí también usamos la función CVunit, esta función lisp, obtiene los valores de conversión, del archivo acad.unt (AutoCAD Unit Definition), si deseas observar con detalle cuales son estos valores y los diferentes tipos de conversión, te aconsejo que veas este archivo.

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: PIM
  3. Elige el tipo de conversión: Pies a metros ó Metros a pies
  4. Ingresa el valor que deseas convertir
  5. Obtendrás en la línea de comandos la información con la conversión de unidades

Puede obtener la rutina aquí

2. Multiplica todos los textos seleccionados

Esta rutina generada en AutoLisp permite obtener la multiplicación de todos los valores de los textos seleccionados, para que esta rutina trabaje correctamente es necesario que los textos seleccionados sean de tipo TEXT y no de tipo MTEXT.

Por ejemplo, si se tiene 3 tres textos cada uno con los valores: 1, 2, 3 y se seleccionan los tres, el resultado del comando será la multiplicación de estos tres números, que será igual a: 6.

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: mul
  3. Selecciona todos los textos que desees obtener la multiplicación.
  4. Presiona la tecla Enter para obtener el resultado.

Puede obtener la rutina aquí

3. Convertir pulgadas a metros

Esta pequeña rutina nos permite convertir el valor ingresado en pulgadas a metros mostrando el resultado en la línea de comandos, además muestra también el resultado divido entre 2 como parte de información adicional.

Se puede modificar este comando para que convierta otro tipo de unidades, para ello se deberá de modificar el código fuente, por ejemplo, convertir pulgadas a centímetros o minutos a segundos, para ello solo basta con cambiar los parámetros de la función «cvunit«, en este comando cvunit tiene los siguientes parámetros: «inches» «meters», con estos parámetros, el valor ingresado sera tomando como pulgadas (inches) y será convertido a metros (meters), puedes cambiar los parámetros por los siguientes: «minute» «second», «inch» «cm», «acre» «sq yard», «ft» «in», entre otros.

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: PM
  3. Ingresa el valor que deseas convertir de pulgadas a metros y

Listo, obtendrás la información con la conversión de unidades.

Puede obtener la rutina aquí

4. Sumar las longitudes de las líneas de la capa seleccionada

Esta rutina te permite sumar las distancias de todas las líneas que están contenidas en la capa del objeto que selecciones.

Esta rutina te permite sumar las distancias de todas las líneas que están contenidas en la capa del objeto que selecciones, si en la capa seleccionada se encontraran polilíneas, éstas serán ignoradas.
Una vez encontrada la suma de todas las líneas el resultado se muestra en pantalla.

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: sumlcapa
  3. Selecciona la línea que se encuentra en la capa de las líneas que deseas sumar

Puede obtener la rutina por USD 5.99 aquí

5. Sumar o restar valores a los textos seleccionados

Esta rutina hecha con AutoLisp nos permite sumar o restar valores a los textos que se seleccionen.

Por ejemplo, si tenemos un texto con un valor de 5 y utilizamos este comando e ingresamos el valor 2, el texto seleccionado cambiará, actualizándose por el valor 7, si se ingresa el valor -2, el texto se actualizará a 3.

Haz lo siguiente para utilizar esta rutina.

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: vsr
  3. Indica el valor a sumar o a restar
  4. Selecciona los textos a sumar o restar.

Puede obtener la rutina aquí

6. Obtener áreas a partir de sombreados de secciones

Esta rutina te permite obtener áreas de los sombreados (achurados) de secciones transversales y establecer los valores obtenidos en atributos de bloques seleccionados.

Los sombreados seleccionados deberán de estar en una capa que describa el tipo de área a obtener, por defecto el lisp leerá dos nombres de capas, que son las siguientes: «SombreadoCorte» y «SombreadoRelleno«.

El lisp suma todas las áreas de los sombreados que estan en la capa «SombreadoCorte» y todas las áreas de los sombreados de la capa «SombreadoRelleno» y una vez finalizada la selección de los achurados se procede a actualizar los atributos del bloque de áreas, para ello se de deberá de seleccionar primero el atributo de la progresiva del bloque, este es un atributo invisible, pero el lisp justo antes de la selección lo muestra y luego lo vuelve a ocultar, eso lo realiza mediante el comando «Attdisp«, a continuación se seleccionaran los atributos de las áreas de corte y relleno y estas se actualizarán por lo valores de las áreas halladas.

La selección de los objetos se realiza mediante una ventana que abarque todos los achurados incluyendo el texto de la progresiva de la sección.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: AXA.
  3. Selecciona mediante una ventana todos los achurados de corte y relleno de la sección, incluido el texto de la progresiva de la misma.
  4. Selecciona uno por uno los atributo del bloque a modificar, empezando por el atributo de la progresiva.
  5. El comando finalizará automáticamente luego de haberse seleccionado los atributos de corte y relleno.

Con el lisp se adjunta un archivo CAD de ejemplo para una mayor comprensión del comando.

Puede obtener la rutina aquí

7. Obtener la pendiente de una línea o polilinea

Este comando (rutina Autolisp) obtiene el valor de la pendiente de una línea o una polilinea, además también obtiene la longitud de la línea, la longitud horizontal y el ángulo.

Presenta una gran ayuda cuando deseamos controlar nuestras pendientes, para obtener la pendiente solo basta con seleccionar la línea o polilinea, el resultado se puede mostrar en pantalla (línea de comandos) o seleccionando un texto (el valor de este texto cambiará por el valor de la pendiente hallada).

Vale la pena recalcar que en el caso de un polilinea, este comando halla la pendiente de solo el primer segmento.

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: pnd
  3. Selecciona la línea o polilinea a obtener la pendiente.
  4. Si se desea se puede seleccionar un texto para reemplazar su valor por la pendiente hallada, de lo contrario, solo se deberá de presionar Enter para obtener los resultados en pantalla.

Puede obtener la rutina aquí

8.  RUTINA EN VISUAL LISP PARA OBTENER LA SUMA DE LAS LÍNEAS O POLILÍNEAS SELECCIONADAS

Se trata de una rutina generada en Lisp que obtiene la suma de las longitudes de las líneas o polilíneas seleccionadas, el resultado de esta suma se puede establecer en un texto seleccionándolo o de lo contrario solo se puede mostrar en la línea de comandos.

Puedes seleccionar líneas y polilíneas todas juntas mediante una ventana o de lo contrario una por una.

El número de decimales por defecto de la suma de las longitudes halladas es 2, pero se puede indicar otro valor.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: lpl
  3. Ingresa el número de decimales para el resultado de la suma de las longitudes
  4. Selecciona las líneas o polilíneas a sumar sus longitudes
  5. Presiona la tecla Enter para finalizar la selección
  6. Seleccionar un texto para reemplazar su valor por el de la suma obtenida o presiona Enter otra vez para mostrar el resultado en la línea de comandos

Puede obtener la rutina aquí

9. RUTINA EN VISUAL LISP QUE GENERA UN LISTADO DE LAS CAPAS DEL DIBUJO ACTUAL

Se trata de una pequeña rutina que genera un listado con los nombres de todas las capas del dibujo actual y lo muestra en la línea de comandos.

Para utilizar esta rutina debes de hacer lo siguiente:

Carga el archivo lisp en AutoCAD.
Ingresa el nombre del comando: lc
El resultado será un listado en la línea de comandos de todas las capas del actual dibujo.

Puede obtener la rutina aquí

Trabajo con coordenadas

10.  RUTINA AUTOLISP QUE INSERTA UNA TABLA DE DATOS

Esta rutina genera una tabla con el número de filas y columnas especificado, es similar al comando Table de AutoCAD, pero más ligera de utilizar.

Esta rutina genera una tabla con el número de filas y columnas especificado, es similar al comando Table de AutoCAD, pero más ligera de utilizar, aunque no vincula datos con Excel tiene la opción de rellenar la tabla con un valor predefinido que por defecto es «0.00» y es colocado en cada celda para ser editado posteriormente.

Este comando también permite generar la tabla mediante dos opciones, la primera opción permite definir la tabla mediante un alto y ancho fijo de las celdas y la otra opción ajusta estos valores para que el número especificado de filas y columnas ingresen en la designación de una ventana.

Como opciones adicionales cuenta con las siguientes:

  • Texto por defecto: Se puede indicar al comando que inserte un valor por defecto («0.00»)en cada celda generada, este valor se puede personalizar y puede cambiarse por cualquier otro.
  • Altura de texto: Es la altura que tendrá el texto insertado, la altura por defecto tiene un valor de «0.25».
  • Justificación: del texto insertado, por lo que se cuenta con dos opciones: Fit (Ajustar en la celda) y Middle (mitad de la celda).
  • Color: Se trata del color que tendrán los textos insertados, por defecto el color inicial es el color actual definido.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: Tabla
  3. De acuerdo al Modo de generación seleccionado, se indica un punto o se indica dos puntos para generar una ventana

Puede obtener la rutina aquí

Rutinas Lisp para interacción con Excel

11. Exportar puntos de Coordenadas a un archivo CSV

Esta rutina generada con Autolisp, te permite exportar puntos de coordenadas hacia un archivo CSV de Microsoft Excel. Los objetos desde los cuales puedes exportar estas coordenadas son puntos, textos y bloques, basta con seleccionarlos e indicar un archivo de destino de las coordenadas.

Se deberá de tener especial cuidado en el caso de que los objetos sean textos, ya que el punto de inserción que se toma en cuenta al momento de exportar las coordenadas, depende de la justificación que estos textos tengan, si estás seguro de que la justificación de los textos es la correcta no hay problema en la exportación de los puntos.

Lo recomendable es seleccionar objetos que tengan un solo punto de inserción, como bloques o puntos de AutoCAD, de esa manera es más seguro que las coordenadas exportadas sean las que corresponden.

Como mencionamos inicialmente, esta rutina exporta coordenadas a partir de puntos, textos (o también Mtext) y bloques, pero se puede complementar el código fuente para que tome en cuenta otras entidades como por ejemplo: círculos, puntos iniciales de líneas, entre otros objetos que en su base de datos tengan el código 10.

Las coordenadas exportadas tienen el formato P,N,E,C (Punto, Norte=Y, Este=X, Cota=Z) y como se exporta a un archivo CSV (separado por comas), al abrir el archivo cada valor ocupará su celda independiente.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: EPC
  3. Selecciona los objetos de los cuales se exportarán las coordenadas (ten en cuenta que seleccionará puntos, textos y bloques (si los encuentra).
  4. Indica la ubicación y el nombre del archivo CSV en que se generarán las coordenadas exportadas.

Puede obtener la rutina aquí

12.  RUTINA QUE EXPORTA PUNTOS DE COORDENADAS DE LÍNEAS A UN ARCHIVO CSV

Esta rutina generada Autolisp para AutoCAD, te permite exportar los puntos de las coordenadas de los extremos de las líneas seleccionadas hacia un archivo CSV de Microsoft Excel

Las coordenadas exportadas corresponden al punto inicial y final de las líneas, por lo que en el caso de las líneas estén unidas por el mismo punto, el lisp leerá 2 veces la misma coordenada.

En este caso, si se desea se deberá de considerar la opción de ordenar las coordenadas y eliminar las que se encuentren duplicadas, las coordenadas exportadas tienen el formato P,N,E,C (Punto, Norte=Y, Este=X, Cota=Z) y como se exporta a un archivo CSV (separado por comas), al abrir el archivo cada valor ocupará su celda independiente y en forma ordenada.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: EL3
  3. Selecciona las líneas de las cuales se exportarán las coordenadas del punto inicial y final.
  4. Indica la ubicación y el nombre del archivo CSV en que se generarán las coordenadas exportadas.

Puede obtener la rutina aquí

13. RUTINA LISP PARA IMPORTAR PUNTOS DE COORDENADAS DESDE MICROSOFT EXCEL

Esta rutina generada para usar en AutoCAD y sus aplicaciones verticales, te permitirá insertar las coordenadas de puntos desde un archivo de Microsoft Excel, con esta rutina no es necesario especificar detalles relacionados al archivo a importar, ya que mediante su interface tendrás al alcance las opciones necesarias para importar los puntos según como lo desees.

Para importar los puntos, se considera necesario que el archivo de puntos a importar tenga extensión XLS (de versiones anteriores a office 2007) o XLSX (versión 2007 o posterior) y que en el archivo las coordenadas estén formateadas con el formato: P,N,E,C,D, (Punto, Norte, Este, Cota, Descripción), así como lo muestra la siguiente imagen:

Te permite elegir entre 3 tipos diferentes de maneras de insertar un objeto punto en la coordenada leída.

  • La primera es elegir en insertar una entidad Punto de AutoCAD (la que se genera mediante el comando POINT), recuerda que la visualización de un punto en AutoCAD depende del tipo de visualización de punto que hayas definido con el comando DDPTYPE.
  • La segunda opción consiste en seleccionar un bloque almacenado en el dibujo como punto a insertar en la coordenada leída, por defecto la rutina crea un nuevo bloque llamado «cg-point», que puede ser usado en el caso de que se desee o no existan bloques en el dibujo.
  • La tercera opción relacionada al estilo de punto, permite importar un bloque desde el disco duro, recuerda que en este caso las dimensiones con las que se creó el bloque influyen en la visualización de éste al momento de ser insertado.
  • Con respecto a los datos del punto (etiquetas), iCe te permite decidir que deseas mostrar, si sólo deseas mostrar un Punto, bastará con que selecciones solo esta opción, lo mismo para el texto de la Cota o la Descripción del punto. Puedes optar por mostrar los 3 datos de la etiqueta o no mostrar ninguno.

Además puedes controlar el número de decimales del texto de la cota insertada, la escala que tendrá la etiqueta, la rotación de la misma cuyo punto base es la ubicación del punto importado y la separación de la etiqueta con respecto al punto, estas opciones las puedes almacenar con un nombre, para que así puedas llamarlas de acuerdo a los puntos que vas a importar.

Todas estas opciones te permitirán importar tus puntos desde un archivo de Excel de una manera rápida y con una apariencia clara, vale la pena aclarar que la forma como se ven los textos de la etiqueta del punto no depende de la rutina, sino del estilo de texto actual de tu dibujo y de la capa actual.

Hace algún tiempo publiqué una rutina desarrollada por un usuario, que permitía importar las coordenadas pero desde un archivo de texto pero con muchas limitaciones, esta vez mediante este nuevo comando tendremos más opciones de controlar la inserción de puntos de coordenadas.

En el archivo adjunto también se suministra un bloque de ejemplo que puedes importar, aparte de una hoja de cálculo con el formato correcto que necesita el comando para importar las coordenadas sin ningún inconveniente.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: ICE
  3. En el cuadro de diálogo especifica las opciones que creas conveniente para la importación de los puntos.

Puede obtener la rutina aquí

14. Importar áreas desde un archivo csv a secciones tranversales

Este comando te permite importar áreas (por defecto de corte y relleno) a secciones transversales de terreno, las áreas a importar deben de estar en un archivo con formato CSV (delimitado por comas), según el archivo de ejemplo adjunto.

Este comando lee la progresiva ubicada en la primera columna del archivo csv y busca el texto con esa misma progresiva en el archivo de dibujo, insertando su correspondiente área de corte y relleno en la parte superior derecha de la sección transversal.

Los sufijos insertados del área de corte y relleno por defecto son: «A.C.=» y «A.R.=», pudiendo ser manipulados mediante código, así como también el número de los decimales y la altura del texto insertado.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Establece como actual la capa que contendrá los textos que se insertarán, por ejemplo: «Texto-Areas».
  3. Ingresa el nombre del comando: arimx
  4. Selecciona el archivo SCV que contiene las areas a importar
  5. Selecciona las progresivas que deseas insertar su área correspondiente a partir del archivo csv, si deseas seleccionar todas solo basta con presionar la tecla Enter.

Puede obtener la rutina aquí

15. Listar las rutas de las imágenes insertadas en el dibujo

Si trabajas con imágenes, a menudo te habrá sido necesario generar un listado de las mismas, incluida su ruta de ubicación, con esta rutina podrás generar un listado con las rutas de todas las imágenes insertadas en el dibujo actual.

Esta rutina no necesita del ingreso de alguna opción, basta con llamar al comando e inmediatamente se mostrará en la línea de comandos de AutoCAD, la lista con las rutas de las imágenes insertadas.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: lima

Puede obtener la rutina aquí

16. Reemplaza un texto con la ruta del archivo actual

Esta rutina desarrollada en Autolisp, nos permite actualizar un texto cualquiera, con la ruta y nombre del archivo actual.

Se trata de una buena ayuda al momento de actualizar los membretes de los planos con esta información.
En la ruta obtenida también incluye el nombre del tab actual, si se está en el espacio modelo, mostrará al final de la ruta: model, de lo contrario mostrará en nombre del tab actual.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: ruta
  3. Selecciona el texto a reemplazar con el valor de la ruta del actual dibujo, si no deseas reemplazar algún texto solo presiona Enter para mostrar la ruta en la línea de comandos.

Puede obtener la rutina aquí

17. Reemplaza un texto seleccionado por la fecha actual con diferentes formatos de salida

Con ayuda de esta buena rutina podremos reemplazar un texto cualquiera, con el valor de la fecha actual.

El comando brinda 8 diferentes tipos de formatos para esta fecha, que van desde un tipo de fecha simple, hasta un tipo de fecha con formato largo, donde se obtiene mediante programación con AutoLisp el nombre del día de la fecha actual.

Se pueden seleccionar entidades de tipo Text y Mtext, estos serán reemplazados automáticamente por la fecha actual con el formato seleccionado, los formatos de fecha disponibles son los que se muestran en la ilustración, cada uno está identificado por su número, que servirá para elegir el formato cuando se solicite en la línea de comandos de AutoCAD.

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: RF
  3. Indicar mediante un número del 1 al 8, el formato de salida de la fecha, puedes ingresar el signo de interrogación (?), para visualizar los formatos de fecha disponibles
  4. Selecciona los textos que desees reemplazar por la fecha con el formato seleccionado
  5. Presiona la tecla Enter para terminar el comando y actualizar los textos seleccionados

Puede obtener la rutina aquí

18. RUTINA LISP QUE INVIERTE O TRANSPONE LOS TEXTOS SELECCIONADOS

En ocasiones deseamos invertir los valores de dos textos, por ejemplo, que el texto con el numero 1346 pase a ser 1111 y viceversa, esta rutina nos permite transponer los valores de los textos que se seleccionen.

Para lograr este resultado, basta con indicar los dos textos, uno después del otro.

Haz lo siguiente para utilizar esta rutina.

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: tra
  3. Selecciona los dos textos a transponer.

Puede obtener la rutina aquí

19. RUTINA QUE REEMPLAZA EL CONTENIDO DE UN TEXTO POR LA COTA DEL PUNTO DE INDICADO

Este nuevo comando obtiene el valor de la cota (coordenada Y) de un punto indicado y lo establece como contenido del texto seleccionado.

Esta rutina es de mucha utilidad por ejemplo cuando se trabaja con perfiles de terreno y deseamos obtener la cota de un vértice y establecerla en uno de los textos que indican la cota de terreno, también se puede utilizar cuando se trabaja con secciones transversales de terreno y se desea obtener el valor de la cota en el eje de la sección y establecerla en un texto que indicará ese valor de cota.

En este comando se puede indicar que escala tendrá la cota a establecer en el texto, no se trata de la altura del texto seleccionado, sino de la escala que tiene el perfil o la sección a indicar, si tu perfil por ejemplo esta escalado 10 veces en el vertical, deberás de establecer como escala a de la cota en el comando NC de 10, para que de esa manera el comando, haga la división correspondiente y establezca el valor adecuado en el texto seleccionado.

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: NC
  3. Indica la escala que tendrán las cotas
  4. Ingresa el número de decimales que tendrá el texto con la cota obtenida (3 por defecto)
  5. Indica el punto del cual deseas obtener la cota y
  6. Selecciona el texto el cual será reemplazado por el valor de la cota obtenida o si lo deseas puedes presionar la tecla Enter para solo visualizar la cota obtenida sin reemplazar ningún texto

Puede obtener la rutina aquí

20. RUTINA QUE REEMPLAZA TEXTOS POR LA PROGRESIVA Y OTRO CON LA COTA INDICADA AGREGANDO UN PREFIJO O SUFIJO

Este comando permite obtener los valores de progresiva y cota (valores X e Y) de un punto indicado y los establece en los 2 textos seleccionados.

Además a cada texto le agrega un prefijo o un sufijo, por ejemplo si se indica un prefijo para la cota (coordenada Y)  igual a «CT=», cuando se seleccione el texto de cota, el comando actualizará el texto seleccionado por el valor de la cota obtenida, mas el prefijo indicado, por ejemplo «CT=236.42», cuando se seleccione el texto de la progresiva, este se actualizará con el valor de la coordenada X obtenida mas el sufijo «0+», por ejemplo «0+10.0».

Este comando viene con los prefijos para la progresiva y cotas ya definidos (“0+” y “CT=”) y solo pueden ser cambiados modificando el código fuente, además este comando se puede modificar si se desea, para que se agregue un prefijo y un sufijo al mismo tiempo en los textos.

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: PC
  3. Indica el punto de donde se obtendrán los valores de la progresiva (coordenada X) y de la cota (coordenada Y)
  4. Selecciona el texto de la progresiva
  5. Selecciona el texto de la cota

Los valores de los textos se actualizarán con los datos obtenidos

Puede obtener la rutina aquí

21. RUTINA AUTOLISP PARA ESTABLECER UNA COTA ESPECÍFICA EN UN PUNTO INDICADO

Se trata de una rutina hecha en Autolisp que nos permite establecer un valor de cota (coordenada Y) en un punto indicado.

Este comando solicita datos (puntos y valores) y realiza operaciones para obtener el valor final que se establecerá en la coordenada Y del punto indicado (cambia el valor de la coordenada del UCS (Sistema de Coordenadas Universal) en un punto indicado por el valor ingresado).

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Cargar el archivo en AutoCAD mediante el comando APPLOAD o copiando el archivo y pegándolo en AutoCAD.
  2. Ingrese el nombre de comando: OS
  3. Ante la solicitud de indicar el punto de cota, debe de indicar un punto en pantalla (el punto en el que quiera establecer una cota en particular).
  4. El comando solicitará que se ingrese el valor de la cota a establecer o seleccionar un texto:
  5. Aquí se debe de ingresar el valor de la cota que desea que tenga la coordenada Y en el punto indicado, puedes ingresar un valor o puedes seleccionar un texto que contenga el valor de cota, el comando obtendrá sólo el valor numérico en caso de que el texto tenga también alguna descripción.

Para verificar que se ha establecido la cota ingresada en el punto indicado ejecute el comando ID, indique el punto, y observará en la linea de comandos que el valor de la coordenada Y ahora esta con el valor ingresado.

Puede obtener la rutina aquí

22.  AREASX: RUTINA LISP PARA HALLAR ÁREAS POR CONTORNOS

Este comando te permite hallar áreas indicando un punto interno entre objetos o mediante la selección de contornos cerrados, este comando te muestra el área obtenida o de lo contrario la establece en un texto seleccionado.

El comando Ax dispone de las siguientes opciones:

Solicitudes iniciales:
Indique un punto interno del área o [Seleccionar objeto/Opciones]<terminar>:

Aquí se deberá de indicar los puntos internos de los cuales se obtendrá el área, las demás opciones se describen a continuación:

Seleccionar objeto: En lugar de indicar puntos internos para hallar aéreas, mediante esta opción podrás seleccionar polígonos cerrados para hallar su área.

Opciones: Esta opción te carga el cuadro de diálogo Opciones del comando, el cuadro de diálogo es el siguiente:

A continuación se describe cada opción:

Número de decimales: El número de decimales que tendrá el área hallada (2 por defecto).
Altura del texto a insertar: Si se decide por insertar un texto con el área obtenida, aquí se establece la altura que tendrá dicho texto.

Conversiones de áreas: Esta opción permite realizar operaciones con los valores de las áreas halladas, cada área se suma, resta, multiplica o divide por un factor que se debe de especificar en la parte inferior de esta opción.
El comando muestra si esta activa la conversión y cual de las operaciones es la que se efectúa y con que valor se procederá a realizar la conversión.

Esta opción permite personalizar las áreas cuando el dibujo se encuentra en diferentes escalas o en otras unidades de dibujo.

Aplicar sombreados: Esta opción permite que cada área indicada sea sombreada para tener una mejor visión del área que se está hallando, permitiendo de esa manera verificar si es correcta (Activada por defecto).
Nombre del sombreado: Aquí se debe de indicar el nombre del sombreado que se aplicará en las aéreas indicadas (por defecto Solid).

Escala (del sombreado): Aquí se indica el factor de escala del sombreado, este factor es variable de acuerdo al tipo de sombreado seleccionado.

Color (del sombreado): El color que tendrá el sombreado aplicado en las áreas indicadas.

Terminando el sombreado: Las opciones a continuación se aplican una vez que se culmina la aplicación del comando.

Retener los contornos: Si está activada los contornos generados no son eliminados.

Retener el sombreado: Si está activada los sombreados generados no son eliminados.

Solicitudes finales:
Indique un punto interno del área o [Seleccionar objeto/Insertar texto área/Opciones]<cambiar texto>:

Insertar texto área: Esta opción permite insertar un texto con el área obtenida en lugar de seleccionar uno para reemplazarlo. El texto con el área hallada tiene como prefijo por defecto: » Area =», este prefijo se puede modificar en el código del programa.

Cambiar texto: Esta opción se activa cuando se presiona la tecla Enter o se presiona el botón derecho del mouse, lo que solicitará que se seleccione un texto, por ejemplo si se tiene un texto con el siguiente contenido: «AC=0.00m2» y mediante el comando se ha hallado un área de 3.25, entonces el comando reemplazará al texto actualizándolo por «AC=3.25m2». Como se puede ver, AX, reemplaza solo los valores numéricos del texto a reemplazar, por lo que puedes tener textos de aéreas con diferentes prefijos, por ejemplo: «AR=0.00m2», «AM=0.00m2», «Area de corte=0.00m2», «Mi área=0.00m2», etc.

Contornos válido e inválidos:

Contorno válido

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: AX
  3. Indica un punto interno en el área que deseas hallar (tienes que asegurarte que el área a hallar debe de estar completamente cerrada, de lo contrario el comando mostrará un aviso de error).
  4. Indica puntos internos cuantas veces lo necesites, el comando ira, acumulando (sumando) todas las aéreas halladas.
  5. Presiona Enter o clic con el botón derecho para terminar el comando e establecer el área en un texto existente.

Puede obtener la rutina aquí

Selección de objetos

23. Selecciona todas las entidades de la capa del objeto seleccionado

Esta pequeña rutina realiza lo mismo que la anterior, la diferencia consiste en que aquí no se ingresa el nombre de la capa para seleccionar los objetos, sino que se selecciona una entidad de la cual se desea obtener el nombre de la capa.

Así como en la rutina anterior, la selección de entidades no se hace visible, pero existe como conjunto de entidades seleccionadas, por lo que se deberá de indicar el modo de selección «Previous» para seleccionar los objetos.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: ssl
  3. Selecciona el objeto de cual deseas obtener el nombre de la capa para seleccionar las demás entidades
  4. Haz efectiva la selección de entidades mediante el modo previuos

Puede obtener la rutina aquí

24. Eliminar objetos internos o externos de una polilinea seleccionada

Mediante esta rutina podrás borrar los objetos que se encuentren en el área interior o exterior de una polilinea seleccionada, si se indica la opción recortar, los objetos que sean intersectados por la polilinea serán recortados por el lado que se indique.

Cuando se trata de eliminar objetos fuera de la polilinea, se deberá de tener especial cuidado ya que este comando elimina todos los objetos que se encuentren fuera de la polilinea.

La polilinea a seleccionar deberá de ser una polilinea cerrada, de no serlo la rutina une el último punto del segmento con el primero, cerrando así mediante una línea imaginaria la polilinea y eliminando todo lo que este dentro o fuera de esa línea.

La opción recortar como es lógico, solo funciona con objetos que pueden ser recortados de una forma manual, como por ejemplo, líneas, círculos,  arcos, etc, los bloques y otros objetos compuestos no ingresan dentro de estos objetos que pueden ser recortados.

Con el lisp se adjunta un archivo de ejemplo para que se hagan las pruebas correspondientes antes de usar el comando en archivos finales.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: PolErase
  3. Selecciona la polilinea que servirá de borde para delimitar los objetos a eliminar.
  4. Elige una opción de como borrar los objetos, podrás elegir la opción: Ventana (solo elimina los objetos que están totalmente fuera o dentro de esa ventana), Captura (elimina los objetos que incluso son intersectados por el borde de la polilinea), borrar y Recortar (como su nombre lo indica, borrará los objetos que están dentro o fuera de la polilinea y recortará los objetos que sean intersectados por el borde.
  5. Indica un punto sobre qué lado (interno/externo) se borrarán o recortarán los objetos.

Puede obtener la rutina aquí

25. Permite seleccionar todas las entidades de la capa ingresada

Se trata de una rutina lisp que te permite seleccionar todas entidades que se encuentren en la capa indicada, no hace distinción de color o de otra propiedad que pueda tener la entidad.

Esta rutina no hace distinción de mayúsculas o minúsculas a la hora de ingresar el nombre de la capa, por lo que se puede ingresar de cualquier forma, basta con que este bien escrito.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: sca
  3. Ingresa el nombre de la capa de los objetos que deseas seleccionar
  4. Haz efectiva la selección de entidades mediante el modo previuos

Puede obtener la rutina aquí

26. Copiar el contenido de un texto a otro texto

Se trata de una rutina hecha con el lenguaje de programación autolisp, nos permite copiar el contenido de un texto seleccionado, y establecer ese valor en un segundo texto a seleccionar.

Para utilizar ésta rutina, se debe de hacer lo siguiente:
  1. Cargar el archivo lisp en AutoCAD, mediante el comado Appload o simplemente copiando el archivo y pegando en AutoCAD.
  2. Ingrese el nombre del comando: RT
  3. Seleccione el texto, del cual desea obtener el valor.
  4. Seleccione el texto, el cual desea reemplazar por el valor obtenido anteriormente.

Como se puede observar, la rutina es sencilla, pero es de mucha ayuda cuando se trata de edición de textos.

Cabe resaltar que el lenguaje utilizado en esta rutina es netamente AutoLisp, en una nueva entrada publicaremos el mismo comando pero escrito en VisualLisp, en el cual observaremos que el tamaño de la estructura se reduce aun más.

Puede obtener la rutina aquí

27. Cambiar el número decimales de un texto sin perder el valor original

Esta rutina lisp te permite cambiar el número de decimales de los textos seleccionados sin perder el número de decimales original, con eso podrás mostrar un número por ejemplo con 2 decimales, pero internamente tendrá una nueva propiedad con su valor definido originalmente.

Esta nueva propiedad solo puede ser accesada mediante este comando, ya que no se lista mediante el cuadro de diálogo Propiedades.

El lisp te permite cambiar el número de decimales u obtener el número original de un texto formateado anteriormente con esta rutina, así sabrás cuantos decimales tuvo originalmente si deseas restablecer los valores originales de los mismos.

Es de resaltar que estos valores originales permanecen a pesar de que el archivo o AutoCAD hayan sido cerrados, por lo que tendrás la seguridad que los datos originales de tus valores siempre estarán ahí, incluso a pesar de restablecer los valores originales a los textos.

Este nuevo comando se podría comparar a la acción de cambiar decimales de Excel, pero la única observación es que esta propiedad es interna y como dijimos anteriormente la ventana Propiedades no está preparada para mostrar data extendida de entidades.

Se debe de tener especial consideración en que los textos seleccionados sean textos numéricos, es decir sólo contengan números, ya que de lo contrario su valor será convertido a «0.00«.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: AREDE
  3. Elige una de las opciones que deseas realizar
  4. Selecciona los textos (numéricos) en los cuales deseas efectuar la operación

Puede obtener la rutina aquí

28. Alinear varios textos tomando como base el primero seleccionado

Rutina desarrollada con AutoLisp que nos permite alinear varios textos tomando como base el primero seleccionado.

el programa permite alinear los textos en forma vertical (columnas) o en forma horizontal (filas), para ello solo se deberá de seleccionar el primero, que servirá como base para alinear los demás textos.
Cabe resaltar que el punto tomado como base para alinear los textos es el punto de inserción, si todos los textos tienen como punto de inserción la justificación «Left», todos se alinearan con respecto a este punto y será una alineación uniforme. Si los textos tienen diferente justificación, todos se alinearán con respecto a su punto de inserción lo que hará que la alineación de los textos no quede uniforme.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: alit
  3. Selecciona el texto base del cual se obtendrá el eje de alineación
  1. Selecciona los textos a alinear
  1. Listo, los textos quedaron alineados tomando como base el primero seleccionado

Puede obtener la rutina aquí

29. Copiar la altura de un texto y establecerla a otros textos seleccionados

Esta rutina creada en AutoLisp copia la altura de un texto seleccionado y la establece en los textos que se seleccionan después, cambiando la altura que tenían.

Por ejemplo, si tienes 3 textos, el primero tiene una altura de 3 y los dos siguientes tienen una altura de 6 y deseas que los dos segundos tengan también una altura de 3 en lugar de 6, basta con seleccionar primero el texto cuya altura tenga 3 y luego los textos que tienen altura 6.

Haz lo siguiente para utilizar esta rutina.

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: CA
  3. Selecciona el texto cuya altura es la que quieres copiar o establecer.
  4. Selecciona los textos que deseas cambiar la altura por la primera seleccionada

Puede obtener la rutina aquí

30. Seleccionar un texto y establecer el valor obtenido en el atributo de un bloque

Este programa hecho en Autolisp y Visual Lisp, permite seleccionar un texto, copiar el valor del contenido y establecerlo (actualizar) en un atributo que forma parte de un bloque.

Es decir si deseamos actualizar un atributo de un bloque cualquiera, por un texto existente, basta con seleccionar primero el texto y luego el atributo y este se actualizará de acuerdo al valor del texto seleccionado.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: cta
  3. Selecciona el texto que contiene el valor a copiar.
  1. y por último selecciona el atributo a cambiar la medida
  1. El resultado se muestra a continuación:

Como podemos observar, este comando nos es bien útil si deseamos actualizar un valor de un atributo a partir de un texto en particular.

Puede obtener la rutina aquí

31. Cambia la altura de textos de acuerdo a un porcentaje ingresado

Esta rutina generada en AutoLisp nos permite modificar las alturas de los textos seleccionados cambiándolas de acuerdo a un porcentaje ingresado.

Por ejemplo si se tiene dos textos, uno con altura 0.5 y el otro con una altura de 1.00 y se ingresa al comando un porcentaje de 1.5, las alturas de los textos cambiaran por las siguientes: 0.75 y 1.5 respectivamente.

Esta rutina es muy útil cuando se requiere hacer cambios en las alturas de muchos textos con diferentes alturas.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: ch
  3. Ingresa el porcentaje que cambiará la altura de los textos, por ejemplo: si ingresas 0.5, todos los textos se reducirán a la mitad, y si ingresas 2, todos los textos crecerán al doble
  4. Selecciona los textos que deseas modificar

Puede obtener la rutina aquí

32. RUTINA LISP PARA ELIMINAR EL CONTENIDO DE UN ATRIBUTO DE UN BLOQUE

Cuando se tiene un bloque con muchos atributos, resulta muy tedioso tener que eliminar el contenido de muchos de ellos, generalmente se debe de hacer doble clic en el atributo seleccionado, esperar a que cargue el cuadro de diálogo y proceder a borrar el contenido.

Para evitar este tedioso trabajo, esta pequeña rutina te aliviará un poco el tiempo que empleabas en realizar la tarea descrita líneas arriba. Con este comando sólo deberás de seleccionar los atributos que deseas borrar el contenido.

Deberás de verificar que los textos que estén en el bloque se trate de atributos (a veces se confunden entre ellos), para que la rutina funcione correctamente. Ojo, que este comando sólo borra el contenido del atributo, mas no el atributo en si del bloque.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: BCA
  3. Selecciona los atributos del bloque de los cuales deseas borrar su contenido.

Puede obtener la rutina aquí

33. RUTINA EN VISUAL LISP QUE COPIA EL CONTENIDO DE UN TEXTO Y LO ESTABLECE A TODOS LOS TEXTOS SELECCIONADOS

Hace algún tiempo compartí con ustedes una rutina que copiaba el valor de un texto y lo establecía a otro texto seleccionado, esta vez esta rutina te permitirá obtener el valor de un texto seleccionado y lo establecerá a varios textos que selecciones.

La utilización de este nuevo comando es muy sencilla, basta con que selecciones el texto desde donde deseas copiar el  valor y luego deberás de seleccionar todos los textos que deseas reemplazar por este nuevo valor.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: RTN
  3. Selecciona el texto origen del valor a copiar
  4. Selecciona los textos que serán reemplazados por este nuevo valor
  5. Presiona la tecla Enter para terminar el comando y actualizar los textos con el nuevo valor

Puede obtener la rutina aquí

34. RUTINA EN AUTOLISP QUE AUMENTA O REDUCE PROGRESIVAMENTE LA ALTURA DE LOS TEXTOS

Se trata de un lisp que contiene dos comandos: Aumentar y Reducir, estos comandos permiten modificar la altura del texto seleccionado, aumentándolo o reduciéndolo de tamaño según el comando elegido.

El cambio de tamaño se efectúa por cada clic que se haga en el texto y se realiza de acuerdo a un factor indicado en el código fuente del lisp, este factor es de 1.2. La altura inicial del texto se multiplica por 1.2 cada vez que se hace clic en el o se divide entre 1.2, dependiendo de qué comando se ha elegido.

Para una mayor información de que altura es la que va teniendo el texto cada vez que se hace clic en él, la rutina muestra en la línea de comandos la altura resultante por cada cambio en la altura efectuada en el texto.

Este comando es muy útil cuando se quiere aumentar o reducir alturas de los textos en proporción, sin necesidad de tener una altura final especificada, solo visual.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: AU (para aumentar) | RE (para reducir)
  3. Haz clic en el texto a aumentar o reducir el tamaño tantas veces como consideres necesario
  4. Presiona la tecla Enter para finalizar el comando

Puede obtener la rutina aquí

35.  RUTINA LISP QUE OBTIENE LAS MEDIDAS DE LAS DIMENSIONES SELECCIONADAS

La siguiente rutina te permite obtener las medidas de las dimensiones (acotados), los valores obtenidos son mostrados en pantalla, los cuales puedes copiar y pegar por ejemplo en Microsoft Excel y cada valor se pegará en una fila independiente.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: DimX
  3. Ingresa el número de los decimales de las medidas a obtener (3 por defecto)
  4. Selecciona las dimensiones a obtener sus medidas
  5. Presiona Enter para finalizar la seleccionar y visualizar en pantalla los valores obtenidos

Puede obtener la rutina aquí

36. RUTINA EN VISUALLISP QUE INCREMENTA EL VALOR DE LOS NÚMEROS DE ACUERDO A UN FACTOR

Rutina en VisualLisp permite incrementar el valor de los números de los textos seleccionados. Esta rutina generada en VisualLisp permite incrementar el valor de los números de los textos seleccionados (uno por uno) de acuerdo a un factor de incremento indicado.

Si el valor indicado es un número negativo los valores posteriores serán un decremento del valor inicial.

Por ejemplo, si como valor inicial está el número 1, y se ingresa un valor de incremento de 1 unidad, los números posteriores seleccionados se irán incrementando en una unidad, el siguiente será 2, el siguiente 3, etc.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: inc
  3. Selecciona el texto con el valor inicial
  4. Ingresa el incremento
  5. Selecciona uno por uno todos los textos que desees reemplazar
  6. Presiona la tecla Enter para finalizar el comando

Puede obtener la rutina aquí

Lisp para topografía y 3D

37. Convertir entidades 3DFace a Sólidos ACIS

Hace algún tiempo llegó a mis manos esta interesante rutina lisp y aunque últimamente no la he usado, cada vez que la he necesitado me ha ayudado enormemente con cálculos de volumen, esto como complemento en los momentos que civil 3D no logra darme los resultados que necesito.

Se trata de una rutina en la que seleccionando objetos 3Dface, los extrusiona y los une convirtiéndolos en un solo objeto 3D Solid, su uso es sencillo y solo basta con seleccionar los objetos y la rutina hará todo el trabajo.

Para una mayor apreciación de los cambios que efectúa la rutina en los objetos, es necesario tener una vista 3D, de lo contrario en vista de planta no se observarán las alturas creadas en el 3D Solid, debido a que el sólido es creado por la proyección de cada cara seleccionada, verticalmente «hacia abajo» del actual eje z, a un plano y a una distancia especificada por el usuario.

Para asegurar que todas las partes de la malla se generan como los sólidos, esta distancia no puede ser cero, pero el sólido puede ser cortado más adelante si fuera necesario hasta el espesor que sea necesario, con operaciones booleanas u operaciones de edición de sólidos. El sólido resultante se crea en la capa actual.

Si al final de la unión de los pequeños sólidos, la operación se detiene o se cuelga debido a limitaciones de memoria, puedes intentar unirlos de forma manual.

Notas a considerar:

Si caras adyacentes no tienen idénticas coordenadas, habrá muy pequeñas lagunas o solapamientos entre los sólidos derivados de las mismas, lo que puede ser de causa de que AutoCAD no pueda ser capaz de unir los sólidos, mostrando los siguientes mensajes:

  • «Inconsistent containment of intersection curve.»
  • «Inconsistent information in vertex and coedge coordinates.»
  • «Inconsistent edge-face relationships.»
  • «Inconsistent face-body relationships.»
    Si persisten los problemas al generar el sólido, se debe de copiar una pequeña distancia y a continuación, unir las copias con el original para tratar de llenar todos los vacíos en la superficie 3DFace y volver a intentar hasta resolver el problema.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: F2S
  3. Selecciona los 3D face a convertir en un sólido
  4. Ingresa la altura (hacia abajo) que tendrá el sólido a partir de cada vértice de los 3DF
  5. Ingresa la forma de generar el sólido: Automático o Manual

Puede obtener la rutina aquí

38. Inserta cotas en curvas de nivel a partir de su elevación

En varias ocasiones te habrás encontrado con que tienes curvas de nivel en un archivo, pero estas no tienen su cota, mediante esta rutina, podrás insertar cotas en la curva de nivel topográfica que desees.

Las cotas que se insertarán son bloques con atributos, estos bloques están creados en un dibujo en milímetros. Para que puedas usar sin problemas este lisp, deberás mediante comando «UNITS» (Unidades) definir las unidades del contenido a insertar en «Millimeters» (Milímetros).

Vale la pena poner en claro que para que esta rutina inserte la cota correcta a las curvas de nivel, estas deberán de tener una elevación (coordenada z>0), ya que la cota se obtiene a partir del punto indicado en una curva de nivel, si las curvas de nivel tienen elevación 0 (coordenada z=0), es decir no tienen elevación, la rutina insertará un texto con ese valor.

La escala solicitada por la rutina se refiere a la escala en la que será ploteado el dibujo, es una valor de referencial de tamaño del texto de la cota a insertar, puedes ir probando incrementando o disminuyendo este valor hasta que la cota se inserte con el tamaño de texto que deseas.

Esta rutina tiene 2 archivos adjuntos: EL_TAG.dwg y EL_TAG2.dwg, se trata de los bloques con atributos explicados anteriormente, estos archivos se podrán copiar en cualquier lugar, aunque es recomendable que se encuentren en la misma carpeta que la de la rutina.

Para que AutoCAD pueda cargar estos archivos se debe de definir la ruta de la ubicación de estos en el cuadro de diálogo Opciones->Support Files Search Path.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: CPE
  3. Indica un punto encima de la línea de la curva de nivel y en el lugar que deseas se inserte la cota
  4. Indica otro punto para definir la rotación que tendrá la cota a insertar
  5. Puedes seguir insertando mas cotas indicado su punto de inserción, si no deseas insertar mas cotas, presiona la tecla Enter para terminar el comando

Puede obtener la rutina aquí

39. Dibujar las líneas de los taludes de corte o relleno

Esta rutina dibuja las línea de los taludes de corte o relleno, éstas líneas de talud son necesarias para indicar ó representar los desniveles entre las plataformas.

Para poder generar las línea de talud con ésta rutina, se deberán de ingresar 6 datos que permitirá que las línea de talud se generen de acuerdo a lo esperado.

A continuación describimos los datos solicitados:

  1. Distancia entre líneas de talud(m): Aquí deberás de ingresar la separación que habrá entre cada línea de talud.
  2. Seleccione la polilinea de la cota más alta: Como el talud se trata de un desnivel entre dos líneas de bordes, aquí se debe de indicar que polilinea es la de la cota más alta.
  3. Seleccione la polilinea de la cota más baja: De igual manera se debe de indicar la polilinea de la cota más baja.
  4. Corte ó Relleno? <R>: El sentido del dibujo del inicio de las líneas de talud dependerá si se trata de un corte o un relleno, por defecto al presionar la tecla Enter, se tomará como el valor «R» de relleno.
  5. Longitud máxima de la línea de talud: Es la medida que tendrá la línea mayor de la representación del talud, si la medida es menor que la distancia hasta el pie del talud, se observará que la línea no intersecta con la línea borde del pie de talud, si se desea que la línea mayor del pie de talud llegue hasta la intersección con la línea borde del pie de talud, se debería de indicar un valor mayor, como 200 ó 500 por ejemplo.
  6. Distancia entre banquetas de talud: Es la Separación que tendrán las banquetas de talud.

Puedes observar los siguientes gráficos para una mayor compresión de las definiciones:

Aquí se ha indicado una longitud máxima para la línea de talud de 5m.
Aquí se ha indicado una longitud máxima para la línea de talud de 200m (el valor exacto no es importante solo se trata de dar un valor exagerado para que cuando intersecte con la línea de borde del pie de talud, se corte automáticamente).

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Deberás de tener como actual la capa que contendrá las líneas de los taludes a generar, por ejemplo: «Líneas de talud«.
  2. Carga el archivo lisp en AutoCAD.
  3. Ingresa el nombre del comando: tic
  4. Ingresa los datos que te solicita el comando.

Puede obtener la rutina aquí

40. Dibujar una línea con un talud indicado

Esta rutina te permite dibujar una línea con el talud que le indiques, basta con indicar el punto de inserción de la línea y el talud que tendrá.

El talud se indica en un valor con respecto a 1, por ejemplo: si se desea dibujar una línea con un talud de 2:1, sólo se deberá de indicar como talud para la línea el número 2, si el talud que se desea obtener es 1:1.333, se deberá de ingresar 0.75.

Para una mayor aclaración, si se desea obtener taludes con el valor de 1 primero (1:x), se deberá de dividir el número 1 entre el talud complementario (x).

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: DT
  3. Indica el punto de inserción de la línea
  4. Ingresa el talud que tendrá la línea según lo explicado anteriormente

Puede obtener la rutina aquí

41. Dibujar una línea con una pendiente indicada

Con esta sencilla rutina podrás dibujar una linea con la pendiente que indiques, para ello solo basta con indicar el punto de inserción de la línea y la pendiente que tendrá.

La linea se genera con una longitud horizontal de 10 unidades y una longitud vertical del valor de la pendiente indicada entre 10.

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: LP
  3. Indica el punto de inserción de la línea
  4. Ingresa la pendiente que tendrá la línea en porcentaje (ejm: 12), sin el signo de porcentaje

Puede obtener la rutina aquí

42. Calcular las áreas de corte y relleno de secciones transversales

Con esta rutina lisp podrás hallar las áreas de corte y relleno a partir de una sección transversal que tenga una línea de Terreno Natural y una línea de rasante (sección de la carretera final).

Con esta rutina lisp podrás hallar las áreas de corte y relleno a partir de una sección transversal que tenga una línea de Terreno Natural y una línea de rasante (sección de la carretera final).

Para que este lisp halle las áreas, se debe de realizar la selección de las polilineas del terreno y rasante y el comando solicitará un punto para insertar los textos de las áreas halladas correspondientes.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: AREAS
  3. Selecciona la polilinea del camino original (Terreno natural)
  4. Selecciona la polilinea de la carretera (Rasante o Subrasante)
  5. Indica punto para insertar los textos de las áreas obtenidas

En el archivo .rar se adjunta también un archivo CAD de ejemplo para una mayor compresión de la rutina.

Puede obtener la rutina aquí

43. Insertar las pendientes de un perfil longitudinal

Esta rutina te permite insertar en la guitarra las pendientes de un perfil longitudinal (polilinea o línea), para eso sólo basta con seleccionar el perfil (la polilinea) e indicar un punto que corresponderá a la ubicación vertical de los textos que indican las pendientes.

Si se trata de una línea el comando calcula solo los puntos extremos, hallando de esa manera la pendiente, en el caso de que se trate de una polilinea, la rutina obtiene cada vértice inicial y final y calcula la pendiente entre ellos de todos los segmentos de la polilinea.

El texto que indica la pendiente obtenida es del tipo por ejemplo:  «P=1.11% en 10.49 m» y como ya saben este formato se puede modificar para adaptar a la manera de trabajo de cada uno de ustedes.

Al igual que en la rutina anterior, el estilo de texto actual no debe de contemplar una altura, de tenerla se generará un error y las pendientes no será insertadas.

La escala que se indica al comienzo de la rutina, sólo es para los tamaños de los textos y no influye en las medidas obtenidas para procesar las pendientes.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: PNF
  3. Ingresa la escala para los textos de las pendientes obtenidas que se insertarán
  4. Selecciona el perfil a calcular las pendientes
  5. indica un punto de referencia para insertar los textos con las pendientes

Puede obtener la rutina aquí

44. Insertar una marca en los vértices de una polilinea

Esta rutina lisp es una adecuación de la anterior y te permite insertar una marca en todos los vértices de la polilinea que selecciones, para ello solo debes seleccionarla.

La marca insertada es un archivo de dibujo (bloque) generado para una escala en particular, pero es totalmente personalizable, se puede editar como cualquier dibujo, solo se debe de respetar el punto centro del mismo (en este caso el centro del círculo del bloque).

En el código fuente del archivo se puede optar por insertar un circulo en lugar del bloque, para eso solo se debe de quitar los comentarios de la línea que contiene este código y comentar la línea que inserta el bloque.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: IMA
  3. Selecciona la polilinea la cual deseas marcar sus vértices
  4. Indica la ruta y el nombre del archivo a exportar

Puede obtener la rutina aquí

45. Obtener el talud de una línea seleccionada

Este programa desarrollado en AutoLisp, permite obtener el valor del talud de una línea seleccionada.

Se debe de tener en cuenta que este comando sólo funciona con líneas, si se tiene una polilínea se debe de explotar o generar una línea encima de la polilínea.

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Cargar el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: TL
  3. Selecciona la línea de la cual quieres obtener el talud.
  4. La información que se obtiene es el talud H:V.

Puede obtener la rutina aquí

46. PACK DE 3 RUTINAS PARA MUROS DE CONTENCIÓN – PARTE 3: CREACIÓN DEL PERFIL A PARTIR DE LAS SECCIONES DE UN MURO

Mediante esta rutina podrás generar el perfil (elevación) de un muro de contención, este perfil se podrá realizar a partir de los datos de las secciones transversales de los muros, estos datos son: Progresiva, Cota de Corona y Cota de Cimentación.

El dato de escala que solicita el comando, no se refiere a la escala vertical del perfil (el perfil se genera con escala vertical igual a la horizontal) sino al tamaño de escala para los textos del perfil (cotas y otros datos).

Para generar el perfil basta con seleccionar primero la progresiva de la sección, luego la cota de la corona y por último la cota del fondo de la cimentación.

Deberás de tener especial cuidado en la selección de los datos ya que si no seleccionas un texto y das un clic en la pantalla, el comando lo tomará como que has finalizado la selección de datos para generar el perfil.

Junto con la rutina se suministra un archivo CAD, con secciones transversales de muro, como ejemplo para poner en practica la rutina lisp.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: MUP
  3. Ingresa la escala (tamaño) de los textos del perfil (ejemplo: 75)
  4. Selecciona el texto de la progresiva
  5. Selecciona el texto de la cota de corona
  6. Selecciona el texto de la cota del fondo de la cimentación
  7. Una vez que hayas finalizado con la selección en todas las secciones del muro, presiona Enter e indica un punto en el que se generará la parte superior izquierda de la corona del perfil del muro.

Puede obtener la rutina aquí

47. PACK DE 3 RUTINAS PARA MUROS DE CONTENCIÓN – PARTE 2: DIMENSIONAMIENTO (ACOTADO) DE LA SECCIÓN DE UN MURO

Esta rutina te permite dimensionar (acotar) una sección de muro generada con la rutina publicada anteriormente (ya que posee los mismos criterios de diseño), el resultado sería como la siguiente imagen (las medidas varían de acuerdo a las dimensiones del muro).

Esta rutina pregunta por la escala para los acotados que se generarán, esta escala sólo se refiere a la separación entre las líneas de los acotados, los tamaños y forma de los acotamientos dependen exclusivamente del actual estilo de dimensión y este debe de ser generado previamente por el usuario para la escala que se trabaja.

Para generar los acotamientos se debe de proceder igual como en la rutina anterior para la generación del muro, se indica un punto en el hombro de la rasante de la sección de la carretera, en el lado donde se necesite el muro y se indica la altura mediante la opción de indicar un punto en el fondo de la cimentación del muro.

Vale la pena aclarar que esta rutina solo acota una sección de muro generada con la rutina del post anterior, ya que utiliza los mismos criterios de dibujo de la sección de muro, se puede modificar en el código las operaciones que calculan los puntos en el caso de que se desee aplicar para otro tipo de muro.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: MUD
  3. Ingresa la escala para las separaciones entre líneas de dimensión
  4. Indica un punto de referencia (P1 de la imagen) en el muro
  5. Indica el sentido del muro (Izquierdo o Derecho)
  6. Indica un punto en el fondo de la cimentación de la sección del muro (P2 de la imagen)

Puede obtener la rutina aquí

48. PACK DE 3 RUTINAS PARA MUROS DE CONTENCIÓN – PARTE 1: CREACIÓN DE LA SECCIÓN DE UN MURO

Esta rutina es la primera de 3 que permiten generar muros de contención del tipo de gravedad, hace algún tiempo también compartimos con ustedes una rutina que generaba un muro de contención, esta vez la rutina genera un muro con diferente diseño (medidas).

Es de recordar que las obras de arte de una carretera (muros, alcantarillas, etc), no siempre son de igual diseño para cada obra, este diseño está en función de muchos factores de la zona misma en la que las construye.

Esta rutina te permite generar un muro de contención con los siguientes criterios de diseño:

Para generarlo se debe de indicar el hombro de la rasante de la sección de la carretera, en el lado donde se necesite el muro, con  el lisp se puede generar el muro en cualquier lado, para eso solo basta con indicar el sentido (izquierda o derecha).

Con respecto a la altura, esta se define mediante 2 opciones, la primera es una altura (H) entera definida y la segunda opción es definirla mediante una cota del fondo de la cimentación del muro, esta cota se puede indicar mediante un punto en pantalla, el programa se encarga de calcular la altura y todas las demás medidas a partir de ella.

EL programa está preparado para asumir los dos criterios de altura de muro: el primer criterio es un muro con altura constante, en donde la base de la cimentación no es horizontal y el segundo criterio (el más usado) es que la altura del muro sea variable, en donde la base de la cimentación es horizontal y no sigue las pendientes de la carretera.

La forma de utilizar este lisp dependerá de cada usuario, y para ello lo más conveniente será que primero pueda generar planos de muros sin la ayuda de ninguna rutina, de esta manera será mucho mas fácil entender la correcta utilización de este lisp.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: MUS
  3. Indica un punto en el hombro de la rasante del lado indicado
  4. Indica el sentido del muro (Izquierda o Derecha)
  5. Elige como definirás la altura del muro (por altura o cota de cimentación)

Puede obtener la rutina aquí

49. RUTINA AUTOLISP PARA DIBUJAR UN MURO DE CONTENCIÓN

Esta rutina lisp permite dibujar un muro de contención del tipo de gravedad para carreteras, las medidas con las que se dibuja este muro en este lisp son siempre las mismas (son constantes), la única medida que cambia es la altura del muro.

Los puntos con los cuales se genera este muro son generados a partir de las medidas de un diseño de muro en particular, si se desea que con este lisp se genere muros con medidas personalizadas, se deben de cambiar las medidas que están escritas dentro del programa.

A continuación pueden observar el siguiente gráfico, que contiene los puntos con los cuales se genera el muro:

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: MU
  3. Indica el punto de inicio de la generación del muro
  4. Indica el sentido del muro (Izquierda o Derecha)
  5. Ingresa la altura del muro

Puede obtener la rutina aquí

50. RUTINA LISP PARA GENERAR LAS PROGRESIVAS DE UN ALINEAMIENTO

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:

  1. Copia los 3 archivos descargados en una de las rutas de soporte de tu AutoCAD
  2. Carga el archivo lisp en AutoCAD (cona APPLOAD).
  3. Ingresa el nombre del comando: progresivas
  4. En el cuadro de diálogo define el formato que tendrán las progresivas a generar.
  5. Selecciona la polilinea (alineamiento) en la que se generarán estas progresivas.
  6. Indica un punto, el cual se convertirá en el punto inicial de la generación de las progresivas.

Puede obtener la rutina aquí

51. RUTINA PARA GENERAR UN PERFIL LONGITUDINAL A PARTIR DE POLILINEAS DE TERRENO Y RASANTE

Esta es una de las rutinas más completas para generar el formato de un perfil longitudinal. Con sólo seleccionar dos polilineas 2D (el terreno y rasante), la rutina genera el formato de un perfil con todos los datos que se necesitan mostrar.

Para que la generación de este perfil sea exitosa, las polilineas a seleccionar deberán de estar en lo posible en 2D, de lo contrario puede ocurrir un error en su funcionamiento.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Copia los 3 archivos descargados en una de las rutas de soporte de tu AutoCAD
  2. Carga el archivo: perfil.fas en AutoCAD (con APPLOAD).
  3. Ingresa el nombre del comando: perfil
  4. En el cuadro de diálogo mostrado, presiona en el botón «Datos» y haz clic en los botones «Terreno» y «Rasante» para seleccionar las polilineas de terreno y rasante
  5. Si deseas puedes definir otros datos en el cuadro de diálogo antes de crear el perfil (opcional)
  6. Indica el punto de inserción superior izquierdo del perfil a generar

Puede obtener la rutina aquí

52. RUTINA EN VISUAL LISP PARA SUMAR LAS MEDIDAS DE ARCOS DEL DIBUJO

Esta rutina te permite sumar las distancias de todos los arcos del dibujo o de solo aquellos que selecciones, mostrándote los resultados de la suma en la línea de comandos.

Esta rutina te permite sumar las distancias de todos los arcos del dibujo o de solo aquellos que selecciones, mostrándote los resultados de la suma en la línea de comandos.

Para utilizar esta rutina se debe de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: sumarco
  3. Selecciona los arcos del dibujo que deseas sumar, si deseas seleccionar todos los arcos, presiona la tecla Enter ante la solicitud de la selección de arcos.

Puede obtener la rutina aquí

OTROS

53. RUTINA LISP PARA IMPORTAR LOS UCSS GUARDADOS EN OTROS ARCHIVOS

Esta interesante rutina creada con AutoLisp y Visual Basic para Aplicaciones (vba), permite importar los UCS guardados con un nombre desde cualquier archivo secundario a nuestro dibujo.

Esta herramienta es bien útil si se trabaja con planos en los que se manejan muchos UCS, generalmente creamos los UCS en un primer archivo y tenemos que hacer lo mismo para los demás archivos, con esta rutina, basta con solo crearlos en el primero y podremos importarlos luego a cualquier otro archivo.

La rutina se comporta de manera parecida a la herramienta Designcenter, salvo que esta no tiene la opción de importar UCS de otros archivos. En el caso de esta rutina aunque no permite arrastrar y soltar, los resultados son los esperados.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Cargar o agregar los archivos DVB y LSP al Appload Startup Suite.
  2. Ingresa el nombre del comando: IMPUCS
  3. En el área Source Drawing, hacer clic en el botón Select, para elegir el archivo de dibujo desde el cual se desea importar los UCS.
  4. En el área UCSs Found, seleccionar los UCS a importar y hacer clic en el botón OK.

Puede obtener la rutina aquí

54.  RUTINA LISP QUE ELIMINA EL VÉRTICE INDICADO DE UNA POLILINEA

Te habrá sucedido que en AutoCAD tienes una polilinea y deseas eliminar uno de sus vértices y para poder lograrlo tienes que aplicar más de dos comandos.

Con esta rutina sólo bastará con que indiques que vértice de la polinea deseas eliminar y asunto arreglado.

Para que la rutina funcione correctamente, al momento de indicar el punto, este deberá de ser sobre el vértice a eliminar y no un punto cercano, para eso deberás de activar los modos de referencia a entidades, como Endpoint o Intersection.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: evepol
  3. Selecciona la polilinea de la cual deseas eliminar un vértice.
  4. Indica un punto sobre el vértice de la polilinea que deseas eliminar.

Puede obtener la rutina aquí

55. RUTINA QUE EXPORTA LOS PUNTOS DE COORDENADAS DE LOS VÉRTICES DE OBJETOS 3DFACE

Esta rutina escrita en Autolisp, es parecida a la anterior, la diferencia está en que esta vez, exporta las coordenadas de los vértices de los objetos 3Dface de AutoCAD, estas coordenadas son almacenadas en un archivo CSV de Microsoft Excel, que se indique para ello.

La exportación de puntos de los vértices te puede ayudar de sobremanera en el caso que tengas una triangulación con 3D face y desees obtener sus coordenadas para recrear tu archivo de puntos de coordenadas.

Las consideraciones también son las mismas que de la rutina anterior, en el caso de que haya 3Dface unidos por los mismos vértices, también si se desea, se deberá de considerar la opción de ordenar las coordenadas y eliminar las que se encuentren duplicadas.

Las coordenadas exportadas tienen el formato P,N,E,C (Punto, Norte=Y, Este=X, Cota=Z) y como se exporta a un archivo CSV (separado por comas), al abrir el archivo cada valor ocupará su celda independiente y en forma ordenada.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: E3D
  3. Selecciona los objetos 3D Face de los cuales deseas exportar las coordenadas de sus vértices.
  4. Indica la ubicación y el nombre del archivo CSV en que se generarán las coordenadas exportadas.

Puede obtener la rutina aquí

56. RUTINA LISP PARA COPIAR ENTIDADES DE UN BLOQUE O REFERENCIA EXTERNA

En algunas ocasiones es necesario copiar entidades, pero cuando estas se encuentran dentro de un bloque, lo que hacemos normalmente es explotar ese bloque o quizá utilizar el editor de bloques, para así poder tener el control de las entidades en forma individual, seleccionarlas y copiarlas.

Con esta rutina ya no será necesario explotar ningún bloque o utilizar el editor de bloques para copiar cualquier entidad que se encuentre dentro de él, sólo bastará con cargar esta rutina y seleccionar las entidades a copiar.

Los objetos nuevos creados a partir de la selección aparecen encima del original, por lo que si se desea se debe de seleccionarlos y moverlos a la posición deseada.

En esta rutina se puede optar por la opción de que los nuevos objetos se puedan crear en otra capa, la que se elija porque por defecto las nuevas entidades son creadas en la capa actual.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: CPL
  3. Selecciona las entidades del bloque que deseas copiar.
  4. Si deseas puede optar por cambiar la capa en la que se generan los nuevos objetos.

Puede obtener la rutina aquí

57. RUTINA LISP PARA TRANSFORMAR LOS ARCOS DE UNA POLILINEA EN SEGMENTOS LINEALES

Esta rutina te permite transformar los arcos incluidos en una polilinea en segmentos lineales, la longitud de cada segmento será la que especifiques en las opciones del comando. El lisp toma los datos de los vértices de la polilinea seleccionada, incluyendo la geometría del arco y genera una nueva polilinea con los nuevos datos.

La longitud de cada nuevo segmento en el arco depende del valor ingresado, ésta deberá de ser menor que la longitud del arco menor de la polilinea seleccionada, el lisp dividirá el arco original en «n» segmentos hasta alcanzar su longitud original.

Opcionalmente se puede optar por conservar la polilinea original, -lo que hará que se cree una polilinea encima de ella- o eliminarla.

Esta rutina puede ser útil por ejemplo, en el caso de que se necesite definir puntos a lo largo de una curva en un eje de un alineamiento horizontal o vertical.

Para utilizar la rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: artose
  3. Selecciona la polilinea de la cual deseas transformar los segmentos curvos en segmentos lineales.
  4. Indica la longitud que tendrá cada segmento que conformará el nuevo «arco» lineal.
  5. Elige que hacer con la polilinea original seleccionada, si eliges eliminar, solo te quedará la polilinea con los segmentos curvos transformados a segmentos lineales.

Puede obtener la rutina aquí

58. RUTINA AUTOLISP QUE INSERTA PUNTOS EN LAS DISTANCIAS ESPECIFICADAS EN UN EJE

Con esta rutina podrás insertar en un eje seleccionado (polilinea) unos puntos con sus respectivas distancias, los datos de la inserción de estos puntos, provienen de la digitación manual de distancias o de la lectura de una archivo de distancias (se proporciona un archivo de ejemplo para una mayor comprensión).

Esta rutina se podría utilizar por ejemplo en el caso del eje de una carretera, en alguna oportunidades se necesita ubicar una progresiva exacta en el eje (polilinea), como por ejemplo la progresiva 23.76, manualmente se puede hacer pero tomas más tiempo, con esta rutina solo basta con seleccionar el eje, indicar la progresiva inicial de ese eje (generalmente con valor 0), y posteriormente ingresar la distancia.

Si se tienen muchas distancias a ingresar en el eje, en lugar de digitarlas el lisp brinda la opción de seleccionar un archivo de texto, dentro de este archivo de texto estarán las distancias y el lisp las leerá una por una, insertándolas mediante un punto en el eje (polilinea).

El lisp también permite cambiar el inicio del eje ya que el inicio se determina de acuerdo al punto de inicio que generó la polilinea, si el lisp comienza a poner las distancias por el punto final que no es el deseado, usa la opción: «Cambiar inicio de eje«.

Junto con la rutina se suministra un archivo CAD, con un eje sencillo (polilinea), como ejemplo para poner en práctica la rutina lisp.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: PP
  3. Elige la forma de como deseas insertar las progresivas: manualmente (1×1) o mediante la lectura de un archivo de texto.
  4. Selecciona la polilinea eje
  5. Ingresa progresiva o distancia inicial del eje (por defecto es 0)
  6. Ingresa la progresiva o distancia a hallar (en el caso del digitado manual, si se eligió la lectura de un archivo esto no es necesario)

Puede obtener la rutina aquí

59. RUTINA LISP QUE INSERTA LAS COTAS EN UN PERFIL AUTOMÁTICAMENTE SEGÚN EL ESPACIADO ESPECIFICADO

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.

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)

Puede obtener la rutina aquí

60. RUTINA LISP QUE PERMITE OBTENER LA PROGRESIVA O LONGITUD EN UN PUNTO INDICADO

Este rutina desarrollada en Autolisp y Visual Lisp, te permite obtener la longitud o progresiva de una polilinea o eje e insertarla en el dibujo mediante un punto de inserción.

Para ello debes de seleccionar la polilinea e indicar que progresiva es la inicial, debes de verificar que el comando ha obtenido el punto inicial de la polilinea correcto (inicio de eje), sino es asi, puedes cambiar el inicio del eje con la opción que te presenta este comando.

Puedes modificar algunos parámetros por defecto desde el código fuente del mismo, como por ejemplo la altura del texto a insertar.
Ten en cuenta que tu sistema de coordenadas debe de ser positivo, de lo contrario se generará un error al indicar el punto de progresiva o longitud a obtener.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: OPR
  3. Selecciona la polilinea eje o ingresa la letra «C«, para cambiar el inicio del eje
  4. Ingresa el valor de inicio (ó progresiva inicial) del punto inicial de la polilinea por defecto: 0.00
  5. Indica los puntos en la polinea de los cuales deseas obtener la longitud o progresiva

Puede obtener la rutina aquí

61. RUTINA LISP QUE REALIZA DIVERSAS OPERACIONES CON LOS TEXTOS (NUMÉRICOS) SELECCIONADOS

Se trata de una pequeña pero bien útil rutina lisp que te permite obtener información de operaciones con textos seleccionados, obviamente estos textos deberán tener valores numéricos para que se puedan efectuar los cálculos, por ejemplo: «2.22», «3.39» (sin las comillas), etc.

Si entre todos los textos numéricos el comando hallara un texto no numérico por ejemplo la palabra «punto», tomará este texto como valor 0.00, por lo que los resultados se alterarían.

La información que brinda este comando es:

  • Recuento (Número total de elementos seleccionados numéricos seleccionados)
  • NúmeroMáximo (El valor máximo de todos los textos numéricos seleccionados)
  • NúmeroMínimo (El valor mínimo de todos los textos numéricos seleccionados)
  • Promedio (El promedio de todos los textos numéricos seleccionados)
  • Suma (La suma de todos los textos numéricos seleccionados)

Para obtener los resultados solo bastará con seleccionar uno por uno o mediante una ventana (window) los textos de los cuales se desea obtener información.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: IV
  3. Selecciona todos los textos numéricos de los cuales deseas obtener la información

Puede obtener la rutina aquí

62. RUTINA LISP QUE RECORRE E IMPRIME TODOS LOS LAYOUTS CON SU CONFIGURACIÓN ACTUAL

Esta rutina te permite recorrer todos los layouts e imprimir cada uno de ellos con la configuración de pagina actual que se tenga, vale aclarar que el layout del espacio modelo no se tomará en cuenta.

El comando recorre cada uno de los layouts y si verifica que se trata del espacio modelo, éste se pasa por alto continuando con los demás, por lo tanto si se desea que también se imprima el espacio modelo, solo se debe de modificar el comando para que también se tome en cuenta y se imprima.

Se puede aprovechar la funcionalidad de este comando para por ejemplo, insertar membretes, eliminar o agregar texto en cada layout, etc, el comando no imprime los trabajos en modo «Background«, a no ser que se especifique en el cuadro de diálogo Opciones en la ficha «Plot and Publish«.

Si tienes muchos archivos que imprimir y cada uno de ellos tiene muchas hojas (layouts), puedes aumentar la funcionalidad de este comando mediante lo siguiente:

Crea un archivo llamado Acad.lsp (si no lo tuvieras ya), en ese archivo agrega las siguientes líneas de código en cualquier parte del mismo:

(defun s::startup ()
(load «Recorrer e imprimir todos los layouts.LSP») ;Este es el nombre del archivo adjunto.
)

No se indica la ruta porque ya está por entendido que la ruta del archivo lsp especificado, se encuentra agregada en los directorios de soporte de AutoCAD (indicados en el cuadro de diálogo opciones), de no estarlo se puede reemplazar la línea de código por la siguiente (se indica la ruta completa del archivo lsp a cargar):

(defun s::startup ()
(load «C:\\CONSTRUCGEEK\\TUSLISP\\Recorrer e imprimir todos los layouts.LSP»)
)

Para utilizar esta rutina normalmente (sin modificaciones) debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: LPLOT
  3. Debes de esperar a que se finalicen todos los trabajos de impresión.

Puede obtener la rutina aquí

63.  RUTINA VISUAL LISP QUE RECORTA LOS TEXTOS A LA DERECHA O IZQUIERDA SEGÚN EL NÚMERO DE CARACTERES INDICADOS

Esta rutina lisp te permite recortar los textos seleccionados, los recorta a la derecha, a la izquierda o a ambos lados, eso va a depender de lo que se le indique al comando.

Por ejemplo si tienes el texto inicial «0+580.00» y le indicas al comando recortar 2 caracteres a la izquierda, el comando lo reemplazará por «580.00».

Si le indicas al comando que recorte 3 caracteres a la derecha, el comando reemplazará el texto inicial por «0+580».

Por último, si le indicas al comando la opción de recortar en ambos lados, 2 caracteres a la izquierda y 3 a la derecha, el texto inicial será reemplazado por «580».

Como puedes ver, basta con indicar el número de caracteres a recortar y seleccionar los textos y éstos serán recortados de acuerdo a lo indicado.

Para utilizar esta rutina debes de hacer lo siguiente:

  1. Carga el archivo lisp en AutoCAD.
  2. Ingresa el nombre del comando: RET
  3. Indica que lado de los textos serán recortados [Izquierda/Derecha/Ambos]
  4. Ingresa el número de caracteres a recortar en el lado o lados indicados
  5. Selecciona todos los textos que deseas recortar
  6. Presiona la tecla Enter o clic con el botón derecho para efectuar el reemplazo

Puede obtener la rutina aquí

Categories: AutoCAD-AutoDesk Ingenieria Topografia
Tags: AutoDeskCivil 3Ddwg
geofumadas: Editor de Geofumadas
Related Post
  1. Bentley Systems anuncia la adquisición de SPIDA

    Adquisición de SPIDA Software Bentley Systems, Incorporated (Nasdaq: BSY), la compañía de software de ingeniería…

  2. COMMERCIAL UAV EXPO AMERICAS

    Este 7,8 y 9 septiembre del año en curso se celebrará en Las Vegas Nevada…

  3. Fuzzy Logic Robotics

    Del diseño CAD al control con un solo software Fuzzy Logic Robotics anuncia la presentación…