---

Dateiinformation.jpg

Hallo Gemeinde

Ich versuche mich gerade in Makro-Programmieren... leider habe ich fast keinen Tau ....

Ich möchte eine bestehende Zeichnung die im Schriftfeld "Projektname" "Auftragsnummer" "Stückzahl" und "Position" stehen hat, ändern (Dateieigenschaften) und dann soll es imn einen Ordner c:\temp\ mit dem selben Namen + "-Temp".pdf gespeichert werden.

Derzeit schaut das so aus -> Das was fehlt ist, dass es nicht wie hier im selben Ordner speichern soll sondern eben in "c:\temp\"

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
Part.FileSummaryInfo

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) + "-temp_GW.pdf" ' Speichern als PDF-Datei
Part.SaveAs2 saveFileName, 0, True, False

End Sub

Danke schon mal für Eure Hilfe
LG

------------------
Gerald

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

---

Ich habe das mal (ohne Ahnung zu haben) durch die KI gejagt: Ob es Sinn hat , oder funktioniert?!

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim saveFileName As String

Sub main()
    ' SOLIDWORKS-Anwendung und aktives Dokument einrichten
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc

    ' Den Frame-Status der aktiven Ansicht auf 1 setzen (angenommen, es handelt sich um eine Zeichnung)
    swApp.ActiveDoc.ActiveView.FrameState = 1
    swApp.ActiveDoc.ActiveView.FrameState = 1

    ' In den Skizziermodus wechseln
    Part.EditSketch

    ' Überprüfen, ob das Dokument gespeichert wurde
    If (swApp.ActiveDoc.GetPathName = "") Then
        ' Eine Meldung anzeigen, wenn das Dokument nicht gespeichert wurde
        MsgBox ("Bitte zuerst Zeichnung speichern!")
        Exit Sub
    End If

    ' Aktualisieren der Dateieigenschaften (Projektname, Auftragsnummer, Stückzahl, Position)
    Part.CustomInfo2("Projektname") = "Neuer Projektname"
    Part.CustomInfo2("Auftragsnummer") = "Neue Auftragsnummer"
    Part.CustomInfo2("Stückzahl") = "Neue Stückzahl"
    Part.CustomInfo2("Position") = "Neue Position"

    ' Den PDF-Dateinamen auf Grundlage des Dokumentpfads erstellen und in den gewünschten Ordner speichern
    saveFileName = "c:\temp\" & Left(swApp.ActiveDoc.GetTitle, Len(swApp.ActiveDoc.GetTitle) - 4) & "+temp_GW.pdf"
    Part.SaveAs2 saveFileName, 0, True, False

    ' Eine Meldung anzeigen, um den Abschluss des Vorgangs zu bestätigen
    MsgBox ("Zeichnung wurde aktualisiert und im Ordner c:\temp\ gespeichert.")
End Sub

------------------
https://www.radiobob.de

[Diese Nachricht wurde von swx-cad-nutzer am 18. Sep. 2023 editiert.]

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

---

Hallo Gerald,

willkommen hier im Forum.

Für den Export von Zeichnungen gibt es hier schon haufenweise Lösungen zum kopieren und anpassen.
Dafür einfach in der Suche "PDF export" eingeben und du wirst einiges an Treffern haben.

Bspw:
https://ww3.cad.de/foren/ubb/Forum2/HTML/025482.shtml#000007

ist eines davon.

Für den simplen Export von der gesamten Zeichnung würde ich wahrscheinlich kein Makro verwenden.

Solltest du die Blätter als Einzelblätter benötigen kann ich dir

die DPS Jobbox empfehlen. (nahezu alles einstellbar und sehr  umfangreich)
https://www.dps-software.de/produkte/top-funtionen/funktion/142

oder falls dir Präfix, Suffix und mehrere Formate reichen, dann kannst du auch den SWXHelper nehmen (Werbung in eigener Sache)
https://swxtools.de/tutorials/#edd005b3228e44cad

Beide Tools sind kostenlos, bei der Jobbox zahlt man glaube ich nur wenn man etwas mehr Funktionen möchte.

Wenn es sich nicht um Massen an Zeichnungen handelt oder dieser Schritt nicht in den normalen Konstruktionsprozess integriert werden soll, dann
würde ich von der programmierten Lösung absehen.

Wenn die gestellten Hilfen nicht ausreichen sollten, dann beschreibe die Anforderungen an das Makro bitte noch etwas genauer damit dir ausreichend geholfen werden kann.

Beste Grüße
Kevin

------------------
HOMEPAGE | SWXTools.de - SWXHelper für SOLIDWORKS
KONTAKT | support@swxtools.de
FACEBOOK | facebook.com/SWXHelper
TWITTER | twitter.com/SWXTools

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

---

Hallo Danke
Die Zeile mit
' Den PDF-Dateinamen auf Grundlage des Dokumentpfads erstellen und in den gewünschten Ordner speichern
    saveFileName = "c:\temp\" & Left(swApp.ActiveDoc.GetTitle, Len(swApp.ActiveDoc.GetTitle) - 4) & "+temp_GW.pdf"
    Part.SaveAs2 saveFileName, 0, True, False
Hat gereicht - das wars 

------------------
Gerald

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