---

Hallo zusammen,

ich weiß ich bin zur zeit etwas lestig   
aber ich brauche wieder mal eure hilfe.....

Kennt jemand ein Makro das die aktuelle Ansichts in SW gleich als JPG Abspeichert (jetzt muss ich auf Datei-Speicher Unter dann JPG auswählen usw..)
Gibt es da was wo ich nur auf das Makro geh und ein Fenster kommt wo ich es vl noch einen Namen eingebe und dann automtisch speichert...

Danke schon im Vorraus!!!
mfg Delta

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

---

ExportinpdfdxfJpg.zip

Hallo,

Vielleicht kannst du damit was anfangen.
Dieses makro Speichert das Teil als jpg in den gleichen Ordner wo das Teil abgelegt ist.

Pepe

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

---

Hallo Pepe

funktioniert das makro auch bei Baugruppen????? weil da bräuchte ich es.....

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

---

Hallo Delta,

ja, das funktioniert auch mit Baugruppen, wie kommst du darauf, dass es das nicht tut? Zumindest mal versucht das auszuführen? Und hast du mal in den Quellcode reingeschaut? Falls nicht wäre es vielleicht an der Zeit zumindest die absoluten Grundlagen der Makroprogrammierung zu erkunden - z.B. mit den SolidWorks Lehrbücher in der Online Hilfe, sonst kann dir ja hier jeder einen Virus, Trojaner oder Ultimativen-Daten-Detonator unterjubeln und du führst ihn treu und brav auch noch selber aus ... 

Ciao,
Stefan

PS: deine Tastatur prellt bei den Sonderzeichen, oder wolltest du wirklich deine Frage durch mehr Fragezeichen noch fragender machen?

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

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

---

Zitat:

---

PS: deine Tastatur prellt bei den Sonderzeichen, oder wolltest du wirklich deine Frage durch mehr Fragezeichen noch fragender machen?

---

Wiedermal hat mich Stefan zum schmuntzeln gebracht. Für den Link gibt es jedenfalls mal ÜŽs  .

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

Hi,

Also bei mer geht es in Teil, BG und Zeichnung.

Gruß

Pepe

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

---

Hallo Zusammen,

bin soeben auf das Makro "ExportinpdfdxfJpg.swp" gestoßen.
Das Ganze funktioniert hervorragend!
Nur, kann  man dem noch den Speicherpfad beibringen?
Wir haben eine fixes Exportverzeichnis. Da soll alles rein.
Mit diesem Makro muss ich im Explorer die Dateien suchen, verschieben und löschen.

Gruß

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

---

Hallo nobbynobs,

klar kann man das  Wenn ihr ein festes Exportverzeichnis habt, dann
kannst du diesen Pfad als Konstante deklarieren, z.B.

       

Code:

---

Const ExportPath as string = "D:\Export"

---

Danach holst du dir mit GetTitle den Dateinamen, den du je nach Windowseinstellung
noch um die Endung "erleichtern" musst.

       

Code:

---

        Dim Datei as String
        Dim Titel as String
        Titel = ActiveDoc.GetTitle
        ' und die Endung mit dem .sld??? abschneiden, wenn vorhanden
        If (InStr(Titel, ".sld") > 0) Then
          Datei = Left(Titel, InStr(Titel, ".sld") - 1)
        Else
          Datei = Titel
        End If
       

---

Danach bastelst du dir deinen saveFileName entsprechend zusammen:

       

Code:

---

saveFileName = ExportPath + Datei + ".jpg"
        Part.SaveAs2 saveFileName, 0, True, False
       

---

------------------
==========
Gruß
Andreas
==========

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

---

Hallo Andreas,

vielen Dank für die schnelle Antwort.
Nur leider hab ich von Makros wirklich keine Ahnung.
Hier das Makro:

' ******************************************************************************
' C:\DOKUME~1\ast06\LOKALE~1\Temp\swx2140\Macro1.swb - macro recorded on 14/04/04 by Andreas Bacher
' ******************************************************************************
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) + ".dxf" ' Speichern als DXF-Datei
Part.SaveAs2 saveFileName, 0, True, False
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".pdf" ' Speichern als PDF-Datei
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

Wo bau ich den Term <Const ExportPath as string = "D:\Export"> ein?

"Danke!"
nobbynobs

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

---

Sorry, geht jetzt nicht gegen dich persönlich, aber in letzter Zeit lese ich das so oft:

Zitat:

---

Original erstellt von nobbynobs:
Nur leider hab ich von Makros wirklich keine Ahnung.
Hier das Makro:

---

Code:

---

If KeineAhnungVonMakros = True Then
   If IchWillWasLernen = False then
      Msgbox "Lass die Finger davon oder bezahl einen Programmierer", vbCritical + vbOkOnly
   Else
      Msgbox "Verstehen und selbst probieren machen schlau", vbExclamation
   EndIf
Else
   ' alle notwendigen Hinweise sind gegeben, jetzt einbauen
EndIf

---

Die Langfassung für Nichtprogrammierer findest du hier

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

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

---

Hallo Stefan,

es geht mir nicht darum mir aus der Community kostenlose Hilfe zu saugen, sondern um den Einstieg in die Makroprogrammierung zu finden.
Ich arbeite jetzt seit 1 Jahr mit SWX und will damit anfangen Makros zu definieren.
Das aufgezeigte Makro nutze ich um zu lernen, wieŽs geht.
(klar werde ich das Makro dann auch verwenden)

Gruß
nobbynobs

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