Open een vergadering in SolidWorks . Rechtermuisknop op de map " Annotaties " in de " FeatureManager design tree " en selecteer " Toon Dimension Namen " te gemakkelijk toegang tot specifieke afmetingen leveren .

Record 2 een macro . Ga naar het menu " View " en selecteer " Werkbalken " en vervolgens " Macro " om de macro -werkbalk weer te geven . Klik op de "Record \\ Pauze Macro" knop op de werkbalk .
3

Voer alleen de acties die u wilt opnemen . Dubbelklik op elke dimensie toe aan de waarde van de dimensies , bijvoorbeeld stijgen met 0,5 centimeter . Klik op de " Rebuild " knop of druk "Ctrl + B " om de assemblage te herbouwen . Klik op de "Stop Macro " knop op de werkbalk Macro om de macro te stoppen .
4

Typ een naam voor de macro , zoals " afmetingen " in het veld " File Name " in het Nieuwe Macro dialoogvenster . Selecteer " SW VBA macro's ( * . SWP ) " in " Opslaan als type " en klik op "Opslaan . "
5

Klik op de "Edit Macro ' knop op de werkbalk Macro en selecteer uw nieuwe macro .

Sub main
( ) op

Stel Swapp = CreateObject ( " SldWorks.Application " ) Set Part = swApp.ActiveDocPart.SelectByID : de code moet iets als het volgende omvatten = 0.0254Part.SelectByID = 0.0254Part.SelectByID = 0.1016Part.SelectByID " MyDia2 @ Sketch1 @ mygear2 - 1 @ MyGearbox " , . Part.Parameter ( " MyDia2 @ [email protected] " ) . SystemValue = 0.0762Part.EditRebuildPart.ClearSelectionEnd Sub
6

Verwijder elke regel code die de " SelectByID " methode omvat uw optimaliseren macro . De macro opgenomen de afmeting te selecteren en de waarde veranderen . Maar voor dit voorbeeld , je hoeft niet die code nodig , dus het veroorzaakt alleen maar onnodige verwerking .

Sub main
( )

Set Swapp = CreateObject
( " SldWorks.Application " ) Set Part = swApp.ActiveDocPart.Parameter ( " Shaft1 : de bewerkte code moet er ongeveer zo uit komen te @ [email protected] " ) . SystemValue = 0.0254Part.Parameter ( " Shaft2 @ [email protected] " ) . SystemValue = 0.0254Part.Parameter ( " MyDia1 @ [email protected] " ) . SystemValue = 0,1016 Part.Parameter ( " MyDia2 @ [email protected] " ) . SystemValue = 0.0762Part.EditRebuildPart.ClearSelectionEnd Sub
7

Open een Excel- spreadsheet en invullen van cellen voor de waarden die u wilt bedienen . Voeg een knop om de spreadsheet om een ​​macro in Excel activeren . Ga naar het menu " View " , selecteer " Werkbalken " en vervolgens op "Control Toolbox . " Selecteer de " Command Button " optie en klik vervolgens in het venster werkblad waar u de opdrachtknop wilt invoegen.
8

Ga naar SolidWorks en kopieer alle macro code tussen de " Sub main ( ) " en " End Sub " lijnen van uw opgenomen macro .
9

Terug naar het Excel-spreadsheet en dubbelklik op de nieuwe opdracht knop of klik met de rechtermuisknop op de knop en selecteer " View code . " Plak de code die u hebt gekopieerd uit SolidWorks boven de " End Sub " lijn .
10

Wijzig de code als volgt te openen de Excel- waarden .

Private Sub CommandButton1_Click
( ) Set Swapp = CreateObject ( " SldWorks.Application " ) Set Part = swApp.ActiveDocPart.Parameter ( " Shaft1 @ [email protected] " ) . SystemValue = Excel.Range ( " B1 " ) * 0.0254Part.Parameter ( " MyDia1 @ [email protected] " ) . SystemValue = Excel.Range ( " B2 " ) * 0.0254Part.Parameter ( " Shaft2 @ Sketch1 @ mygear2.Part " ) . SystemValue = Excel.Range ( " B3 " ) * 0.0254Part.Parameter ( " MyDia2 @ [email protected] " ) . SystemValue = Excel.Range ( " B4 " ) * 0.0254Part . EditRebuildPart.ClearSelectionEnd Sub

Copy 11 en plak het Excel-werkblad in de montage , zodat een extern bestand wordt niet beheersen het model . Selecteer alle gewenste cellen en druk op " Ctrl + C " om de cellen te kopiëren . Terug naar de SolidWorks assemblage en druk " Ctrl + V " om de gekopieerde cellen plakken . Nu , ofwel sluit of het Excel- bestand te verwijderen . De spreadsheet is ingebed in de assemblage , zodat je niet het bestand nodig .
12

Dubbelklik op het ingesloten werkblad om de spreadsheet te activeren . Wijzig de cel waarden en klik op de spreadsheet opdracht knop aan de assemblage werken . Klik buiten het ingesloten werkblad venster om te schakelen en terug te keren naar de montage .