Macro-exportstap met coördinatensysteem en uiterlijk

Macro
1

Hallo

Ik heb een macro om mijn bestanden in stap te exporteren en neem de index en de exportdatum op in de bestandsnaam.
Nu wil ik nog een punt toevoegen over het coördinatenstelsel. Ik zou graag willen dat het uitvoercoördinatensysteem het " Coördinatensysteem1 " is en niet het standaardsysteem op het moment van exporteren, tenzij het niet bestaat.
Ik wil ook graag de uiterlijkheden (kleuren) behouden.

Hieronder staat mijn macro:

Sub main()

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

Als een deel niets is, dan eindigt

' Revisie-index ophalen
Set swCustProp = swModelDocExt.CustomPropertyManager("  ")
bool = swCustProp.Get4(" Beoordeling ", Onwaar, val, valout)

Status van het opslaan van bestanden
DateiMitPfad = Part.GetPathName()
Als DateiMitPfad = "  " Dan
MsgBox (" Sla het bestand op voordat deze macro wordt uitgevoerd! ")
Deel.Opslaan
Einde als

'We halen de huidige datum op en zetten deze in een formaat dat in de naam van een bestand kan worden gezet
Dim datumNu als string
dateNow = Vervangen(Datum, " / ", " . ")

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

FileName = Mid(Part.GetPathName, InStrRev(Part.GetPathName, "") + 1)
Bestandsnaam = Links(Bestandsnaam, InStrRev(Bestandsnaam, " . ") - 1)
Bestandsnaam = sFilePath & "" & Bestandsnaam

Part.SaveAs2 Bestandsnaam + " - " & valout & " - " & dateNow & ".  STAP ", 0, Waar, Onwaar

Einde sub

Hartelijk dank
Manu

2

Wat het uiterlijk betreft, denk ik dat ik de oplossing heb gevonden.

3

Uw macro moet de opties voor het uitvoeren van stappen wijzigen om het coördinatensysteem te wijzigen:
https://help.solidworks.com/2024/english/api/swconst/FileSaveAsSTEPOptions.htm
Zie de sectie Uitvoercoördinatensysteem

In C# moet je dit toevoegen voordat je opslaat:

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