Kako brati Excel v makro SolidWorks

Avtor: Florence Bailey
Datum Ustvarjanja: 23 Pohod 2021
Datum Posodobitve: 27 Junij 2024
Anonim
Kako brati Excel v makro SolidWorks - Članki
Kako brati Excel v makro SolidWorks - Članki

Vsebina

Učinkovitejše delo v SolidWorksu z uporabo programa Excel za shranjevanje več vrednosti in definiranje funkcionalnih odnosov med njimi. Krmiljenje parametrov SolidWorks, kot so vrednosti dimenzij, s pripomočki Excel VBA. Na primer, ustvarite lahko sklop z vdelano Excelovo preglednico, ki vam omogoča nadzor dimenzij dela. Vrednosti celic v vdelanem delovnem listu lahko spremenite in nato kliknete ukazni gumb, da zaženete makro, ki posodablja sklop. Raziščite številne možnosti za uporabo formul in funkcij programa Excel s makri SolidWorks.


Navodila

SolidWorks je vrsta računalniško vodenega 3D risalnega programa (Stockbyte / Stockbyte / Getty Images)

  1. Odprite namestitev v SolidWorks. Z desno miškino tipko kliknite mapo »Opombe« v drevesu projekta »FeatureManager« in izberite »Pokaži imena dimenzij«, da omogočite enostaven dostop do določenih dimenzij.

  2. Posnemite makro. Pojdite v meni »Pogled« in izberite »Orodne vrstice« in »Makro«, da prikažete orodno vrstico »Makro«. V orodni vrstici kliknite gumb "Zapiši makro za snemanje".

  3. Izvedite le tista dejanja, ki jih želite posneti. Dvokliknite vsako dimenzijo, da povečate njeno dimenzijo, na primer 1,2 cm. Kliknite gumb "Obnovi" ali pritisnite "Ctrl + B", da znova zgradite sklop. Kliknite gumb »Ustavi makro« na orodni vrstici, da ga zaustavite.


  4. V polje »Ime datoteke« v pogovornem oknu »Novi makro« vnesite ime za makro, na primer »dimenzije«. Izberite »SW VBA Makri (* .swp)« v »Shrani kot tip "in kliknite" Shrani ".

  5. V orodni vrstici kliknite gumb »Uredi makro« in izberite novo. Koda mora vsebovati nekaj podobnega:

    Sub main ()

    Nastavi swApp = CreateObject ("SldWorks.Application") Nastavi del = 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. Izbrišite vsako vrstico kode, ki vključuje metodo "SelectByID", da izboljšate makro. Makro, zabeležen z izbiro dimenzije in spreminjanjem vrednosti. Toda za ta primer te kode ne potrebujete, saj je obdelava nepotrebna. Urejena koda mora biti podobna naslednjim:

    Sub main ()

    Nastavi swApp = CreateObject ("SldWorks.Application") Nastavite del = swApp.ActiveDoc Part.Parameter ("Shaft1 @ Sketch1 @ mygear.Part"). SystemValue = 0.0254 Part.Parameter ("MyDia1 @ Sketch1 @ mygear.Part") SystemValue = 0.1016 Part.Parameter ("MyDia2 @ Sketch1 @ mygear2.Part") SystemValue = 0.0762 Part.EditRebuild

  7. Odprite Excelov delovni list in izpolnite celice za vrednosti, ki jih želite nadzirati. Dodajte gumb na delovnem listu, da aktivirate makro v Excelu. Pojdite v meni "Pogled", izberite "Orodne vrstice" in kliknite "Nadzorna orodna vrstica". Izberite možnost »Ukazni gumb« in nato kliknite okno delovnega lista, kamor želite vstaviti ukazni gumb.

  8. Pojdite na SolidWorks in kopirajte vso makro kodo med vrstice "Sub Main ()" in "End Sub" posnetega makra.

  9. Vrnite se v Excelovo preglednico in dvokliknite novi ukazni gumb ali z desno tipko miške kliknite in izberite "Prikaži kodo." Kopirano kodo SolidWorks prilepite v vrstico "End Sub".

  10. Spremenite naslednjo kodo za dostop do vrednosti v Excelu.

    Private Sub CommandButton1_Click () Set swApp = CreateObject ("SldWorks.Application") Nastavi del = swApp.ActiveDoc Part.Parameter ("Shaft1 @ Sketch1 @ mygear.Part") SystemValue = Excel.Range ("B1") * 0.0254 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 Del.EditRebuild Part.ClearSelection End Sub

  11. Kopirajte in prilepite delovni list programa Excel v sklop, tako da zunanja datoteka ne nadzoruje predloge. Izberite vse zahtevane celice in pritisnite "Ctrl + C", da jih kopirate. Vrnite se na sklop SolidWorks in pritisnite "Ctrl + V", da prilepite kopirane celice. Zdaj zaprite ali izbrišite datoteko Excel. Preglednica je vgrajena v sklop, zato datoteke ne potrebujete.

  12. Dvokliknite vdelano preglednico, da jo aktivirate. Spremenite vrednosti celic in kliknite ukazni gumb na delovnem listu, da posodobite sklop. Kliknite zunaj okna vdelanega delovnega lista, da ga deaktivirate in se vrnete v sklop.