Solidworks VBA批量导出零件：按组匹配编码生成文件名问题

当前所有导出零件均使用Code1的核心原因是代码未实现「零件所属组→对应编码」的匹配逻辑，直接固定调用了Code1的值，没有根据零件的组属性做分支判断。

1. 读取零件的所属组标识 #

首先确认零件的组信息存储位置（通常是SolidWorks零件的自定义属性，比如属性名为Group），通过VBA读取该属性值。

2. 添加组-编码匹配逻辑 #

在生成导出文件名前，根据读取到的组名，匹配对应的Code1或Code2。

3. 替换固定编码为动态匹配值 #

将原代码中固定使用Code1的部分，替换为根据组判断后的目标编码。

假设原导出模块中生成文件名的代码段如下：

' 原错误代码：所有零件固定使用Code1
Dim exportFileName As String
exportFileName = Code1 & "_" & swPart.GetTitle & IIf(exportFormat = "STEP", ".step", ".x_t")

修改后的代码：

Dim swPart As SldWorks.ModelDoc2
Dim partGroup As String
Dim targetCode As String
Dim exportFileName As String

' 读取零件自定义属性中的组信息（请替换为实际的属性名）
partGroup = swPart.GetCustomInfoValue("", "Group")

' 根据组名匹配对应编码，统一转大写避免大小写匹配问题
Select Case UCase(partGroup)
    Case UCase("GroupName1")
        targetCode = Code1
    Case UCase("GroupName2")
        targetCode = Code2
    Case Else
        ' 处理未匹配到组的场景：可选择默认编码或抛出提示
        MsgBox "零件 " & swPart.GetTitle & " 未匹配到对应组，将使用默认编码", vbExclamation
        targetCode = Code1 ' 或根据需求调整默认值
End Select

' 生成最终导出文件名
exportFileName = targetCode & "_" & swPart.GetTitle & IIf(exportFormat = "STEP", ".step", ".x_t")

如果组信息不是存储在零件属性中，而是通过用户窗体手动为选中零件分配组，则需要：

• 在用户窗体确认时，构建「零件对象→所属组」的对应关系（比如用Dictionary存储）
• 导出循环时，从字典中读取当前零件对应的组，再匹配编码

示例（基于字典存储零件-组对应关系）：

' 在用户窗体确认时，构建零件-组字典
Dim partGroupDict As New Dictionary
For Each item In ListBox1.SelectedItems ' 假设ListBox1是选中零件列表，同时记录组
    Dim swSelPart As SldWorks.ModelDoc2
    Set swSelPart = item.Object
    partGroupDict.Add swSelPart.GetTitle, item.Group ' 假设item包含组信息
Next

' 导出时读取字典
partGroup = partGroupDict(swPart.GetTitle)
' 后续匹配编码逻辑同上

内容的提问来源于stack exchange，提问作者JetskiS