Bonjour,
C’est de nouveau moi sur un sujet de macro.
Je souhaite exporter mes fichiers solidworks (Assemblage et Part) en STEP (si possible AP214) avec à la fin du nom du fichier l’indice de révision et ensuite la date d’export (donc du jour).
En récupérant des macros et des conseils un peu partout sur le forum, je suis arrivé à le faire pour mes exports DXF et PDF mais je galère pour le STEP où j’arrive seulement à intégrer la date mais je ne comprends pas comment récupérer l’indice de révision (onglet « Personnaliser » des "Propriétés).
Ci-dessous mon code actuel :
’ *******************************************
’ Je souhaite exporter mon fichier en \STEP
’ *******************************************
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim sFilePath As String
Dim FileName As String
Dim DateiMitPfad As String
Dim Errors As Long
Dim Warnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
If Part Is Nothing Then End
'Etat d’enregistrement du fichier
DateiMitPfad = Part.GetPathName()
If DateiMitPfad = « » Then
MsgBox (« Merci d’enregistrer le fichier avant l’exécution de cette macro! »)
Part.Save
End If
’ On récupère la date du jour et on la met dans un format pouvant se mettre dans le nom d’un fichier
Dim dateNow As String
dateNow = Replace(Date, « / », « . »)
sFilePath = Left(Part.GetPathName, InStrRev(Part.GetPathName, ""))
FileName = Mid(Part.GetPathName, InStrRev(Part.GetPathName, "") + 1)
FileName = Left(FileName, InStrRev(FileName, « . ») - 1)
FileName = sFilePath & "" & FileName
Part.SaveAs2 FileName + " - " & dateNow & « .STEP », 0, True, False
End Sub
Merci d’avance pour vos retours