Krok eksportu makr z układem współrzędnych i wyglądami

Macro
1

Witam

Mam makro do eksportowania plików w kroku i dołączania indeksu i daty eksportu w nazwie pliku.
Teraz chciałbym dodać punkt dotyczący układu współrzędnych. Chciałbym, aby wynikowy układ współrzędnych był " Układem współrzędnych1 ", a nie domyślnym w momencie eksportu, chyba że taki układ nie istnieje.
Chciałbym również zachować pozory (kolory).

Poniżej moje makro:

Sub main()

Ustaw swApp = Application.SldWorks
Ustaw część = swApp.ActiveDoc
Ustaw swModelDocExt = Part.Extension

Jeśli część jest niczym, to koniec

' Pobierz indeks wersji
Ustaw swCustProp = swModelDocExt.CustomPropertyManager("  ")
bool = swCustProp.Get4(" Recenzja ", False, val, valout)

Stan zapisywania pliku
DateiMitPfad = Część.GetPathName()
Jeśli DateiMitPfad = "  " Następnie
MsgBox (" Proszę zapisać plik przed uruchomieniem tego makra! ")
Część.Zapisz
Zakończ jeżeli:

' Pobieramy aktualną datę i umieszczamy ją w formacie, który można umieścić w nazwie pliku
Dim dateNow As Ciąg
dateNow = Replace(Data, " / ", " . ")

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

NazwaPliku = Mid(Part.GetPathName, InStrRev(Part.GetPathName, "") + 1)
NazwaPliku = Lewo(NazwaPliku, InStrRev(NazwaPliku, " . ") - 1)
NazwaPliku = ŚcieżkaPliku & "" & NazwaPliku

Part.SaveAs2 NazwaPliku + " - " & valout & " - " & dateNow & ".  KROK ", 0, prawda, fałsz

Koniec subwoofera

Dziękuję bardzo
Manu

2

Jeśli chodzi o pozory, myślę, że znalazłem rozwiązanie.

3

Makro musi zmodyfikować opcje eksportu krokowego, aby zmienić układ współrzędnych:
https://help.solidworks.com/2024/english/api/swconst/FileSaveAsSTEPOptions.htm
Zobacz sekcję Wynikowy układ współrzędnych

W języku C# należy dodać to przed zapisaniem:

bool boolstatus = false;
boolstatus = swApp.SetUserPreferenceStringValue((int)swUserPreferenceStringValue_e.swExportOutputCoordinateSystem, "Système de coordonnées1");
2 polubienia