在SolidWorks装配体设计中，准确统计零部件数量是工程管理的重要环节。本文介绍一个实用的VBA宏解决方案，专门用于统计装配体中所有非压缩、非封套状态的零部件数量。
宏代码的核心逻辑基于递归遍历装配体结构，同时应用状态过滤条件。以下是实现这一功能的关键代码段：
```vba
Sub CountComponents()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssy As SldWorks.AssemblyDoc
Dim compCount As Integer
Dim dict As Object
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swAssy = swModel
Set dict = CreateObject("Scripting.Dictionary")
Call TraverseAssembly(swAssy.GetRootComponent, dict)
' 输出统计结果
Dim key As Variant
For Each key In dict.keys
Debug.Print key & ": " & dict(key)
Next
End Sub
Sub TraverseAssembly(comp As SldWorks.Component2, dict As Object)
If comp Is Nothing Then Exit Sub
' 过滤条件：非压缩且非封套件
If comp.GetSuppression() <> swComponentSuppressionState_e.swComponentSuppressed And _
Not comp.IsEnvelope() Then
Dim compName As String
compName = comp.Name2
' 统计数量
If dict.exists(compName) Then
dict(compName) = dict(compName) + 1
Else
dict.Add compName, 1
End If
' 递归处理子装配
If comp.GetChildrenCount > 0 Then
Dim childComp As SldWorks.Component2
Dim i As Integer
For i = 0 To comp.GetChildrenCount - 1
Set childComp = comp.GetChildren(i)
Call TraverseAssembly(childComp, dict)
Next
End If
End If
End Sub
```
该宏具有以下技术特点：
1. 采用字典对象存储和统计零部件名称及出现次数
2. 通过GetSuppression()方法检测零部件压缩状态
3. 使用IsEnvelope()方法排除封套件
4. 递归算法确保遍历整个装配体结构
实际应用中，此宏可扩展以下功能：
- 添加配置特定统计
- 输出Excel格式报告
- 包含零部件自定义属性
- 区分不同引用实例
执行结果将显示在立即窗口中，包含每个非压缩、非封套零部件的名称及其在装配体中的出现次数。此解决方案显著提高了大型装配体物料统计的效率和准确性，特别适用于需要精确BOM表的工程场景。