Cze wszystkim
Mam poniżej makro, które działa lub nie w zależności od używanej linii (ścieżki pliku).
Dla ścieżki pliku, która jest skierowana do Z:\1 Plans 2021\MONTIFAUD SAS CHATEAU działa bardzo dobrze, otwiera plik, wkłada do mojego planu montażu i zamyka plik (nikiel).
Podczas gdy druga ścieżka pliku, która jest kierowana do Z:\SolidWorks\Library, nie występuje .
Jestem na tym samym serwerze, używam tego samego PRT, różni się tylko ścieżka
Czy masz jakieś wyjaśnienie, które możesz mi dać?
Czy w makrze w deklaracji zmiennych wystąpił błąd?
Celem tego makra jest późniejsze zintegrowanie go z formularzem użytkownika.
Z góry dziękuję.
Pozdrowienia.
MAKRO
Przyciemnij swPart jako SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Przyciemnij ścieżkę pliku jako ciąg
Dim swApp As Object
Przyciemnij część jako obiekt
Sub main()
Ustaw swApp = Application.SldWorks
Ustaw swPart = swApp.ActiveDoc
Dim tmpObj jako ModelDoc2
Błędy przyciemnienia tak długo
filePath = "Z:\SolidWorks\Biblioteka\\ze stali nierdzewnej-TH.SLDPRT"
'filePath = "Z:\1 Plany 2021\MONTIFAUD SAS CHATEAU\Model 3D\\-Stal nierdzewna-TH.SLDPRT"
Set tmpObj = swApp.OpenDoc6(filePath, 1, 32, "", errors, longwarnings)
Ustaw część = swApp.ActivateDoc3(filePath, True, 0, błędy)
Dim swInsertedComponent jako komponent2
Set swInsertedComponent = swPart.AddComponent5(filePath, 0, "", False, "", 0, 0, 0)
swApp.CloseDoc filePath (ścieżka do pliku)
Koniec subwoofera