Hallo
Ik ben helemaal nieuw bij SolidWorks (ik ben een week geleden begonnen met het maken van mijn eerste onderdelen :)). Vandaag wil ik in Excel de waarde van bepaalde variabelen schrijven, ze gevarieerd maken in mijn solidWorks-bestand. Wat de Esquisse betreft, het is me gelukt. Om de materialen te veranderen, kan ik het echter niet doen.
Mijn programma voor schetsen bestaat uit twee delen, het eerste dat de informatie in mijn SolidWorks leest, het tweede dat de solidworks wijzigt volgens de waarden die in de Excel zijn ingevoerd.
Dit is wat ik in mijn macro heb:
Optie Expliciete
Dim swApp als SldWorks.SldWorks
Dim swDoc als SldWorks.ModelDoc2
' Voegt de geselecteerde dimensie toe aan de tabel
Sub AddSelectedDimension()
Dim swDimension als SldWorks.Dimension
Dim SwMaterial als SldWorks.MaterialVisualPropertiesData
ExSheet dimmen als werkblad
Stel swApp = CreateObject("SldWorks.Application") in
Stel swDoc in = swApp.ActiveDoc
Stel exSheet in = DitWerkboek.ActiveSheet
Als swDoc niets is, dan
MsgBox "Er is geen actief document", vbUitroep
Sub afsluiten
Einde als
' Een dimensie selecteren en toewijzen aan een cel (rij, kolom)
Stel swDimension = swDoc.Parameter(exSheet.Cells(2, 1)) in
exSheet.Cells(2, 2) = swDimension.Value
Stel swDimension in = swDoc.Parameter(exSheet.Cells(3, 1))
exSheet.Cells(3, 2) = swDimensie.Waarde
Stel swDimension = swDoc.Parameter(exSheet.Cells(4, 1)) in
exSheet.Cells(4, 2) = swDimension.Value
Stel swDimension = swDoc.Parameter(exSheet.Cells(5, 1)) in
exSheet.Cells(5, 2) = swDimension.Value
Stel swDimension = swDoc.Parameter(exSheet.Cells(6, 1)) in
exSheet.Cells(6, 2) = swDimension.Value
Stel SwMaterial in = swDoc.Parameter(exSheet.Cells(7, 1))
exSheet.Cells(7, 2) = SwMaterial.Value
Einde Sub
Bijgevoegd is een scherm van mijn EXCEL onderdeel
Om de solidworks-waarden in Excel weer te geven, klik ik op een afspeelknop en om de waarden te wijzigen, wijzig ik ze en vervolgens klik ik op een knop voor het bewerken van waarden.
Ik zou graag hetzelfde willen doen in het onderstaande vak (onder D1@Plan5) maar met het materiaal, is dat mogelijk? En zo ja, kun je me dan helpen ?
Hoe dan ook, bedankt dat je de tijd hebt genomen om me te lezen:)
Vriendelijke groeten
VERMEESCHE Marc
captureprogramme.png