Sådan læses Excel i en SolidWorks-makro

Forfatter: Mark Sanchez
Oprettelsesdato: 8 Januar 2021
Opdateringsdato: 22 November 2024
Anonim
Sådan læses Excel i en SolidWorks-makro - Artikler
Sådan læses Excel i en SolidWorks-makro - Artikler

Indhold

Arbejde mere effektivt i SolidWorks ved at bruge Excels evne til at gemme flere værdier og definere funktionelle relationer mellem dem. Styr SolidWorks-parametre, f.eks. Dimensionsværdier, med Excel VBA-værktøjer. Du kan f.eks. Oprette en samling med et integreret Excel-regneark, der lader dig styre dimensionerne af en del. Du kan ændre celleværdierne i det integrerede regneark, og derefter klikke på en kommandoknap for at køre en makro, der opdaterer samlingen. Udforsk mange muligheder for at bruge Excel-formler og funktioner med SolidWorks-makroer.


retninger

SolidWorks er en type computerstyret 3D tegneprogram (Stockbyte / Stockbyte / Getty Images)

  1. Åbn en mount i SolidWorks. Højreklik på mappen "Annotations" i "FeatureManager" -projektræet og vælg "Vis dimensionens navne" for at give nem adgang til bestemte dimensioner.

  2. Optag en makro. Gå til menuen "Vis" og vælg "Værktøjslinjer" og "Makro" for at få vist makroværktøjslinjen. Klik på knappen "Record Pause Macro" på værktøjslinjen.

  3. Udfør kun de handlinger, du vil optage. Dobbeltklik på hver dimension for at øge dens dimension, for eksempel 1,2 cm. Klik på knappen "Rebuild" eller tryk på "Ctrl + B" for at genopbygge samlingen. Klik på knappen "Stop makro" på værktøjslinjen for at stoppe den.


  4. Indtast et navn for makroen, f.eks. "Dimensioner" i feltet "Filnavn" i dialogboksen "Ny makro". Vælg "SW VBA-makroer (* .swp)" i "Gem" som type "og klik på" Gem ".

  5. Klik på knappen "Rediger makro" på værktøjslinjen, og vælg en ny. Koden skal indeholde noget, der minder om følgende:

    Sub main ()

    Indstil swApp = CreateObject ("SldWorks.Application") Indstil del = swApp.ActiveDoc Del.SelectByID "Shaft1 @ Sketch1 @ mygear-1 @ MyGearbox". Part.Parameter ("Shaft1 @ Sketch1 @ mygear.Part"). SystemValue = 0.0254 Del.SelectByID "Shaft2 @ Sketch1 @ mygear2-1 @ MyGearbox",. Del.Parameter ("Shaft2 @ Sketch1 @ mygear2.Part"). SystemValue = 0.0254 Del.SelectByID "MyDia1 @ Sketch1 @ mygear-1 @ MyGearbox". Part.Parameter ("MyDia1 @ Sketch1 @ mygear.Part"). SystemValue = 0.1016 Del.SelectByID "MyDia2 @ Sketch1 @ mygear2-1 @ MyGearbox" ,. Part.Parameter ("MyDia2 @ Sketch1 @ mygear2.Part"). SystemValue = 0.0762 Del.EditRebuild Part.ClearSelection End Sub


  6. Slet hver linje af kode, der indeholder "SelectByID" -metoden for at forbedre makroen. Makroen registreres ved at vælge dimensionen og ændre værdien. Men for dette eksempel behøver du ikke denne kode, da det kun gør behandling unødvendig. Den redigerede kode skal ligne følgende:

    Sub main ()

    Indstil swApp = CreateObject ("SldWorks.Application") Indstil del = swApp.ActiveDoc Part.Parameter ("Shaft1 @ Sketch1 @ mygear.Part"). SystemValue = 0.0254 Del.Parameter ("Shaft2 @ Sketch1 @ mygear2.Part"). SystemValue = 0.0254 Del.Parameter ("MyDia1 @ Sketch1 @ mygear.Part"). SystemValue = 0.1016 Del.Parameter ("MyDia2 @ Sketch1 @ mygear2.Part") SystemValue = 0.0762 Del.EditRebuild Del.KlearSelection End Sub

  7. Åbn et Excel-regneark, og udfyld cellerne for de værdier, du vil kontrollere. Tilføj en knap på regnearket for at aktivere en makro inden for Excel. Gå til menuen "View", vælg "Toolbars" og klik på "Control Toolbox". Vælg "Kommandoknap" -alternativet, og klik derefter på regnearkvinduet, hvor du vil indsætte kommandoknappen.

  8. Gå til SolidWorks og kopier alle makrokoder mellem "Sub Main ()" og "End Sub" linjerne i den optagne makro.

  9. Gå tilbage til Excel-regnearket og dobbeltklik på den nye kommandoknap eller højreklik og vælg "View Code." Indsæt den kopierede SolidWorks-kode på linjen "Slut Sub".

  10. Ændr følgende kode for at få adgang til værdierne i Excel.

    Private Sub CommandButton1_Click () Indstil swApp = CreateObject ("SldWorks.Application") Indstil del = swApp.ActiveDoc Part.Parameter ("Shaft1 @ Sketch1 @ mygear.Part") SystemValue = Excel.Range ("B1") * 0,0254 Del SystemValue = Excel.Range ("B2") * 0,0254 Del.Parameter ("Shaft2 @ Sketch1 @ mygear2.Part"). SystemValue = Excel.Range ("B3" ) * 0,0254 Del.Parameter ("MyDia2 @ Sketch1 @ mygear2.Part"). SystemValue = Excel.Range ("B4") * 0,0254 Del.EditRebuild Part.ClearSelection End Sub

  11. Kopier og indsæt Excel-regnearket i samlingen, så en ekstern fil ikke styrer skabelonen. Vælg alle nødvendige celler og tryk på "Ctrl + C" for at kopiere dem alle. Gå tilbage til SolidWorks samling og tryk på "Ctrl + V" for at indsætte de kopierede celler. Luk eller slet Excel-filen. Regnearket er indbygget i samlingen, så du behøver ikke filen.

  12. Dobbeltklik på det indlejrede regneark for at aktivere det. Skift værdierne for cellerne og klik på kommandoknappen på regnearket for at opdatere samlingen. Klik uden for det indlejrede regnearkvindue for at deaktivere og vende tilbage til samlingen.