Excel驱动SolidWorks模型修改+自动导出

1. 概述

核心功能：本脚本通过Excel表格中的数据，批量、自动修改SolidWorks零件的特定尺寸，并导出为指定名称和格式的模型文件。

（这个脚本在多个仿真项目中被复用，愈发觉得熟悉二次开发后自己制作一些脚本可以省不少时间，现整理到公众号上方便同行参考学习。）

• • 提高效率：将重复性的模型修改、重命名、保存工作自动化，尤其适用于生成批量模型。
• • 保证一致性：通过程序化操作，避免人工修改时可能出现的错误。
• • 简化流程：用户只需在Excel表格中填写参数，运行脚本即可获得所有模型文件，无需在SolidWorks中进行交互操作。

2. 脚本逻辑与工作流程

下图展示了脚本运行的完整流程：

   Excel首先读取Sheet中存储的数据，然后操作Solidworks对指定的尺寸进行修改，然后另存到指定的路径下。通过循环执行实现批量模型的导出。

3. 环境配置与前置条件

在运行脚本前，请确保满足以下所有条件：

1. 1. 软件环境：
• • 电脑上已安装 Excel 并启用宏。
• • 电脑上已安装 SolidWorks 且版本与API兼容。
• • SolidWorks的API库已正确引用（详见SolidWorks二次开发 I：基于VB）。
2. 2. 文件准备：

• • SolidWorks模板模型：准备好一个驱动尺寸清晰、特征定义完整的SolidWorks零件文件（.SLDPRT），作为参数化修改的“基体”。
•    脚本会修改其中的特定尺寸（代码中指定）并将修改结果进行另存。
• 

• • Excel参数表：创建一个Excel文件，在第一行设置标题，并从A2、B2、C2单元格开始，逐行填入希望修改的三组参数值。
• 
1. 3. 信息确认：
• • 确认模板模型中需要修改的尺寸的完整名称（格式如：D1@Sketch1）。可以在SolidWorks中双击尺寸，在左侧属性管理器查看其全名。
•    方便后续填入到代码当中，作为被修改的对象。
• 

4. 代码详解与使用步骤

首先，我们来介绍一下脚本是如何被使用的，文末会介绍代码中的具体含义（感兴趣也可以自行将代码喂给AI进行解读）

步骤一：在Excel中配置VBA环境

1. 1. 打开Excel参数表文件。
2. 2. 按下 Alt + F11 打开VBA编辑器。
3. 3. 在左侧“工程资源管理器”窗口中，右键点击工作簿名称，选择 插入 -> 模块。这将在项目中添加一个新的标准模块（通常命名为模块1）。

1. 4. 在模块的代码窗口中，粘贴以下完整代码。

步骤二：完整VBA代码（共包含一个Sub\一个Function，需根据实际情况修改）

Option Explicit‘ 本脚本用于批量修改SolidWorks模型尺寸并自动保存Sub Creating_Modeling()    '声明变量    Dim ws As Worksheet    Dim row_count As Long, row_index As Long    Dim bool As Boolean    '指定参数所在的工作表（这里设为第一个工作表）    Set ws = ThisWorkbook.Worksheets(1)    '动态获取A列最后一行有数据的行号    row_count = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row    '从第2行开始循环（第1行假定为标题行）    For row_index = 2 To row_count        '调用核心函数，传入当前行的三个参数        '参数顺序对应A、B、C列        bool = Setting_model(ws.Range("A" & row_index).Value2, _            ws.Range("B" & row_index).Value2, _            ws.Range("C" & row_index).Value2)    Next row_index    MsgBox "所有模型已生成完毕！", vbInformationEnd Sub

