SolidWorks >> Makra >> Makro PDF, jego modyfikacja
1  2    >
Odpowiedz
Autor Wypowiedź
2016-05-23, 07:25
Pomógł 0 raz(y).
 Witam,

wrzuciłem sobie makro tworzące PDF, ale zapisuje go w folderze głównym w jaki sposób go zmodyfikować, żeby zapisywało w innym folderze?

Tutaj cała jego zawartość:

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
MsgBox "No current document", vbCritical
End
End If
If swModel.GetType swDocDRAWING Then
MsgBox "This Macro only works on Drawings", vbCritical
End
End If
Set swModelDocExt = swModel.Extension
Set swExportData = swApp.GetExportFileData(swExportPDFData)
filename = swModel.GetPathName
If filename = "" Then
MsgBox "Please save the file first and try again", vbCritical
End
End If
filename = Strings.Left(filename, Len(filename) - 6) & "PDF"
boolstatus = swExportData.SetSheets(swExportData_ExportAllSheets, 1)
boolstatus = swModelDocExt.SaveAs(filename, 0, 0, swExportData, lErrors, lWarnings)
If boolstatus Then
MsgBox "Save as PDF successful" & vbNewLine & filename
Else
MsgBox "Save as PDF failed, Error code:" & lErrors
End If
End Sub
 
.
2016-05-23, 07:29
Pomógł 52 raz(y).
 Odsyłam tu : http://www.pswug.info/forum/20/Makra/2289/Makro_zapisz_do_pdf_3d/
 
2016-05-23, 13:10
Pomógł 0 raz(y).
 Oki, ale nie mam zielonego pojęcia jak sie zabrać do tego. Jakie linijki musiałbym skopiować, żeby coś z tego było?
 
.
2016-05-25, 11:14
Pomógł 52 raz(y).
 Nie wiem czy to makro u Ciebie działało, bo u mnie nie.
Poprawiłem pouzupełniałem i jest tu do ściągnięcia.

http://www.pswug.info/image/forum/forum_760_20_2308_8526.bas
 
2016-05-31, 07:57
Pomógł 0 raz(y).
 Utworzyłem nowe macro wkleiłem wszystko i coś takiego.

i po kliknięciu Debug wskakuje do edycji
 
.
2016-05-31, 20:48
Pomógł 52 raz(y).
 Widzę , że ten błąd występuje w tym pierwszym makrze(wzorcowym).
W tym, które przerobiłem trzeba usunąć pierwszą linię (wyświetlaną na czerwono) i uruchomić 'main', musi działać.
A najlepiej otworzyć to makro z linku po zapisaniu na dysk jako makro '.SWB' i potem zapisać już jako '.SWP'.
 
2016-06-01, 07:56
Pomógł 0 raz(y).
 Edytowałem to macro i usunąłem pierwszą linijkę tak jak napisałeś. Śmiga jak ta lala, dzięki wielkie :))

PS. czy są gdzieś jakieś poradniki, informację w jaki sposób i od czego zacząć tworzyć macro, co jest za co odpowiedzialne?

Chciałbym takie coś zrobić z plikami IGS i DXF
 
.
2016-06-01, 10:55
Pomógł 52 raz(y).
 Z podręcznikami jest nie najlepiej. Ja uczyłem się na błędach :), przykładach z API helpu i z netu. Dużą pomocą są również makra rejestrowane w trakcie pracy w SW. Podglądanie ich jest też skarbnicą wiedzy.
 
2016-06-01, 11:03
Pomógł 0 raz(y).
 Oki, będzie trochę czasu to może uda się to ogarnąć. Co do tego makra PDF da radę zrobić, żeby po zapisaniu pierwszego rysunku i wpisaniu ścieżki gdzie ma zapisać, pamiętało ją przy kolejnym zapisywaniu rysunku?
 
.
2016-06-01, 12:46
Pomógł 52 raz(y).
 Da się , ale to już wyższa szkoła jazdy.
 
2016-06-01, 13:10
Pomógł 0 raz(y).
 Rozumiem ;)
 
.
2016-06-01, 13:43
Pomógł 52 raz(y).
 Ogólnie rzecz biorąc trzeba : albo zapamiętać gdzieś (np. w pliku tekstowym) wymaganą ścieżkę albo ustawić zmienną systemową 'SwApp.SetCurrentWorkingDirectory' i potem ją wprowadzić jako domyślną ('SwApp.GetCurrentWorkingDirectory') do funkcji InputBox.
 
2016-06-01, 13:50
Pomógł 0 raz(y).
 Usprawniłoby to zapisywanie, hmm te wiersze to dla mnie czarna magia.
 
2016-06-01, 13:54
Pomógł 0 raz(y).
 A ten plik tekstowy jak zgrać z tym macrem?
 
.
2016-06-01, 15:22
Pomógł 52 raz(y).
 No dobra, pomimo, że edukacyjne to nie jest, zrobiłem Ci.
Ale jak chcesz się nauczyć programowania to kombinuj :)

http://www.pswug.info/image/forum/forum_760_20_2308_8548.bas
 
2016-06-02, 07:55
Pomógł 0 raz(y).
 Coś pięknego:D hehe Jeszcze ta literka -A za nazwą utworzonego PDF mnie denerwuje, ale to już sam muszę ogarnąć :) Dzięki wielkie jeszcze raz hakerze:D
 
2016-06-02, 11:44
Pomógł 0 raz(y).
 Upss chyba za wcześnie pochwaliłem, nie pamięta ostatnio wklepanej ścieżki gdzie ma zapisywać te pdf-y
 
.
2016-06-02, 11:59
Pomógł 52 raz(y).
 Problem pojawia się prawdopodobnie gdy otwieramy rysunek z innego katalogu bo wtedy zmienia się bieżący katalog roboczy :(.
To trzeba inaczej, tak jak sugerowałem wcześniej. Zapisać naszą ścieżkę do pliku tekstowego, albo do rejestru Win.
 
2016-06-02, 12:20
Pomógł 0 raz(y).
 Aj no to wymyślę coś, żeby zapisywało się bezpośrednio do folderu, a później bedę je wszystkie przerzucał tam gdzie maja byc;]
 
Projektant
2016-07-05, 08:57
Pomógł 0 raz(y).
     Śmieszek Włodzimierz
    Nie wiem czy to makro u Ciebie działało, bo u mnie nie.
    Poprawiłem pouzupełniałem i jest tu do ściągnięcia.
   

    http://www.pswug.info/image/forum/forum_760_20_2308_8526.bas
Nie wiem czy mowa o niedziałającym było z mojego postu ono działa poprawnie tylko robi pdf3D. Jeżeli chce się robić pdf z rysunku płaskiego to wywala takie błedy. Eksporty do 3dPDF robi bez jąknięcia w domyslnej lub ustawionej ścieżce.
 
Odpowiedz
1  2    >

PSWUG

Strefa Resellera

Publikuj

Społeczność

Ankieta

Linki

RSS
BOT