Macro: De waarde van de laatste index ophalen

Macro
1

Hallo

Ik ontwikkel een macro die de configuraties van mijn onderdelen en de verschillende bladen opslaat, ik wil graag de index in de bestandsnaam toevoegen.

Is er een SW-variabele voor dit of een methode?

1 like
2

Hallo

Je zou een bestand moeten delen als je meer hulp wilt.

Cdlt

3

Zonder EPDM kunt u de aangepaste eigenschappen van bijvoorbeeld revisie en n van deel ophalen 

Zie onderstaande link die u kan helpen

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

 

 

Cdlt 

Yannick

4

Hallo

Ik heb een macro om een PDF te maken, waarin ik de waarde van de custom property "Revisie" zet. Als dit deel kan helpen....

 

Dim swApp als SldWorks.SldWorks
Dim swModel als ModelDoc2
Dim lErrors zo lang
Dim lWaarschuwingen zo lang mogelijk

Sub hoofd()
Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in
 
PathName = UCase(swModel.GetPathName)
FilePath = Links(PathName, InStrRev(PathName, "\"))
FileTyp = swModel.GetType
 
Selecteer Case FileTyp
    Behuizing swDocDRAWING
        swModel.Extension.SaveAs FilePath & GetFilename(swModel.GetPathName) & "-" & swModel.CustomInfo2("", "Review") & ".pdf", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, lErrors, lWarnings
Einde selecteren
 
Einde Sub

Functie GetFilename(strPath As String) Als String
    Dim strTemp als snaar
    strTemp = Mid$(strPath, InStrRev(strPath, "\") + 1)
    GetFilename = Left$(strTemp, InStrRev(strTemp, ".") - 1)
Functie beëindigen
5

Bedankt, ik kijk hiernaar

1 like
6

Bedankt

Dim swApp als SldWorks.SldWorks
Dim swModel als ModelDoc2
Dim lastInd als snaar

Sub hoofd()

Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in

lastInd = swModel.CustomInfo2("", "Revisie")

MsgBox lastInd

Einde Sub

1 like