DWG- en PDF-macro op desktop

Macro
1

Hallo.
Ik wil graag een macro die een plan in dwg en pdf rechtstreeks op mijn bureaublad opslaat. Ik vind macro's die het rechtstreeks in de planmap smelten, maar ik kan het pad naar het bureaublad niet definiëren.
Bedankt voor je hulp

1 like
2

Goedenavond
Plaats de macro die je hebt gevonden en we leggen uit waar je de macro kunt bewerken.

2 likes
3

Hallo, bedankt voor de feedback.
Met deze macro worden de bestanden opgeslagen in de oorspronkelijke map van de clip
Bedankt dat je me hebt geholpen

Dim swApp als object
Deel dimmen als object
Dim boolstatus als Booleaanse
Dim longstatus As Long, longwarnings As Long
Dim FeatureData als object
Dimfunctie als object
Component dimmen als object
Sub hoofd()
Stel swApp = Toepassing.SldWorks in
Deel instellen = swApp.ActiveDoc
Path = Part.GetPathName ' bestandspad
Part.SaveAs2 Left(Pad, (Len(Pad) - 6)) & "PDF", 0, Waar, Onwaar '
Part.SaveAs2 Links(Pad, (Len(Pad) - 6)) & DWG, 0, Waar, Onwaar
Set Deel = Niets

Einde Sub

4

Hallo, we moeten als volgt veranderen:

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 like
5

Geweldig dat het werkt, heel erg bedankt voor je hulp :smile:

1 like