Con la IA y un buen prompt se pueden generar herramientas muy utiles para nuestro dia a dia, este es un ejemplo creado por IA para generar una macro en SolidWorks:
Dim swApp As Object
Dim swModel As Object
Dim swPart As Object
Dim swSketch As Object
Dim swFeature As Object
Sub main()
' Obtener la aplicación SolidWorks
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
' Crear un nuevo documento de pieza (si no hay uno abierto)
If swModel Is Nothing Then
Set swModel = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2025\templates\Part.prtdot", 0, 0, 0)
End If
' Preguntar al usuario por las dimensiones del cubo
Dim cubeSize As Double
cubeSize = InputBox("Ingrese el tamaño de los lados del cubo (en milímetros):", "Tamaño del cubo")
' Asegurarse de que el usuario haya ingresado un valor
If cubeSize <= 0 Then
MsgBox "Por favor ingrese un valor válido mayor que 0."
Exit Sub
End If
' Crear un croquis en el plano superior
Set swPart = swModel
Set swSketch = swPart.SketchManager
swPart.SketchManager.InsertSketch True
swPart.ClearSelection2 True
' Dibujar un rectángulo
swSketch.CreateRectangle(0, 0, 0, cubeSize, cubeSize, 0)
' Extruir el rectángulo para crear el cubo
swPart.ClearSelection2 True
Set swFeature = swPart.FeatureManager
swFeature.FeatureExtrusion2 True, False, False, 0, 0, cubeSize, cubeSize, 0, 0, 0, 0, False, False, False, False, False, False, False, False, False, False, False, False, False
' Terminar el croquis
swPart.SketchManager.InsertSketch False
swPart.ClearSelection2 True
' Actualizar la vista del modelo
swModel.ViewZoomToFit
End Sub
Al mejorar y detallar lo mejor posible nuestro prompt podemos obtener mejores resultados.
¿Que otras ideas tienen para integrar la IA con SolidWorks?