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!