Witam
To znowu ja w temacie makro.
Chcę wyeksportować moje pliki solidworks (Złożenie i Część) w KROKU (jeśli to możliwe AP214) z nazwą pliku na końcu nazwy rewizji, a następnie datą eksportu (czyli dnia).
Otrzymując makra i wskazówki z całego forum, udało mi się to zrobić dla moich eksportów DXF i PDF, ale mam problem z KROKIEM, w którym mogę zintegrować tylko datę, ale nie rozumiem, jak pobrać indeks wersji (zakładka " Dostosuj " w "Właściwościach").
Poniżej znajduje się mój aktualny kod:
’ *******************************************
' Chcę wyeksportować plik do folderu \STEP
’ *******************************************
Opcja jawna
Dim swApp jako SldWorks.SldWorks
Przyciemnij część jako SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim sFilePath As String
Dim FileName As Ciąg
Dim DateiMitPfad As String
Błędy przyciemnienia tak długo
Ostrzeżenia o przyciemnieniu tak długo
Sub main()
Ustaw swApp = Application.SldWorks
Ustaw część = swApp.ActiveDoc
Jeśli część jest niczym, to koniec
Stan zapisywania pliku
DateiMitPfad = Część.GetPathName()
Jeśli DateiMitPfad = " " Następnie
MsgBox (" Proszę zapisać plik przed uruchomieniem tego makra! ")
Część.Zapisz
Zakończ jeżeli:
' Pobieramy aktualną datę i umieszczamy ją w formacie, który można umieścić w nazwie pliku
Dim dateNow As Ciąg
dateNow = Replace(Data, " / ", " . ")
sFilePath = Left(Part.GetPathName, InStrRev(Part.GetPathName, ""))
NazwaPliku = Mid(Part.GetPathName, InStrRev(Part.GetPathName, "") + 1)
NazwaPliku = Lewo(NazwaPliku, InStrRev(NazwaPliku, " . ") - 1)
NazwaPliku = ŚcieżkaPliku & "" & NazwaPliku
Part.SaveAs2 NazwaPliku + " - " & dateNow & ". KROK ", 0, prawda, fałsz
Koniec subwoofera
Z góry dziękujemy za Twoją opinię