Hallo
Ik ben het weer op een macro-onderwerp.
Ik wil mijn solidworks bestanden (Assembly en Part) exporteren in STEP (indien mogelijk AP214) met aan het einde van de bestandsnaam de revisie-index en vervolgens de exportdatum (dus van de dag).
Door macro's en tips van overal op het forum te krijgen, ben ik erin geslaagd om het te doen voor mijn DXF- en PDF-export, maar ik heb problemen met de STEP waar ik alleen de datum kan integreren, maar ik begrijp niet hoe ik de revisie-index kan ophalen (tabblad " Aanpassen " van de "Eigenschappen").
Hieronder staat mijn huidige code:
’ *******************************************
' Ik wil mijn bestand exporteren naar \STEP
’ *******************************************
Optie Expliciet:
Dim swApp als SldWorks.SldWorks
Dim deel als SldWorks.ModelDoc2
Dim boolstatus Als Booleaans
Dim sFilePath als tekenreeks
Dim Bestandsnaam Als String
Dim DateiMitPfad Als String
Dimfouten zo lang
Dim waarschuwingen zo lang
Sub main()
Stel swApp = Application.SldWorks in
Set Part = swApp.ActiveDoc
Als een deel niets is, dan eindigt
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 + " - " & dateNow & ". STAP ", 0, Waar, Onwaar
Einde sub
Bij voorbaat dank voor uw feedback