Hallo
Ich bin es wieder bei einem Makro-Thema.
Ich möchte meine Solidworks-Dateien (Baugruppe und Teil) in STEP (wenn möglich AP214) exportieren, wobei am Ende des Dateinamens der Revisionsindex und dann das Exportdatum (also der Tag) steht.
Durch das Abrufen von Makros und Tipps aus dem gesamten Forum habe ich es geschafft, dies für meine DXF- und PDF-Exporte zu tun, aber ich habe Probleme mit dem STEP, wo ich nur das Datum integrieren kann, aber ich verstehe nicht, wie ich den Revisionsindex abrufen kann (Reiter " Anpassen " der "Eigenschaften").
Unten ist mein aktueller Code:
’ *******************************************
' Ich möchte meine Datei nach \STEP exportieren
’ *******************************************
Option Explizit
Dim swApp als SldWorks.SldWorks
Dimmen des Teils als SldWorks.ModelDoc2
Dim boolstatus als boolescher Wert
Dim sFilePath als Zeichenfolge
Dateiname als Zeichenfolge dimmen
Dim DateiMitPfad As String
Fehler so lange dimmen
Schwache Warnungen, solange sie nicht ausreichen
Sub main()
Festlegen von swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Wenn Teil nichts ist, dann Ende
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 + " - " & dateNow & ". SCHRITT ", 0, Wahr, Falsch
Ende Sub
Vielen Dank im Voraus für Ihr Feedback