Come leggere di Excel in una macro SolidWorks

January 11

Come leggere di Excel in una macro SolidWorks


Lavorare in modo più efficiente in SolidWorks utilizzando la capacità di Excel di tenere più valori e definire le relazioni funzionali tra i valori. Parametri SolidWorks di controllo, come i valori di quota, con le utility di VBA di Excel. Ad esempio, è possibile creare un assembly con un foglio di calcolo di Excel incorporato che consente di controllare le dimensioni della parte. È possibile modificare i valori delle celle nel 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.

istruzione

1 Aprire un assieme in SolidWorks. Fai clic destro sulla cartella "Annotazioni" nel "disegno FeatureManager" e selezionare "Mostra nomi della quota" per fornire un facile accesso a 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 "Record \ Pausa macro" sulla barra degli strumenti.

3 Eseguire solo le azioni che si desidera registrare. Doppio clic su ogni dimensione di aumentare il valore delle dimensioni, ad esempio di 0,5 pollici. Fare clic sul pulsante "Rebuild" o premere "Ctrl + B" per ricostruire il montaggio. Fare clic sul pulsante "Stop Macro" sulla barra degli strumenti macro per interrompere la macro.

4 Digitare un nome per la macro, come ad esempio "dimensioni", nel campo "Nome del file" nella nuova finestra di dialogo macro. Selezionare "SW macro VBA (* .swp)" in "Salva come" e cliccare su "Salva".

5 Fare clic sul pulsante "Modifica Macro" nella barra degli strumenti di macro e selezionare la nuova macro. Il codice dovrebbe includere qualcosa di simile a quanto segue:

Sub main ()

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

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

Sub main ()

Set Swapp = CreateObject ( "SldWorks.Application")
Set Part = swApp.ActiveDoc
Part.Parameter ( "Shaft1 @ @ Schizzo1 mygear.Part"). SystemValue = 0,0254
Part.Parameter ( "Shaft2 @ @ Schizzo1 mygear2.Part"). SystemValue = 0,0254
Part.Parameter ( "MyDia1 @ @ Schizzo1 mygear.Part"). SystemValue = 0,1016
Part.Parameter ( "MyDia2 @ @ Schizzo1 mygear2.Part"). SystemValue = 0,0762
Part.EditRebuild
Part.ClearSelection
End 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 poi cliccare su "Strumenti di controllo". Selezionare l'opzione "pulsante di comando" e quindi fare clic nella finestra di foglio di calcolo in cui si desidera inserire il pulsante di comando.

8 Vai a SolidWorks e copiare tutto il codice di macro tra i "Sub Main ()" e "End Sub" linee di la macro registrata.

9 Tornare al foglio di calcolo Excel e fare doppio clic sul nuovo pulsante di comando o il tasto destro del mouse 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 ai valori di Excel.

Private Sub CommandButton1_Click ()
Set Swapp = CreateObject ( "SldWorks.Application")
Set Part = swApp.ActiveDoc
Part.Parameter ( "Shaft1 @ @ Schizzo1 mygear.Part"). SystemValue = Excel.Range ( "B1")

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

11 Copia e incolla il foglio di calcolo di Excel nel gruppo in modo da un file esterno non controlla il modello. Selezionare tutte le celle richieste e premere "Ctrl + C" per copiare le celle. Rientro in SolidWorks di montaggio e premere "Ctrl + V" per incollare le celle copiate. Ora, chiudere o cancellare il file di Excel. Il foglio di calcolo è incorporato nel gruppo in modo che non è necessario il file.

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