DWG- und PDF-Makro auf dem Desktop

Hallo.
Ich hätte gerne ein Makro, das einen Plan in dwg und pdf direkt auf meinem Desktop speichert. Ich finde Makros, die es direkt in den Planordner einschmelzen, aber ich kann den Pfad zum Desktop nicht definieren.
Danke für Ihre Hilfe

1 „Gefällt mir“

Guten Abend
Posten Sie das Makro, das Sie gefunden haben, und wir erklären Ihnen, wo Sie es bearbeiten können.

2 „Gefällt mir“

Hallo, vielen Dank für das Feedback.
Mit diesem Makro werden die Dateien im Originalordner des Clips gespeichert
Danke, dass du mir geholfen hast

Dimmen swApp als Objekt
Teil als Objekt dimmen
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long
Feature-Daten als Objekt dimmen
Dimmen von Feature als Objekt
Komponente als Objekt dimmen
Sub main()
Legen Sie swApp = Application.SldWorks fest
Set Part = swApp.ActiveDoc
Pfad = Part.GetPathName ' Dateipfad
Part.SaveAs2 Left(Path, (Len(Path) - 6)) & "PDF", 0, True, False '
Part.SaveAs2 Links(Pfad, (Länge(Pfad) - 6)) & DWG, 0, Wahr, Falsch
Set Part = Nichts

Ende Sub

Hallo, wir müssen uns wie folgt ändern:

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
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Path = Part.GetPathName 'chemin du fichier
Path =  Mid(Path, InStrRev(Path, "\") + 1) 'Purge le chemin d'accès
Path = Environ("userprofile") & "\Desktop\" & Path
Part.SaveAs2 Left(Path, (Len(Path) - 6)) & « PDF », 0, True, False 'Sauvegarde au format PDF
Part.SaveAs2 Left(Path, (Len(Path) - 6)) & « DWG », 0, True, False 'Sauvegarde au format DWG
Set Part = Nothing`
1 „Gefällt mir“

Toll es funktioniert, vielen Dank für Ihre Hilfe :smile:

1 „Gefällt mir“