Macro export step avec système de coordonnées et apparences

Macro
1

Bonjour,

J’ai une macro pour exporter mes fichiers en step et inclure l’indice et la date d’export dans le nom du fichier.
Maintenant je voudrais rajouter un point concernant le système de coordonnées. Je voudrais qu’au moment de l’export le système de coordonnées de sortie pris en compte soit le « Système de coordonnées1 » et non celui par défaut sauf s’il n’existe pas.
J’aimerais également que les apparences (couleurs) soient conservées.

Ci-dessous ma macro :

Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModelDocExt = Part.Extension

If Part Is Nothing Then End

’ Récupérer l’indice de révision
Set swCustProp = swModelDocExt.CustomPropertyManager(«  »)
bool = swCustProp.Get4(« Révision », False, val, valout)

'Etat d’enregistrement du fichier
DateiMitPfad = Part.GetPathName()
If DateiMitPfad = «  » Then
MsgBox (« Merci d’enregistrer le fichier avant l’exécution de cette macro! »)
Part.Save
End If

’ On récupère la date du jour et on la met dans un format pouvant se mettre dans le nom d’un fichier
Dim dateNow As String
dateNow = Replace(Date, « / », « . »)

sFilePath = Left(Part.GetPathName, InStrRev(Part.GetPathName, ""))

FileName = Mid(Part.GetPathName, InStrRev(Part.GetPathName, "") + 1)
FileName = Left(FileName, InStrRev(FileName, « . ») - 1)
FileName = sFilePath & "" & FileName

Part.SaveAs2 FileName + " - " & valout & " - " & dateNow & « .STEP », 0, True, False

End Sub

Merci beaucoup
Manu

2

Pour les apparences, je pense avoir trouvé la solution.

3

Ta macro doit modifier les options d’export des Step pour changer le système de coordonnées :
https://help.solidworks.com/2024/english/api/swconst/FileSaveAsSTEPOptions.htm
Voir la section Output coordinate system

En C# il faut ajouter ceci avant d’enregistrer :

bool boolstatus = false;
boolstatus = swApp.SetUserPreferenceStringValue((int)swUserPreferenceStringValue_e.swExportOutputCoordinateSystem, "Système de coordonnées1");
2 « J'aime »