Witam
Mam zespół z 50 konfiguracjami i chcę mieć obraz każdej konfiguracji.
W tym celu stworzyłem makro, które daje mi:
______________________________________________________________________________________________
Dim swApp As Object
Przyciemnij część jako obiekt
Dim boolstatus As Boolean
Dim I jako liczba całkowita
Dim longstatus As Long, longwarnings As Long
Sub main()
Ustaw swApp = _
Aplikacja.SldWorks
Ustaw część = swApp.ActiveDoc
Przyciemnij myModelView jako obiekt
Ustaw myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByID2("1@Assemblage1.SLDASM", "KONFIGURACJE", 0, 0, 0, Fałsz, 0, Nic, 0)
Dla I = 1 do 50
boolstatus = Część.Pokaż konfigurację2(I)
boolstatus = Part.ForceRebuild3(Prawda)
longstatus = Part.SaveAs3("C:\Użytkownicy\michel2\Pulpit\Makro\I.JPG", 0, 0)
Dalej I
Koniec subwoofera
________________________________________________________________________________________________________
Utworzyłem pętlę z "For I = 1 do 50" i "Next I" z moimi krokami pośrodku:
Wiersz 1 : Wybór konfiguracji
Linia 2: Przebudowa
wiersz 3: zapisz jako JPG w określonej ścieżce
Problem, który mam po uruchomieniu makra, polega na tym, że widzę przewijanie moich konfiguracji, ale w końcu mam tylko obraz ostatnio zapisanej konfiguracji (o nazwie I.JPG), I nie zwiększa się w nazwie pliku (wiersz 3), a więc z każdym nowym zapisem plik I.JPG jest usuwany i zastępowany nowym.
Czy istnieje sposób na automatyczne zwiększanie nazwy pliku? Jeśli ktoś ma przykład makra...
Z góry dziękuję za pomoc.