Hallo
Ich bin ganz neu bei SolidWorks (ich habe vor einer Woche mit der Herstellung meiner ersten Teile begonnen :)). Heute möchte ich den Wert bestimmter Variablen in Excel schreiben und sie in meiner solidWorks-Datei variieren. Was die Esquisse anbelangt, so habe ich es geschafft. Die Materialien zu wechseln, kann ich jedoch nicht tun.
Mein Programm zum Skizzieren besteht aus zwei Teilen, der erste, der die Informationen in meinem SolidWorks liest, der zweite, der das SolidWorks gemäß den in Excel eingegebenen Werten modifiziert.
Hier ist, was ich in meinem Makro habe:
Option Explizit
Dim swApp als SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
' Fügt die ausgewählte Dimension zur Tabelle hinzu
Unter: AddSelectedDimension()
Dim swDimension als SldWorks.Dimension
Dimmen von SwMaterial als SldWorks.MaterialVisualPropertiesData
ExSheet als Arbeitsblatt dimmen
Set swApp = CreateObject("SldWorks.Application")
Festlegen von swDoc = swApp.ActiveDoc
Legen Sie exSheet = ThisWorkbook.ActiveSheet fest
Wenn swDoc nichts ist, dann
MsgBox "Es gibt kein aktives Dokument", vbExclamation
Sub beenden
Ende, wenn
' Auswählen einer Dimension und Zuweisen zu einer Zelle (Zeile, Spalte)
Set swDimension = swDoc.Parameter(exSheet.Cells(2, 1))
exSheet.Cells(2, 2) = swDimension.Wert
Set swDimension = swDoc.Parameter(exSheet.Cells(3, 1))
exSheet.Cells(3, 2) = swDimension.Wert
Set swDimension = swDoc.Parameter(exSheet.Cells(4, 1))
exSheet.Cells(4, 2) = swDimension.Wert
Set swDimension = swDoc.Parameter(exSheet.Cells(5, 1))
exSheet.Cells(5, 2) = swDimension.Wert
Set swDimension = swDoc.Parameter(exSheet.Cells(6, 1))
exSheet.Cells(6, 2) = swDimension.Wert
Set SwMaterial = swDoc.Parameter(exSheet.Cells(7, 1))
exSheet.Cells(7, 2) = SwMaterial.Wert
Ende Sub
Im Anhang befindet sich ein Bildschirm meines EXCEL-Teils
Um die SOLIDWORKS-Werte in Excel anzuzeigen, klicke ich auf die Schaltfläche "Abspielen", und um die Werte zu ändern, ändere ich sie und klicke dann auf die Schaltfläche "Werte bearbeiten".
Ich würde das Gleiche gerne in der Box unten (unter D1@Plan5) tun, aber ist das mit dem Material möglich? Und wenn ja, können Sie mir bitte helfen?
Wie auch immer, danke, dass du dir die Zeit genommen hast, mich zu lesen:)
Herzliche Grüße
VERMEESCHE Marc
captureprogramme.png