---

Hallo erst mal,

ich arbeite schon seit einigen Jahren mit SWX, bin jedoch kein Makro Profi und ich möchte eine Bilderserie als jpg über einen Makro Button exportieren.
das erste file dem Dateinamen 001.jpg, dann 002.jpg,  .. 003.jpg usw. also den Dateinamen immer um eins hochzählen.
Bisher verwende ich folgendes Makro aus der Tauschbörse und muss den Dateinamen manuell
eingeben.
Würde mich freuen wenn ihr mir ein paar Tipps geben könntet wie ich das Makro modifizieren sollte um dies umzusetzen.
Vielleicht gibt ja schon so etwas ähnliches?

Gruß Franz

' ******************************************************************************

' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim saveFileName As String
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If

saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".slddrw" ' Speichern
Part.SaveAs2 saveFileName, 0, True, False

saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".jpg" ' Speichern als JPG-Datei
Part.SaveAs2 saveFileName, 0, True, False

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich bin auch kein SWX-Macro Profi.
Daher mache ich das einfach übers Rendering. Hier kannst Du auch hochzählen lassen.
Wenns Quick& Dirty sein soll dann mache ich das über das Screenshottool das ich schon seit Jahren verwende (Hypersnap)
Damit kannste auch einen Austosnap mit Austosafe Funktion alle X-Sekunden definieren, bzw. wäre es auch möglich über Tastenkürzel mit "repeat last capture" immer den selben Bereich manuell mit Autosafe zu snapen 
Das ging auch schon mit der 5er oder 6er Version...

HopeItHelps
lg
Alex

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Franz

Hab das Makro mal abgeändert.
Ein paar unnötige Zeilen und das Sperichern als ".slddrw" hab ich entfernt da du ja nur JPG willst.

Code:

---

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim saveFileName As String
Dim zaehler As Integer
Dim filename2 As String

Sub main()
   
    Set swApp = Application.SldWorks
   
    Set Part = swApp.ActiveDoc
   
    If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
        MsgBox ("Bitte zuerst Zeichnung speichern!")
        Exit Sub
    End If
   
    saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + " 001.jpg" ' Speichern als JPG-Datei
   
'Überprüfen ob Datei existiert
    zaehler = 1
    filename2 = saveFileName
    Do Until Not (Dir(filename2) > "")
        filename2 = Replace(saveFileName, " 001.jpg", " " + Format$(zaehler, "000") + ".jpg")
        zaehler = zaehler + 1
    Loop
    saveFileName = filename2
    Part.SaveAs2 saveFileName, 0, True, False
   
End Sub

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

[Diese Nachricht wurde von HenryV am 10. Sep. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super
Vielen dank!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP