Witam
Czy Twój plik dobrze otwiera się w oprogramowaniu?
Przykład użycia GetDesignTable w VBA: http://help.solidworks.com/2013/English/api/sldworksapi/Get_Design_Table_Example_VB.htm
Spróbuj także dodać linię
Plik.GetFileCopy (0)
tuż za linią
Vault.GetFileFromPath("Le_nom_de_ton_fichier_avec_le_chemin", Folder)
Pozdrowienia
Właśnie wstawiłem linię, którą mi wskazałeś, a błąd jest w tym wierszu, ten sam błąd.
Tak, mój plik dobrze otwiera się w oprogramowaniu, a moje makro działa wspaniale, o ile wcześniej kliknąłem na mój plik, aby "Pobierz najnowszą wersję".
Potwierdza to, że jest to rzeczywiście powód błędu.
Edycja: jeśli chodzi o korzystanie z GetDesignTable, używam go zgodnie ze wskazaniami.
Ja tego nie widzę. Dla Twojej informacji, nie mam żadnego błędu operacyjnego z następującym makrem:
Dim swApp As Object
Przyciemnij część jako obiekt
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Ustaw swApp = Application.SldWorks
Dim Vault jako nowy EdmVault5
Przyciemnij plik jako IEdmFile5
Przyciemnij folder jako IEdmFolder5
Vault.LoginAuto "Coffre_BE", 0
Set File = Vault.GetFileFromPath("C:\Coffre_BE\TEST\0088880001.SLDPRT", Folder)
Ustaw część = swApp.OpenDoc6(Folder.LocalPath & "/" & File.Name, 1, 2, "", longstatus, longwarnings)
swApp.ActivateDoc2 File.Name, Fałsz, longstatus
Ustaw swModel = swApp.ActiveDoc
swModel.ViewZoomtofit2
Koniec subwoofera
Jedynym komunikatem, jaki otrzymuję, jest to, że Epdm mnie, czy chcę wyodrębnić plik po jego załadowaniu, normalna wiadomość, ponieważ tak nie jest. FYI Nie potrzebuję wiersza GetFileCopy.
Jestem na wersji z 2015 roku.
Pozdrowienia