Cómo leer Excel en una SolidWorks Macro

Trabaje más eficientemente en SolidWorks mediante la utilización de la capacidad de Excel para contener varios valores y definir las relaciones funcionales entre los valores . Parámetros de control de SolidWorks , como valores de dimensión , con VBA utilidades de Excel . Por ejemplo , puede crear un conjunto con una hoja de cálculo de Excel incrustado que le permite controlar dimensiones de la pieza . Puede cambiar los valores de las celdas de la hoja de cálculo incrustada y haga clic en un botón de comando para ejecutar una macro que actualiza la asamblea. Explora las muchas opciones para el uso de fórmulas y funciones de Excel con SolidWorks macro. Instrucciones
1

Abra un ensamblaje de SolidWorks . Haga clic en la carpeta " Anotaciones " en el " gestor de diseño " y seleccione "Mostrar los nombres Dimension " para facilitar el acceso a las dimensiones específicas.
2

Grabar una macro. Vaya al menú "Ver" y seleccione " Barras de herramientas" y luego en " Macro " para mostrar la barra de herramientas Macro . Haga clic en el botón "Grabar \\ Pausa Macro " en la barra de herramientas .
3

Realizar sólo las acciones que desea grabar. Doble clic en cada dimensión para aumentar el valor de las dimensiones , por ejemplo, por 0,5 pulgadas . Haga clic en el botón o presione "Ctrl + B" para reconstruir el conjunto de " Rebuild" . Haga clic en el botón " Macro Stop" en la barra de herramientas Macro para detener la macro.

4 Escriba un nombre para la macro , como las " dimensiones ", en el campo " Nombre de archivo" en la nueva macro cuadro de diálogo. Seleccione "SW VBA macros (*. Swp ) " en " Guardar como tipo" y haga clic en " Guardar".
5

clic en el botón "Edit Macro " en la barra de herramientas de macros y seleccione su nueva macro. El código debería incluir algo similar a lo siguiente :

Sub main ()

Establecer Swapp = CreateObject ( " SldWorks.Application ") Set Parte = swApp.ActiveDocPart.SelectByID = 0.0254Part.SelectByID = 0.0254Part.SelectByID = 0.1016Part.SelectByID " MyDia2 @ Sketch1 @ mygear2 - 1 @ MyGearbox " . Part.Parameter ( " MyDia2 @ Sketch1@mygear2.Part ") . SystemValue = 0.0762Part.EditRebuildPart.ClearSelectionEnd Sub
6

Eliminar cada línea de código que incluye el método " SelectByID " para optimizar su macro. La macro grabada seleccionar la dimensión y cambiar su valor. Sin embargo, para este ejemplo, no es necesario que el código , por lo que sólo provoca el procesamiento innecesario. El código de edición debe ser similar a lo siguiente:

Sub main ()

Set Swapp = CreateObject ( " SldWorks.Application ") Set Parte = swApp.ActiveDocPart.Parameter ( " Shaft1 @ Sketch1@mygear.Part ") . SystemValue = 0.0254Part.Parameter ( " SHAFT2 @ Sketch1@mygear2.Part ") . SystemValue = 0.0254Part.Parameter ( " MyDia1 @ Sketch1@mygear.Part ") . SystemValue = 0.1016 Part.Parameter ( " MyDia2 @ Sketch1@mygear2.Part ") . SystemValue = 0.0762Part.EditRebuildPart.ClearSelectionEnd Sub
7

Abrir una hoja de cálculo de Excel y rellenar celdas para los valores que desea controlar . Agregar un botón a la hoja de cálculo para activar una macro dentro de Excel . Vaya al menú "Ver" , seleccione "Barras de herramientas " y luego haga clic en " Cuadro de controles ". Seleccione la opción " Botón de comando " y luego haga clic en la ventana de la hoja de cálculo en la que desea insertar el botón de comando.
8

Ir a SolidWorks y copiar todo el código de macro entre la "Sub main () " y "End Sub " líneas de la macro grabada.
9

Regresar a la hoja de cálculo de Excel y haga doble clic el nuevo botón de comando o haga clic en el botón y seleccione " Ver código. " Pegue el código que copió de SolidWorks por encima de la "Sub End" de línea.
10

Modificar el código de la siguiente manera para acceder a los valores de Excel .

Private Sub CommandButton1_Click () Set Swapp = CreateObject ( " SldWorks.Application ") Set Parte = swApp.ActiveDocPart.Parameter ( " Shaft1 @ Sketch1@mygear.Part ") . SystemValue = Excel.Range ( "B1 ") * 0.0254Part.Parameter ( " MyDia1 @ Sketch1@mygear.Part ") . SystemValue = Excel.Range ( "B2 ") * 0.0254Part.Parameter ( " SHAFT2 @ Sketch1 @ mygear2.Part ") . SystemValue = Excel.Range ( " B3 ") * 0.0254Part.Parameter ( " MyDia2 @ Sketch1@mygear2.Part ") . SystemValue = Excel.Range ( " B4 ") * 0.0254Part . EditRebuildPart.ClearSelectionEnd Sub
11

Copia y pega la hoja de cálculo de Excel en el montaje para un archivo externo no esté bajo control del modelo. Seleccione todas las celdas que desee y pulse "Ctrl + C " para copiar las celdas. Regreso al ensamblaje de SolidWorks y pulse "Ctrl + V " para pegar las celdas copiadas . Ahora, cerrar o borrar el archivo de Excel. La hoja de cálculo está integrada en el conjunto de lo que no es necesario el archivo.
12

doble clic en la hoja de cálculo incrustada para activar la hoja de cálculo . Cambie los valores de las celdas y haga clic en el botón de comando de hoja de cálculo para actualizar la asamblea. Haga clic fuera de la ventana de hoja de cálculo incrustada para desactivar y volver a la asamblea.