Excel表格驱动Solidworks模型参数化

一、用SolidWorks建立模型。为方便后续对应数值，可以在参数化之前修改好尺寸的名称。

二、新建Excel表，另存为启用宏的工作薄格式。

三、建立如下表格，并通过Excel的开发工具添加按钮。

四、编辑按钮的程序。

五、代码如下，欢迎复 制体验。

Private Sub CommandButton1_Click()

Set swApp = CreateObject("SldWorks.Application")

Set Part = swApp.ActiveDoc

Part.Parameter("长@草图1").SystemValue = Val(Range("B2").Value) / 1000

Part.Parameter("厚度@凸台-拉伸1").SystemValue = Val(Range("B3").Value) / 1000

Part.Parameter("宽@草图1").SystemValue = Val(Range("B4").Value) / 1000

Part.Parameter("直径@草图1").SystemValue = Val(Range("B5").Value) / 1000

Part.EditRebuild

End Sub