Makro: Pobieranie wartości ostatniego indeksu

Macro
1

Witam

Tworzę makro, które zapisuje konfiguracje moich części i różnych arkuszy, chciałbym dodać indeks w nazwie pliku.

Czy istnieje zmienna SW do tego lub metoda?

1 polubienie
2

Witam

Musisz udostępnić plik, jeśli potrzebujesz dodatkowej pomocy.

Cdlt powiedział:

3

Bez EPDM można na przykład pobrać  niestandardowe właściwości rewizji i n części

Zobacz poniższy link, który może Ci pomóc

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

 

 

Cdlt powiedział:

Yannicka

4

Witam

Mam makro do zrobienia pliku PDF, w którym wpisuję wartość niestandardowej właściwości "Rewizja". Jeśli ta część może pomóc....

 

Dim swApp jako SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim lErrors tak długo
Dim lOstrzeżenia tak długo

Sub main()
Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
 
PathName = UCase(swModel.GetPathName)
FilePath = Left(NazwaŚcieżki, InStrRev(NazwaŚcieżki, "\"))
FileTyp = swModel.GetType
 
Wybierz Case FileTyp
    Sprawa swDocDRAWING
        swModel.Extension.SaveAs FilePath & GetFilename(swModel.GetPathName) & "-" & swModel.CustomInfo2("", "Review") & ".pdf", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, lErrors, lWarnings
Zakończ wybór
 
Koniec subwoofera

Funkcja GetFilename(strPath As String) Jako ciąg
    Dim strTemp As String (Ciąg ścisłości)
    strTemp = Mid$(strPath, InStrRev(strPath, "\") + 1)
    GetFilename = Left$(strTemp, InStrRev(strTemp, ".") - 1)
Zakończ funkcję
5

Dziękuję, patrzę na to

1 polubienie
6

Dziękuję

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

Sub main()

Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc

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

MsgBox lastInd

Koniec subwoofera

1 polubienie