Come leggere Excel in SolidWorks Macro

Lavorare in modo più efficiente in SolidWorks , utilizzando la capacità di Excel per contenere più valori e definire le relazioni funzionali tra i valori. Parametri di SolidWorks di controllo, come i valori di quota , con VBA utilità di Excel . Ad esempio, è possibile creare un assembly con un foglio di calcolo di Excel incorporato che consente di controllare le dimensioni del pezzo. È possibile modificare i valori delle celle del foglio di calcolo incorporato e quindi fare clic su un pulsante di comando per eseguire una macro che aggiorna l'assemblea . Esplorare le molte opzioni per l'utilizzo di formule e funzioni di Excel con macro SolidWorks . Istruzioni
1

Aprire un assieme in SolidWorks . Fai clic destro sulla cartella " Annotazioni " del " disegno FeatureManager " e selezionare "Mostra Nomi della quota " per fornire un facile accesso alle dimensioni specifiche .
2

registrare una macro . Vai al menu "Visualizza" e selezionare " Barre degli strumenti" e poi " Macro " per visualizzare la barra degli strumenti Macro . Fare clic sul pulsante "Registra \\ Pausa macro " sulla barra degli strumenti .
3

eseguire solo le azioni che si desidera registrare . Fare doppio clic su ciascuna dimensione per aumentare il valore delle dimensioni , per esempio da 0,5 pollici . Fare clic sul pulsante "Rebuild " o premere "Ctrl + B " per ricostruire l'assieme . Fare clic sul pulsante "Stop Macro " sulla barra degli strumenti Macro di fermare la macro .

4 Digitare un nome per la macro , quali "dimensioni ", nel campo " Nome file " nel nuovo Macro finestra di dialogo. Selezionare "SW macro VBA ( * . SWP) " in " Salva come" e cliccare su " Salva ".
5

Fare clic sul pulsante " Edit Macro " sulla barra degli strumenti Macro e selezionare la nuova macro . Il codice dovrebbe includere qualcosa di simile al seguente :

Sub main ( ) per

Swapp = CreateObject ( " SldWorks.Application " ) Set Part = swApp.ActiveDocPart.SelectByID = 0.0254Part.SelectByID = 0.0254Part.SelectByID = 0.1016Part.SelectByID " MyDia2 @ @ Schizzo1 mygear2 - 1 @ MyGearbox " . Part.Parameter ( " MyDia2 @ [email protected] " ) . SystemValue = 0.0762Part.EditRebuildPart.ClearSelectionEnd Sub
6

Eliminare ogni riga di codice che include il metodo " SelectByID " per ottimizzare la vostra macro . La macro registrata selezionando la dimensione e cambiando il suo valore . Ma per questo , ad esempio, non è necessario che il codice, in modo che provoca solo trattamento non necessario . Il codice modificato dovrebbe essere simile al seguente :

Sub main ( ) per

Swapp = CreateObject ( " SldWorks.Application " ) Set Part = swApp.ActiveDocPart.Parameter ( " ALBERO1 @ [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

Aprire un foglio di calcolo Excel e compilare le celle per i valori che si desidera controllare . Aggiungere un pulsante per il foglio di calcolo per attivare una macro all'interno di Excel . Vai al menu "Visualizza" , selezionare " Barre degli strumenti" e quindi su " Strumenti di controllo ". Selezionare l' opzione "Command Button " e quindi fare clic nella finestra del foglio di calcolo in cui si desidera inserire il pulsante di comando .
8

Vai SolidWorks e copiare tutto il codice della macro tra il "Sub main () " e "End Sub " linee della macro registrata.
9

Torna al foglio di calcolo di Excel e fare doppio clic il nuovo pulsante di comando o fare clic sul pulsante e selezionare " Visualizza codice ". Incollare il codice copiato da SolidWorks sopra la linea "End Sub " .
10

Modificare il codice come segue per accedere i valori di Excel .

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

Copia e incolla il foglio di calcolo di Excel nel gruppo in modo da un file esterno non è il controllo del modello. Selezionare tutte le celle desiderate e premere "Ctrl + C " per copiare le celle . Rientro in SolidWorks montaggio e premere il tasto " Ctrl + V " per incollare le celle copiate . Ora, o chiudere o eliminare il file di Excel . Il foglio di calcolo è integrato nel gruppo in modo che non è necessario il file .
12

doppio clic sul foglio di calcolo incorporato per attivare il foglio di calcolo. Modificare i valori delle celle e fare clic sul pulsante di comando per aggiornare il foglio di montaggio. Fare clic al di fuori della finestra foglio di calcolo incorporato per disattivare e tornare all'assieme .