Hvordan lese Excel i en Solidworks Macro

Hvordan lese Excel i en Solidworks Macro


Jobb mer effektivt i Solidworks ved å benytte Excel evne til å holde flere verdier og definere funksjonelle relasjoner mellom verdiene. Kontrollsolidworks parametre, slik som dimensjonsverdier, med Excel VBA-verktøy. For eksempel kan du lage en forsamling med en innebygd Excel-regneark som lar deg kontrollere del dimensjoner. Du kan endre celleverdier i innebygde regnearket, og klikk deretter en kommandoknapp for å utføre en makro som oppdaterer forsamlingen. Utforsk de mange alternativene for bruk Excel formler og funksjoner med Solidworks makro.

Bruksanvisning

1 Åpne en forsamling i Solidworks. Høyreklikk på "Kommentarer" -mappen i "Featuremanager-designtreet" og velg "Vis Dimension navn" for å gi enkel tilgang til bestemte dimensjoner.

2 Spill inn en makro. Gå til "View" -menyen og velg "Verktøylinjer" og deretter "Macro" for å vise Macro Toolbar. Klikk på "Record \ Pause makro" knappen på verktøylinjen.

3 Utfør kun handlingene som du ønsker å ta opp. Dobbeltklikk på hver dimensjon for å øke verdien av dimensjonene, for eksempel ved 0,5 inches. Klikk på "Gjenoppbygg" -knappen eller trykk "Ctrl + B" for å bygge sammenstillingen. Klikk på "Stop Macro" -knappen på Macro verktøylinjen for å stoppe makroen.

4 Skriv inn et navn på makroen, for eksempel "dimensjoner," i "File Name" -feltet i New Makro dialogboksen. Velg "SW VBA-makroer (* .swp)" i "Lagre som type" og klikk "Lagre".

5 Klikk på "Rediger makro" -knappen på Macro verktøylinjen, og velg den nye makroen. Koden bør inneholde noe som ligner på følgende:

Sub main ()

Sett Swapp = Create ( "SldWorks.Application")
Sett Part = swApp.ActiveDoc
Part.SelectByID "Shaft1 @ Sketch1 @ mygear-1 @ MyGearbox" ,.
Part.Parameter ( "Shaft1 @ Sketch1 @ mygear.Part"). SystemValue = 0,0254
Part.SelectByID "Shaft2 @ Sketch1 @ mygear2-1 @ MyGearbox" ,.
Part.Parameter ( "Shaft2 @ Sketch1 @ mygear2.Part"). SystemValue = 0,0254
Part.SelectByID "MyDia1 @ Sketch1 @ mygear-1 @ MyGearbox" ,.
Part.Parameter ( "MyDia1 @ Sketch1 @ mygear.Part"). SystemValue = 0,1016
Part.SelectByID "MyDia2 @ Sketch1 @ mygear2-1 @ MyGearbox",. Part.Parameter ( "MyDia2 @ Sketch1 @ mygear2.Part"). SystemValue = 0,0762
Part.EditRebuild
Part.ClearSelection
End Sub

6 Slett hver linje med kode som inneholder "SelectByID" metode for å optimalisere makro. Makro innspilt velge dimensjonen og endre sin verdi. Men for dette eksempelet, trenger du ikke denne koden, slik at det bare fører til unødvendig behandling. Den redigerte koden skal være lik følgende:

Sub main ()

Sett Swapp = Create ( "SldWorks.Application")
Sett Part = swApp.ActiveDoc
Part.Parameter ( "Shaft1 @ Sketch1 @ mygear.Part"). SystemValue = 0,0254
Part.Parameter ( "Shaft2 @ Sketch1 @ mygear2.Part"). SystemValue = 0,0254
Part.Parameter ( "MyDia1 @ Sketch1 @ mygear.Part"). SystemValue = 0,1016
Part.Parameter ( "MyDia2 @ Sketch1 @ mygear2.Part"). SystemValue = 0,0762
Part.EditRebuild
Part.ClearSelection
End Sub

7 Åpne et Excel-regneark og fylle ut celler for de verdiene du ønsker å kontrollere. Legg til en knapp i regnearket for å aktivere en makro inne Excel. Gå til "View" -menyen, velg "Verktøylinjer" og deretter "Control Toolbox". Velg "Command Button" og deretter i regnearket vindu der du vil sette inn kommandoknappen.

8 Gå til Solidworks og kopiere alle makrokoden mellom "Sub main ()" og "End Sub" linjer av innspilte makro.

9 Gå tilbake til Excel regneark og dobbeltklikk på den nye kommandoknappen eller høyre-klikk på knappen og velg "Vis kode." Lim inn koden du kopierte fra Solidworks over "End Sub" linje.

10 Endre koden som følger for å få tilgang til Excel-verdier.

Private Sub CommandButton1_Click ()
Sett Swapp = Create ( "SldWorks.Application")
Sett Part = swApp.ActiveDoc
Part.Parameter ( "Shaft1 @ Sketch1 @ mygear.Part"). SystemValue = Excel.Range ( "B1")

0,0254
Part.Parameter ( "MyDia1 @ Sketch1 @ mygear.Part"). SystemValue = Excel.Range ( "B2") 0,0254
Part.Parameter ( "Shaft2 @ Sketch1 @ mygear2.Part"). SystemValue = Excel.Range ( "B3") 0,0254
Part.Parameter ( "MyDia2 @ Sketch1 @ mygear2.Part"). SystemValue = Excel.Range ( "B4") 0,0254
Part.EditRebuild
Part.ClearSelection
End Sub

11 Kopier og lim inn Excel regneark i forsamlingen så en ekstern fil ikke styrer modell. Velg alle nødvendige celler og trykk "Ctrl + C" for å kopiere cellene. Gå tilbake til Solidworks montering og trykk "Ctrl + V" for å lime inn kopierte celler. Nå, enten nær eller slette Excel-filen. Regnearket er innebygd i enheten slik at du ikke trenger filen.

12 Dobbeltklikk på innebygde regnearket for å aktivere regnearket. Endre celleverdier og klikk regnearket kommandoknappen for å oppdatere forsamlingen. Klikk utenfor det innebygde regnearkvinduet for å deaktivere og gå tilbake til forsamlingen.