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