Makra DWG i PDF na komputerze

Macro
1

Witam.
Chciałbym mieć makro, które zapisuje plan w formacie dwg i pdf bezpośrednio na moim pulpicie. Znajduję makra, które topią go bezpośrednio w folderze planu, ale nie mogę zdefiniować ścieżki do pulpitu.
Dziękuję za pomoc

1 polubienie
2

Dobry wieczór
Opublikuj znalezione makro, a my wyjaśnimy, gdzie je edytować.

2 polubienia
3

Witam, dziękuję za opinię.
To makro zapisuje pliki w oryginalnym folderze klipu
Dzięki, że mi pomagasz

Dim swApp As Object
Przyciemnij część jako obiekt
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Przyciemnij FeatureData jako obiekt
Przyciemnij element jako obiekt
Przyciemnij komponent jako obiekt
Sub main()
Ustaw swApp = Application.SldWorks
Ustaw część = swApp.ActiveDoc
Path = Part.GetPathName ' ścieżka do pliku
Part.SaveAs2 Left(Path, (Len(Path) - 6)) & "PDF", 0, True, False '
Part.SaveAs2 Left(Path, (Len(Path) - 6)) & DWG, 0, True, False
Ustaw część = Nic

Koniec subwoofera

4

Witam, musimy zmienić w następujący sposób:

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

Świetnie, to działa, bardzo dziękuję za pomoc :smile:

1 polubienie