Function Setting_model(ARG1 As Double, ARG2 As Double, ARG3 As Double) As Boolean    '声明SolidWorks API核心对象    Dim swApp As SldWorks.SldWorks    Dim swModel As SldWorks.ModelDoc2    Dim swDimension_D1 As SldWorks.Dimension    Dim swDimension_D2 As SldWorks.Dimension    Dim swDimension_D3 As SldWorks.Dimension    Dim SAVE_Filename As String    Dim TemplatePath As String    Dim SaveFolder As String    On Error GoTo ErrorHandler '错误处理    '============ 【**重点修改区域 START**】============    '1. 指定SolidWorks基座模板文件路径    TemplatePath = "C:\Users\Name\Desktop\Template_Model.SLDPRT"    '2. 指定生成文件的保存目录    SaveFolder = "C:\Users\Name\Desktop\Model_Output\"    '3. 确认模板中尺寸的名称（须完全匹配）    Dim D1_Name As String: D1_Name = "D1@Sketch2" '对应参数 ARG1    Dim D2_Name As String: D2_Name = "D2@Sketch2" '对应参数 ARG2    Dim D3_Name As String: D3_Name = "D3@Sketch2" '对应参数 ARG3    '============ 【**重点修改区域 END**】============    '连接到正在运行的SolidWorks实例    Set swApp = GetObject(, "SldWorks.Application")    '以"只读"模式打开模板文件，避免意外更改原文件    Set swModel = swApp.OpenDoc(TemplatePath, 1) '1 代表零件文档    '获取模型中指定的尺寸对象    Set swDimension_D1 = swModel.Parameter(D1_Name)    Set swDimension_D2 = swModel.Parameter(D2_Name)    Set swDimension_D3 = swModel.Parameter(D3_Name)    '将Excel传入的参数值赋予对应尺寸    swDimension_D1.Value = ARG1    swDimension_D2.Value = ARG2    swDimension_D3.Value = ARG3    '强制模型根据新尺寸重新计算（重建）    swModel.ForceRebuild3 (True)    '构造新文件名，格式示例：BackBlade_Q2_10_20_5.xxx    Dim BaseName As String    BaseName = "BackBlade_" & "Q2_" & ARG1 & "_" & ARG2 & "_" & ARG3    '保存为.x_t（Parasolid）通用格式    SAVE_Filename = SaveFolder & BaseName & ".x_t"    swModel.SaveAs SAVE_Filename    '保存为.sldprt（SolidWorks原生）格式    SAVE_Filename = SaveFolder & BaseName & ".sldprt"    swModel.SaveAs SAVE_Filename    '关闭当前文档，不保存对原始模板的更改    swApp.CloseAllDocuments False    Setting_model = True '函数执行成功    Exit FunctionErrorHandler:    MsgBox "运行过程中发生错误，请检查：" & vbCrLf & _           "1. SolidWorks是否已启动。" & vbCrLf & _           "2. 文件路径和尺寸名称是否正确。" & vbCrLf & _           "错误号：" & Err.Number & "， 描述：" & Err.Description, vbCritical    Setting_model = FalseEnd Function

步骤三：修改点说明

须修改代码中 【**重点修改区域**】 标记的部分：

1. 1. TemplatePath：将字符串替换为SolidWorks模板文件的真实完整路径。
2. 2. SaveFolder：将字符串替换为输出文件的文件夹路径，路径末尾需有反斜杠\。
3. 3. 尺寸名称：D1_Name, D2_Name, D3_Name 变量值必须与模板模型中尺寸的完整名称完全一致。

步骤四：运行脚本

1. 1. 确保SolidWorks软件已启动。
2. 2. 返回Excel界面，确保参数已填写。
3. 3. 按下 Alt + F8 打开宏对话框，选择 Creating_Modeling 宏，点击“运行”。
4. 4. 观察SolidWorks窗口，它会自动执行打开、修改、保存、关闭的操作。完成后，Excel会弹出调试信息（在立即窗口）。
5. 
   最终的运行效果如下图所示，在代码指定位置生成了批量的模型。
   

5. 核心API-代码解析

理解以下三个API对象，有助于你进一步调试和扩展脚本：

(若这里内容你感到陌生，可以先参阅SolidWorks二次开发 I：基于VBSolidWorks二次开发 II：基于VB如何快速上手VBA？[AI新时代解法]VBA面向对象编程)

1. 1. SldWorks.SldWorks (代码中为 swApp)
• • 角色：代表SolidWorks应用程序本身。是与SolidWorks软件交互的“总遥控器”。
• • 主要API操作：GetObject（连接软件）、OpenDoc（打开文件）、CloseAllDocuments（关闭所有文件）。
2. 2. SldWorks.ModelDoc2 (代码中为 swModel)
• • 角色：代表一个具体的SolidWorks文档（零件、装配体或工程图）。相当于一个被打开的“图纸”。
• • 主要API操作：.Parameter（获取尺寸）、.ForceRebuild3（重建模型）、.SaveAs（另存为）。
3. 3. SldWorks.Dimension (代码中为 swDimension_xxx)
• • 角色：代表模型中的一个驱动尺寸。相当于图纸上可以修改的“标注数字”。
• • 关键属性：.Value 可以直接设置或获取这个尺寸的数值。

三者的关系链：SldWorks (应用程序) -> 打开/控制SW -> ModelDoc2 (具体的图纸/文件) -> 打开模型 -> Dimension (可修改尺寸) ->修改尺寸/另存文件。