Macro : récupérer la valeur du dernier indice

Macro
1

Bonjour,

je développe une macro qui enregistre les configurations de ma pièces et les différentes feuille, je voudrais rajouté l'indice dans le nom du fichier.

exit-il une variable SW pour cela ou une méthode?

1 « J'aime »
2

Bonjour

Il faudrait partager un fichier si vous voulez plus d aide.

Cdlt

3

Sans EPDM, vous pouvez récupérer  le custom properties de révision et n de piece par exemple

Voir lien ci dessous qui pourra vous aider

https://www.lynkoa.com/forum/3d/macro-de-renseignement-de-proprietes

 

 

Cdlt 

Yannick

4

Bonjour,

J'ai une macro pour faire un PDF, dans lequel je mets la valeur de la custom property "Révision". Si cette partie peut aider....

 

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim lErrors As Long
Dim lWarnings As Long

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
 
PathName = UCase(swModel.GetPathName)
FilePath = Left(PathName, InStrRev(PathName, "\"))
FileTyp = swModel.GetType
 
Select Case FileTyp
    Case swDocDRAWING
        swModel.Extension.SaveAs FilePath & GetFilename(swModel.GetPathName) & "-" & swModel.CustomInfo2("", "Révision") & ".pdf", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, lErrors, lWarnings
End Select
 
End Sub

Function GetFilename(strPath As String) As String
    Dim strTemp As String
    strTemp = Mid$(strPath, InStrRev(strPath, "\") + 1)
    GetFilename = Left$(strTemp, InStrRev(strTemp, ".") - 1)
End Function
5

Merci je regard cela

1 « J'aime »
6

Merci

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim lastInd As String

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

lastInd = swModel.CustomInfo2("", "Révision")

MsgBox lastInd

End Sub

1 « J'aime »