Witam
Aby otworzyć plik w SolidWorks z makra, używam
Dim swApp jako SldWorks.SldWorks
Ustaw swApp = GetObject(, "SldWorks.Application") ', aby pobrać już otwarte oprogramowanie
lub
Ustaw swApp = CreateObject("SldWorks.Application") ', aby uruchomić oprogramowanie
Chciałbym zrobić to samo z eDrawing
Problem, nie mogę znaleźć GetObject dla eDrawing
Widziałem, że w moim projekcie VBA mogę dodać jako "Referencje"
Biblioteka EModelView
C:\Program Files\SOLIDWORKS Corp\eDrawings\EModelView.dll
Biblioteka typów EModelView 2020
Próbowałem bez powodzenia
Ustaw EModelViewApp = CreateObject("EModelView.Application")
ale to nie działa :-(
( Zainstalowałem oprogramowanie SW 2020 / eDrawing 2020 )
Witam
Jeśli chodzi tylko o otwarcie pliku w eDrawings:
Dim RetVal As Boolean
Przyciemnij aplikację jako ciąg
Przyciemnij plik jako ciąg
Sub main()
App = "C:\Program Files\SOLIDWORKS Corp\eDrawings\eDrawings.exe"
Plik = "C:\Użytkownicy\xxx\Pulpit\mójPlik.dxf"
RetVal = Shell(App &" " & Plik, 1)
Koniec subwoofera
Nie zapomnij umieścić "Microsoft Shell Controls And Automation" jako odniesienie.
Pozdrowienia
Witam
Tak to teraz robię,
ale problem polega na ponownym uruchomieniu aplikacji eDrawing dla każdego pliku.....
Chciałem znaleźć lepsze za pomocą GetObject CreateObject .....
Spójrz na ten przykład, aby zapisać plik Sldprt jako plik PDF za pomocą interfejsu API eDrawing:
https://www.codestack.net/edrawings-api/output/print-to-pdf/
Struktura różni się od API Solidworks , ale działa dobrze. Używam go do konwersji Sldprt na edrawing.