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.