Makro: Abrufen des Werts des letzten Indexes

Macro
1

Hallo

Ich entwickle ein Makro, das die Konfigurationen meiner Teile und der verschiedenen Blätter speichert, ich möchte den Index im Dateinamen hinzufügen.

Gibt es dafür eine SW-Variable oder eine Methode?

1 „Gefällt mir“
2

Hallo

Sie müssten eine Datei freigeben, wenn Sie weitere Hilfe benötigen.

Cdlt

3

Ohne EPDM können Sie z. B. die benutzerdefinierten Eigenschaften der Revision und der n des Teils abrufen 

Siehe Link unten, der Ihnen helfen kann

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

 

 

Cdlt 

Yannick

4

Hallo

Ich habe ein Makro, um eine PDF-Datei zu erstellen, in die ich den Wert der benutzerdefinierten Eigenschaft "Revision" einfüge. Wenn dieser Teil helfen kann...

 

Dim swApp als SldWorks.SldWorks
Dim swModel As ModelDoc2
Fehler so lange dimmen
Dim lWarnungen so lange

Sub main()
Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
 
Pfadname = UCase(swModel.GetPfadname)
FilePath = Links(Pfadname, InStrRev(Pfadname, "\"))
FileTyp = swModel.GetType
 
Wählen Sie Case FileType aus
    Fall swDocDRAWING
        swModel.Extension.SaveAs FilePath & GetFilename(swModel.GetPathName) & "-" & swModel.CustomInfo2("", "Review") & ".pdf", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nichts, lErrors, lWarnings
Ende Auswahl
 
Ende Sub

Funktion GetFilename(strPath als Zeichenfolge) als Zeichenkette
    Dim strTemp As String
    strTemp = Mid$(strPfad, InStrRev(strPfad, "\") + 1)
    GetFilename = Links$(strTemp, InStrRev(strTemp, ".") - 1)
Ende-Funktion
5

Danke, ich schaue mir das an

1 „Gefällt mir“
6

Vielen Dank

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

Sub main()

Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc

lastInd = swModel.CustomInfo2("", "Überarbeitung")

MsgBox lastInd

Ende Sub

1 „Gefällt mir“