Witam
Jestem zupełnie nowy w SolidWorks (zacząłem tworzyć swoje pierwsze części tydzień temu :)). Dzisiaj chcę zapisać w Excelu wartość pewnych zmiennych, sprawić, by były one zróżnicowane w moim pliku solidWorks. Jeśli chodzi o Esquisse, to udało mi się to zrobić. Jednak, aby zmienić materiały, nie mogę tego zrobić.
Mój program do szkicowania składa się z dwóch części, z których pierwsza odczytuje informacje z mojego SolidWorks, a druga modyfikuje bryły zgodnie z wartościami wprowadzonymi w Excelu.
Oto, co mam w moim makro:
Opcja jawna
Dim swApp jako SldWorks.SldWorks
Dim swDoc jako SldWorks.ModelDoc2
' Dodaje wybrany wymiar do tabeli
Sub AddSelectedDimension()
Dim swDimension jako SldWorks.Dimension
Dim SwMaterial jako SldWorks.MaterialVisualPropertiesData
Przyciemnij exSheet jako arkusz roboczy
Ustaw swApp = CreateObject("SldWorks.Application")
Ustaw swDoc = swApp.ActiveDoc
Ustaw exSheet = ThisWorkbook.ActiveSheet
Jeśli swDoc jest niczym, to
MsgBox "Nie ma aktywnego dokumentu", vbExclamation
Wyjdź z subwoofera
Zakończ jeżeli:
' Wybieranie wymiaru i przypisywanie go do komórki (wiersza, kolumny)
Ustaw swDimension = swDoc.Parameter(exSheet.Cells(2, 1))
exSheet.Cells(2, 2) = swDimension.Value
Ustaw swDimension = swDoc.Parameter(exSheet.Cells(3, 1))
exSheet.Cells(3, 2) = swDimension.Value
Ustaw swDimension = swDoc.Parameter(exSheet.Cells(4, 1))
exSheet.Cells(4, 2) = swDimension.Value
Ustaw swDimension = swDoc.Parameter(exSheet.Cells(5, 1))
exSheet.Cells(5, 2) = swDimension.Value
Ustaw swDimension = swDoc.Parameter(exSheet.Cells(6, 1))
exSheet.Cells(6, 2) = swDimension.Value
Ustaw SwMaterial = swDoc.Parameter(exSheet.Cells(7, 1))
exSheet.Cells(7, 2) = SwMaterial.Value
Koniec subwoofera
W załączeniu znajduje się screen mojej części EXCEL
Aby wyświetlić wartości solidworks w Excelu, klikam przycisk Odtwórz i aby zmodyfikować wartości, modyfikuję je, a następnie klikam przycisk edycji wartości.
Chciałbym zrobić to samo w ramce poniżej (poniżej D1@Plan5), ale z materiałem, czy jest to możliwe? A jeśli tak, czy możesz mi pomóc?
W każdym razie, dziękuję za poświęcenie czasu na przeczytanie mnie:)
Pozdrowienia
VERMEESCHE Marc
captureprogramme.png