Red de conocimiento informático - Problemas con los teléfonos móviles - Operaciones macro en solidworks

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.