Cómo leer Excel en una macro de SolidWorks

SolidWorks es un tipo de software de diseño asistido por ordenador en 3D. 

SOLIDWORKS

Trabaje más eficientemente en SolidWorks utilizando la capacidad Sobresale 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.

Abra un ensamblaje de SolidWorks. Haga clic en la carpeta Anotaciones en el gestor de diseño del FeatureManager y seleccione Mostrar nombres de dimensión para facilitar el acceso a las dimensiones específicas.

Grabar una macro. Vaya al menú Ver y seleccione Barras de herramientas y, a continuación Macro para mostrar la barra de herramientas Macro. Haga clic en el botón \ Macro pausa de grabación en la barra de herramientas.

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 Reconstruir o presione Ctrl + B para reconstruir la asamblea. Haga clic en el botón Macro Detener en la barra de herramientas Macro para detener la macro.

Escriba un nombre para la macro, como las dimensiones, en el campo Nombre de archivo del cuadro de diálogo Nueva macro. Seleccione SW VBA Macros (*. SWP) en Guardar como tipo y haga clic en Guardar.

Haga clic en el botón Editar en la barra de herramientas Macro Macro y seleccione su nueva macro. El código debe incluir algo similar a la siguiente:

Sub main ()

Set Swapp = CreateObject (SldWorks.Application) Set Parte = 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

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 editado debe ser similar a la siguiente:

Sub main ()

Set Swapp = CreateObject (SldWorks.Application) Set Parte = swApp.ActiveDoc Part.Parameter (Shaft1 @ Sketch1@mygear.Part). SystemValue = 0.0254 Part.Parameter (SHAFT2 @ Sketch1@mygear2.Part). SystemValue = 0.0254 Part.Parameter (MyDia1 @ Sketch1@mygear.Part). SystemValue = 0.1016 Part.Parameter (MyDia2 @ Sketch1@mygear2.Part). SystemValue = 0.0762 Part.EditRebuild Part.ClearSelection End Sub

Abra una hoja de cálculo 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. Ir al menú Ver, seleccione Barras de herramientas y haga clic en Cuadro de controles. Seleccione la opción de botón de comando y, a continuación, haga clic en la ventana de la hoja de cálculo en la que desea insertar el botón de comando.

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

Vuelva a la hoja de cálculo de Excel y haga doble clic en el nuevo botón de comando o haga clic en el botón y seleccione Ver código. Pega el código copiado de SolidWorks encima de la línea End Sub.

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 = Part.Parameter swApp.ActiveDoc (Shaft1 @ Sketch1@mygear.Part). SystemValue = Excel.Range (B1) * 0.0254 Part.Parameter (MyDia1 @ Sketch1 @ mygear.Part). 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 Part.EditRebuild Part.ClearSelection End Sub

Copie y pegue la hoja de cálculo de Excel en el montaje para un archivo externo no está controlando el 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.

Haga 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.