Solidworks VBA：获取装配体相同零件数量及组件顺序异常排查

1. 相同零件数量统计的VBA代码 #

要实现装配体中相同零件的数量统计，可借助Scripting.Dictionary记录零件的唯一标识（这里以零件参考文档路径作为唯一键，也可替换为零件编号等自定义属性），遍历组件时累加对应零件的数量，最终输出包含数量的XML内容。

以下是完整实现代码：

Sub ExportAssemblyPropsWithQtyToXML()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swAssembly As SldWorks.AssemblyDoc
    Dim swComp As SldWorks.Component2
    Dim partDict As Object ' Scripting.Dictionary
    Dim xmlStr As String
    Dim key As Variant
    
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    If swModel.GetType <> swDocASSEMBLY Then
        MsgBox "请打开装配体文件！"
        Exit Sub
    End If
    
    Set swAssembly = swModel
    Set partDict = CreateObject("Scripting.Dictionary")
    
    ' 遍历所有组件，统计相同零件数量
    For Each swComp In swAssembly.GetComponents(True) ' True=包含子装配体零件，False=仅顶层组件
        If Not swComp.IsVirtual Then ' 排除虚拟零件
            Dim partPath As String
            partPath = swComp.GetPathName
            
            ' 字典中存在则累加数量，否则新增条目
            If partDict.Exists(partPath) Then
                partDict(partPath) = partDict(partPath) + 1
            Else
                partDict.Add partPath, Array(swComp.Name2, 1)
            End If
        End If
    Next swComp
    
    ' 构建XML内容
    xmlStr = "<AssemblyProperties>" & vbCrLf
    xmlStr = xmlStr & "  <AssemblyName>" & swAssembly.GetPathName & "</AssemblyName>" & vbCrLf
    xmlStr = xmlStr & "  <Parts>" & vbCrLf
    
    For Each key In partDict.Keys
        xmlStr = xmlStr & "    <Part>" & vbCrLf
        xmlStr = xmlStr & "      <Name>" & partDict(key)(0) & "</Name>" & vbCrLf
        xmlStr = xmlStr & "      <Path>" & key & "</Path>" & vbCrLf
        xmlStr = xmlStr & "      <Qty>" & partDict(key)(1) & "</Qty>" & vbCrLf
        xmlStr = xmlStr & "    </Part>" & vbCrLf
    Next key
    
    xmlStr = xmlStr & "  </Parts>" & vbCrLf
    xmlStr = xmlStr & "</AssemblyProperties>"
    
    ' 输出XML到指定路径（自行修改保存路径）
    Open "C:\Temp\AssemblyProps.xml" For Output As #1
    Print #1, xmlStr
    Close #1
    
    MsgBox "XML文件已生成！"
End Sub

代码关键点说明： #

• GetComponents(True)遍历所有层级零件，若只需统计顶层组件，改为False即可
• 用零件GetPathName作为唯一标识，避免同零件不同配置的重复统计；若需按配置区分，可拼接配置名称到键中
• Scripting.Dictionary实现高效的键值对存储，快速完成数量累加

2. 组件遍历顺序异常的原因 #

SolidWorks中AssemblyDoc.GetComponents()返回的组件集合默认顺序是特征树的显示顺序，而非零件的添加顺序：

• 若你在特征树中手动拖动Part_C到Part_A上方，集合索引i=0就会指向Part_C
• 新增零件时，SolidWorks默认将其添加到特征树末尾，因此第4个零件会对应索引i=3（集合索引从0开始）

若需要按零件添加顺序遍历组件，可改用AssemblyDoc.GetComponentByCreationOrder方法，示例片段：

Dim compCount As Long
compCount = swAssembly.GetComponentCount(True)
For i = 0 To compCount - 1
    Set swComp = swAssembly.GetComponentByCreationOrder(i, True)
    ' 编写组件处理逻辑
Next i

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