Operaciones macro en solidworks

Atenuar swApp como objeto

Atenuar parte como objeto

Atenuar nombre de archivo como cadena

Atenuar no como entero

Atenuar título como cadena

Sub main()

Establecer swApp = Application.SldWorks

Establecer parte = swApp.ActiveDoc

Nombre de archivo = Part.GetPathName()

No = Len(Nombre de archivo)

Nombre de archivo = Left(Nombre de archivo, No)

Part.SaveAs2 Nombre de archivo & ".DWG" , 0, Verdadero, Falso

End Sub

Este código es el que uso. Cuando guardo el dibujo, hago clic en la macro y automáticamente guarda una copia en formato dwg. nuevamente para el reemplazo automático, puede cambiar el dwg en la macro Part.SaveAs2 Filename & ".DWG", 0, True, False a otros formatos. Agregue una línea a continuación para que otros formatos guarden automáticamente los dos formatos.