Hallo Zusammen,
bin absoluter Neuling in CAD.de und VBA Macro in Solid Works.
Habe letzte Woche ein Macro aufgezeichnet und ein bißchen "gespielt".
Komme jedoch nicht weiter.
Benötige Unterstützung und hints & tips zu diesen Anforderungen:
-------------- Anforderungen --------------- Begin -------------------------
Funktionen sollten sein wie folgt (Macro in SW2019):
a.) Aktuelles Dokument --> einpassen in den Bildschirm (Zeich und Modell)
b.) Aktuelles Dokument --> aktualisieren (Zeich und Modell)
c.) Aktuelles Dokument --> prüfen ob Schreibschutz vorhanden (Zeich und Modell)
-> wenn ja; fragen ob Schreibschutz aufgehoben werden soll
-> Rückmeldung ... kann nicht gespeichert werden
d.) Aktuelles Dokument --> im aktuellen Pfad mit gleichem Namen speichern (Zeich und Modell)
e.) Aktuelles Dokument ---> mit aktuellem Namen nach "H:\TRUMPF\TEILE\DXF-Konstruktion\" als DXF speichern (nur Zeichnung)
f.) Aktuelles Dokument ---> mit aktuellem Namen nach "T:\KONSTRUKTION-FERTIGUNG-PDF\" als PDF speichern (nur Zeichnung)
g.) Abfragen drucken mit den Aktuellen Parametern auf Standarddrucker ..... (nur Zeichnung)
h.) Dokument schließen
-------------- Anforderungen --------------- Ende -------------------------
------------ Macro funktioniert nicht ----------------------
Dim longstatus As Long, longwarnings As Long
Dim swApp As Object
Dim Part As Object
Dim Dateiname As String
Dim DateinameAnfang As String
Dim Dateiordner As String
Dim saveFileName As String
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
' Save As PDF / DXF
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
' longstatus = Part.SaveAs3("T:\KONSTRUKTION-FERTIGUNG-PDF\swApp.ActiveDoc", 0, 0)
' Part.SheetPrevious
' Part.SheetNext
'Datei neu als DXF speichern
Dim swErrors As Long
Dim swWarnings As Long
saveFileName = "H:\TRUMPF\TEILE\DXF-Konstruktion\" + Dateiname + ".dxf" 'Datei neu als DXF speichern
Part.SaveAs2 saveFileName, 0, True, False
saveFileName = "T:\KONSTRUKTION-FERTIGUNG-PDF\" + Dateiname + ".pdf" 'Datei neu als PDF speichern
Part.SaveAs2 saveFileName, 0, True, False
' Save As
' longstatus = Part.SaveAs3("T:\KONSTRUKTION-FERTIGUNG-PDF\swApp.ActiveDoc", 0, 0)
' Part.SheetPrevious
' Part.SheetNext
' boolstatus = Part.Save3(1, swErrors, swWarnings)
' Part.ClearSelection2 True
' Redraw
Part.GraphicsRedraw2
' Zoom To Fit
Part.ViewZoomtofit2
' Save
' Dim swErrors As Long
' Dim swWarnings As Long
boolstatus = Part.Save3(1, swErrors, swWarnings)
' Close Document
Name = Part.GetPathName()
swApp.CloseDoc Name
End Sub
----------------------------------------------------------------------------
Danke im voraus für Euere Hilfe
Alois Metzger
------------------
Alois Metzger
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP