Uważam, że w każdym razie SolidWorks jest potrzebny na komputerze do wykonania konwersji.
1 polubienie
par ça do konwersji bez licencji podstawowej log SW
http://www.datakit.com/convertisseurs-cao/solidworks-3d-vers-pdf-3d/3-72-0.html
http://www.datakit.com/fr/cross_manager.php
Zobacz też
http://helpx.adobe.com/fr/acrobat/kb/supported-file-formats-acrobat-reader.html
@+ ;-)
Jak mówi Lucas, na tym forum lub w innych znajdują się przykłady kodu, które można znaleźć w google
Wszystkie te przykłady wymagają SW,
Możliwe jest użycie interfejsów API eDrawing do utworzenia pliku PDF (za pomocą sterownika drukarki PDF) lub pliku obrazu, ale nic więcej.
7 polubień
Zaznaczam, że jakość konwersji nie jest gwarantowana za pomocą eDrawing
4 polubienia
Otóż przeszukałem wszystkie te linki i znalazłem na razie makro, które pozwala na nagrywanie w 2 formatach.
Teraz muszę znaleźć sposób, aby zapisać je w określonym folderze.
I na koniec sprawdź, w której wersji autocada je zapisuje.
Wtedy
Wersja nagrania nie zależy od makra, ale od ustawień ustawionych w programie AutoCAD.
Więc ten punkt jest rozwiązany.
Podczas zapisywania plików DWG i PDF makro tworzy sufiks do nazwy planu. Który jest "spacją -", a ja ją usunę.
Myślę, że pochodzi z : FileName = Left(swDraw.GetTitle, Len(swDraw.GetTitle) - 9)
A przed umieszczeniem strony w naszej sieci.....
Porządkujemy nasze pliki w następujący sposób:
plik najwyższego poziomu: SAMOCHÓD lub MOTOCYKL lub TRAKTOR lub ROWER
plik drugiego poziomu: Kabriolet lub Coupe, MPV lub 4x4
Plik trzeciego poziomu: 3D / DWG / PDF
Tak więc na naszych pierwszych poziomach mamy kategorię
określony rozmiar lub typ
Po trzecie, posortowane foldery z plikami.
I tak ten trzeci poziom znajduje się we wszystkich plikach. Ale jak powiedzieć makru, że musisz zapisać plik w bardzo konkretnym folderze DWG (wiedząc, że są ich dziesiątki)
W rzeczywistości lepiej jest go używać
Dim fso As New Scripting.FileSystemObject
Ustaw fso = CreateObject("Scripting.FileSystemObject") ' dodaj odniesienie "Microsoft Scripting Runtime
Nazwa pliku = fso. GetBaseName(swDraw.GetPathName)
Ponieważ swDraw.GetTitle retorune imię fiszy + imię żałobnika i zszyliśmy 9 znaków, aby usunąć nazwę arkusza!
6 polubień
Właśnie zamieniłem FileName = Left(swDraw.GetTitle, Len(swDraw.GetTitle) - 9)
przez
Nazwa pliku = fso. GetBaseName(swDraw.GetPathName)
A w czasie wykonywania błąd wykonania "424"
.. Po co?
Myślę, że to błąd z mojej strony.
ponieważ makro wymienia teraz pliki DWG i PDF jako początek.
Aktualizacja makra.
Sub main()
Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
' Sprawdź, czy rysunek został załadowany.
Jeśli (swModel jest niczym) Or (swModel.GetType <> swDocDRAWING) Wtedy
swApp.SendMsgToUser ("Do użycia tylko dla rysunków, najpierw otwórz rysunek, a następnie WYPRÓBUJ!")
' Jeśli żaden model nie jest aktualnie załadowany, wyjdź
Wyjdź z subwoofera
Zakończ jeżeli:
Ustaw swDraw = swModel
Filepath = Left(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\"))
Ustaw fso = CreateObject("Scripting.FileSystemObject") ' dodaj odniesienie "Microsoft Scripting Runtime
Nazwa pliku = fso. GetBaseName(swDraw.GetPathName)
swDraw.SaveAs (ścieżka pliku + nazwa_pliku + ".PDF")
swDraw.SaveAs (ścieżka pliku + nazwa_pliku + ". DWG")
Koniec subwoofera
Punkt ujemny,
Właśnie otworzyłem kopię zapasową DWG i otrzymuję następujący komunikat:
Plik DWG został zapisany w aplikacji, która nie została opracowana przez firmę Autodesk lub nie ma licencji Autodesk. Co chcesz zrobić?
Kiedy kontynuuję otwieranie, nic specjalnego, ale nie możemy pozwolić, aby taki komunikat pojawił się po jego otwarciu. (Audyt jakości zobowiązuje)
Jak to zrobić?
Trudno będzie odpowiedzieć na dziesiątki pytań w tej dyskusji!
Dlaczego nie otworzyć nowego pytania dla każdego problemu?
Dla makra, dla błędu DWG itp.?
2 polubienia
Czy podczas zapisywania jako DWG z SolidWorks pojawia się ten sam komunikat?
Jeśli tak (a prawdopodobnie tak jest), musisz zmienić opcje eksportu do DWG:
Plik> Zapisz jako> Wybierz DWG, a pojawi się przycisk Opcje
Za pomocą jakiego oprogramowania otwierany jest DWG?
2 polubienia
Lucas
Wykonałem zwykłe manipulacje (bez przechodzenia przez makro)
Format pliku/Zapisz jako/DWG.
kiedy otwieram DWG "z AUTOCAD2013, faktycznie pojawia się ten sam komunikat.
Jak pisałem w poprzednim poście na temat sprawy:
"Za pomocą makra możesz zdefiniować wspólny folder, folder według typu pliku, folder (na podstawie niestandardowej właściwości klienta, numeru transakcji) lub zaoferować eksplorator plików, aby za każdym razem wybrać, gdzie zapisać różne pliki".
Czy masz osobistą własność lub coś w kodacji, co mówi ci o tym:
plik najwyższego poziomu: SAMOCHÓD lub MOTOCYKL lub TRAKTOR lub ROWER
plik drugiego poziomu: Kabriolet lub Coupe, MPV lub 4x4
Część:
swDraw.SaveAs (ścieżka pliku + nazwa_pliku + ".PDF")
swDraw.SaveAs (ścieżka pliku + nazwa_pliku + ". DWG")
Powinno wyglądać tak:
Wybierz typ obserwacji 'wybierz wielkość liter pozwala uniknąć wielu zagnieżdżonych FI
box = "CAR" 'jeśli typ = samochód
Folder = "C:\CAR" 'zapisujemy w folderze samochodu
case = "MOTO" 'tak samo...
Folder = "C:\MOTO"
box = "CIĄGNIK"
Folder = "C:\CIĄGNIK"
case = "ROWER"
Folder = "C:\VELO"
else' case 'jeśli inny typ lub brak typu, błąd
msgbox "Wpisz błąd1"
wyjście
Zakończ wybór
Wybierz typ sprawy2
case = "CUT" 'jeśli type1 = wyciąć
Folder = Folder & "\CUT" 'dodajemy cięcie do folderu
case = "KABINA"
Folder = Folder & "\CAB"
Koperta = "4x4"
Folder = Folder & "\4x4"
case = "MONOSPACE"
Folder = Folder & "\MONOSPACE"
Przypadek w przeciwnym razie
msgbox "Błąd typu2"
wyjście
Zakończ wybór
Dla informacji:
Type1 i type2 muszą być zmiennymi, które już istnieją w plikach lub o które użytkownik musi być proszony podczas uruchamiania makra.
swDraw.SaveAs(Folder & "\PDF\" & NazwaPliku & ".PDF")
swDraw.SaveAs(Folder & "\DWG\" & Nazwa pliku & ". DWG")
1 polubienie
Aby użyć FSO, należy dodać do makra odwołanie do środowiska wykonawczego skryptów firmy Microsoft
Zobacz zrzut ekranu
capture.jpg
4 polubienia
W przypadku problemu z komunikatem podczas otwierania w programie AutoCAD nie ma pola do odznaczenia, aby komunikat już się nie pojawiał?
W przeciwnym razie zobacz ten link /
http://autodesk.blogs.com/between_the_lines/2005/06/how_to_tell_if_.html
Udało Ci się z tego wyjść?
1 polubienie
Witam, chcę podziękować za pomoc.
Na razie makro odpowiada naszemu BE. Po prostu zrobimy ręcznie pliki DWG i PDF.
Już teraz oszczędzamy dużo czasu.
Firma może inwestować w EPDM...
W tym czasie będziemy pracować nad przechowywaniem plików.
Pozdrowienia.
2 polubienia
Proszę wskazać najlepszą odpowiedź w tym przypadku!