Macro para iniciar un dibujo en AutoCAD

Arturo Febrero 01, 2021

Crear una macro en Excel para llevar tus datos a AutoCAD y poder dibujarlos con un solo clic es posible. Por lo que te invitamos a leer nuestros artículos relacionados con la categoría EXCEL CAD. En los cuales te iremos mostrando paso a paso como utilizar algunos de los comandos más comunes en AutoCAD a través del lenguaje de programación de Visual Basic Applications.

En los siguientes pasos te mostraremos como hacer funcionar los comandos de AutoCAD en Excel y como tomar un punto de referencia en el espacio Model.

  1. Al tener abierto un nuevo libro de Excel debes ir al editor de Visual Basic que se encuentra en las pestañas de la parte superior llamado Programador o Desarrollador.

    1. En caso no tener activa la pestaña lo que debes hacer para activarla: Ir a la pestaña Archivo y en la barra izquierda hasta la esquina inferior selecciona Opciones. Se abrirá una ventana en la cual debes buscar Personalizar cinta de opciones. De lado derecho aparecerá una columna con todas las pestañas posibles que puedes tener activas o no en tus libros de Excel. Ahora activa la opción de Programador o Desarrollador (depende de tu versión de Office).

    Cinta Activar Programador

  2. En el editor encontraras una nueva cinta de opciones. En este caso lo primero que haremos es ir a la que se llama Herramientas > Referencias. Se abrirá un cuadro en donde se tiene un listado de todas las referencias disponibles. Tendrás que buscar y activar 4 que son de AutoCAD (si tienes más versiones de AutoCAD busca las referencias de esa versión) como aparece a continuación:

    Activar Re Activar referencia

  3. Ahora en el editor tienes una barra de lado izquierdo donde podrás ver lo que contiene tu libro que de momento son las hojas. Por lo que tendrás que dar un clic derecho sobre el nombre de tu libro > Insertar > Modulo. Ahora aparecerá un nuevo módulo al cual deberás dar doble clic y se abrirá un espacio en blanco de lado derecho.

    Insertar módulo

  4. En ese espacio en blanco deberás crear una rutina con el nombre que desees, en ella pondremos la función GetPoint que nos permitirá obtener un punto que marquemos en AutoCAD el cual será el punto de referencia para que nuestros trazos se plasmen a través de coordenadas en el espacio. Para este ejemplo:

    Sub principal_rec()
    pto = AutoCAD.Application.ActiveDocument.Utility.GetPoint(, "Click en punto:")
    x = pto(0): y = pto(1)
    End Sub

  5. Posteriormente podrás hacer la llamada a otra rutina con los parámetros de tu punto o bien sobre esa rutina dejar todas las líneas de comando.

    Sub principal_rec()
    pto = AutoCAD.Application.ActiveDocument.Utility.GetPoint(, "Click en punto:")
    x = pto(0): y = pto(1)

    Call dib_rectangulo( x, y )
    End Sub

En el siguiente video se muestra este procedimiento y ejemplos del uso de la Polyline.

Si deseas descargar los archivos usados en este video, por favor ve al artículo de descargas que te permitirá descargar este material. Ayúdanos compartiendo o dejándonos un comentario sobre lo que te ha parecido esta macro.

Comentarios ()