Inicios con autocad VBA
Comienzo este artículo como recordatorio y a la vez tutorial de la creacion de macros con VBA en Autocad.
La verdad es que hay muy poca información y tutoriales en la red sobre VBA en autocad y lo poco que hay está en inglés.
Los conocimientos que expongo son basados en la experiencia por lo que seguramente tenga numerosos errores. Podéis corregirme.
VBA seguramente desaparecerá para dar paso a .NET, pero las bases son muy parecidas.
Qué es vba? Visual basic for applications.
Traducido al español, es poder programar en tu aplicación favorita con visual basic aquellas rutinas y módulos que podrían serte útiles.
Con qué programas puedo usar VBA?
Visual Basic fué y es propiedad de Microsoft con lo que su uso se ha visto restringido a sus programas y a alguno de terceros.
En programas de autodesk (Autocad, etc..), de microsoft (Excel, Access, etc..) y más..
Que puede hacer VBA por mi ?
Puedes crear un botón para automatizar esas tareas repetitivas, crear objetos hacer cálculos automáticos, contar entidades etc…
Te ahorrará mucho tiempo a la hora de dibujar. A mí me ayudó muchísimo y me sigue ayudando hasta día de hoy.
En la actualidad (a partir de Autocad 2018) el paquete VBA hay que instalarlo aparte de Autocad. Se baja desde su página y se instala.
Empezamos…
Tu pantalla puede diferir de la mía. Uso autocad 2005 (Muy antiguo no?..pues va rapidísimo y para dibujar en 2D más que suficiente.)
Abrimos autocad y pulsamos ALT + F11. Entramos en el editor de código de vba
Si habéis programado en VB6 este entorno os será familiar.
En el lado izqdo salen 2 ventanas:La ventana de proyecto y la de propiedades. No me pararé a explicar lo que son.
Vamos al menú insertar-Userform.
Ya hemos añadido nuestro primer formulario donde poner botones.También se abre la caja de herramientas.
Importante: Cambiar la porpiedad del formulario Showmodal a False, así el formulario estará como secundario de autocad.
Vamos a colocar un botón:
Pinchamos sobre botón de comando. Nos vamos al formulario y dibujamos un ‘rectángulo’, formando el botón.
Con el botón seleccionado vemos que la ventana propiedades se llena. Cambiamos el ‘Name’ y ponemos Dibujar.
Vamos a hacer que este botón dibuje una línea.
Hacemos doble click en el botón recien creado y se nos abre la ventana de programación.
Teoría:
Si queremos dibujar una línea necesitamos 4 puntos de la pantalla. 2 para indicar el comienzo (x,y) y 2 para indicar el final.(x,y)
Para crear la línea Autocad maneja estos datos en una variable de matriz tipo double con 4 elementos (de 0 a 3).
Es decir: Creamos una variable ,la llamamos Coordenadas.
Coordenadas(0) será X1, Coordenadas(1) será Y1,
Coordenadas(2) será x2, Coordenadas(3) será Y2.
Entre Private Sub Dibujar_Click() y End sub colocamos nuestro código.
Private Sub Dibujar_Click()
Dim Coordenadas(0 to 3) As Double ‘definimos la variable para las coordenadas
Dim lineObj As AcadLWPolyline ‘definimos el objeto línea como un polilínea de autocad
Coordenadas(0)=0 ‘ Punto x1 origen
Coordenadas(1)=0 ‘ Punto y1 origen
Coordenadas(2)=10 ‘ Punto x2 destino 10 a lo ancho
Coordenadas(3)=20 ‘ Punto y2 destino 20 a lo alto
Set lineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(coordenadas) ‘dibujamos la línea pasándole las coordenadas
End Sub
Damos al botón verde del play en el menú de arriba para ejecutar. Se nos abre el formulario, y si pinchamos click en el botón creado nos dibujará una línea desde el punto 0,0 hasta el punto 10,20. (Si no la ves sitúate en el punto 0,0 …)
Una variante del programa pidiéndonos punto de inicio y final ( Uso de ThisDrawing.Utility.GetPoint) :
Private Sub Dibujar_Click()
Dim Start As Variant
Dim Finish As Variant
Dim Dline As AcadLine
‘frmDline.hide
Start = ThisDrawing.Utility.GetPoint(, «Selecciona punto de inicio :») ‘ nos pide punto de inicio
Finish = ThisDrawing.Utility.GetPoint(Start, «Selecciona punto final :»)
Set Dline = ThisDrawing.ModelSpace.AddLine(Start, Finish)
End Sub
Como curiosidad cabe recalcar que el dibujo se produce al sacar el ratón del formulario…
…