Hallo
Ich habe ein Makro, um meine Dateien schrittweise zu exportieren und den Index und das Exportdatum in den Dateinamen aufzunehmen.
Nun möchte ich noch einen Punkt zum Koordinatensystem hinzufügen. Ich möchte, dass das Ausgabekoordinatensystem zum Zeitpunkt des Exports das " Koordinatensystem1 " und nicht das Standardkoordinatensystem ist, es sei denn, es existiert nicht.
Ich möchte auch die Erscheinungsbilder (Farben) beibehalten.
Unten ist mein Makro:
Sub main()
Festlegen von swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Festlegen von swModelDocExt = Part.Extension
Wenn Teil nichts ist, dann Ende
' Revisionsindex abrufen
Set swCustProp = swModelDocExt.CustomPropertyManager(" ")
bool = swCustProp.Get4(" Überprüfung ", Falsch, wert, valout)
Status des Speicherns von Dateien
DateiMitPfad = Teil.GetPfadName()
if DateiMitPfad = " " dann
MsgBox (" Bitte speichern Sie die Datei, bevor dieses Makro ausgeführt wird! ")
Teil.Speichern
Ende, wenn
" Wir rufen das aktuelle Datum ab und geben es in ein Format ein, das in den Namen einer Datei eingefügt werden kann
Dim dateNow As String
dateNow = Ersetzen(Datum, " / ", " . ")
sFilePath = Links(Part.GetPathName, InStrRev(Part.GetPathName, ""))
Dateiname = Mitte(Teil.GetPfadName, InStrRev(Teil.GetPfadName, "") + 1)
Dateiname = Links(Dateiname, InStrRev(Dateiname, " . ") - 1)
Dateiname = sDateiPfad & "" & Dateiname
Part.SaveAs2 Dateiname + " - " & valout & " - " & dateNow & ". SCHRITT ", 0, Wahr, Falsch
Ende Sub
Vielen Dank
Manu