SOLIDWORKS自动化神器：宏功能深度剖析

之前的文章介绍了如何通过SOLIDWORKS正版软件的VBA来开发一个简单的标准件生成器;后面我们会对这个标准件生成器进行进一步功能扩充，今天我们来研究另一个问题：SOLIDWORKS装配体零件遍历。

SOLIDWORKS装配体零件遍历在二次开发中会经常使用，比如：

1.创建装配体结构BOM，搜索结构的所有层级，并提取每个结构、零件的属性信息;

2.在装配体中查找出所有的标准件、特定的零部件;

3.当装配体提示零件中存在被压缩的特征时，通过遍历找出被压缩特征的零部件;

4.遍历整个结构，为每个零件进行随机上色;

5.批量检查零件属性的完整性;

那么在SOLIDWORKS VBA开发中，如何对装配体结构进行完整的遍历呢?以下是对装配体遍历的基本流程：

首先用户需要先获取当前装配体结构的子组件，然后通过for循环遍历该结构的所有子组件，并且判断每个子组件是属于零件还是装配体，如果是装配体，则需要对该装配体进行子组件获取，然后检查该装配体的下属层级…如此往复;

但因为我们无法预先知道任何一个装配体结构存在多少个层级，所以也无法判断需要执行多少次for循环，所以我们在这里使用了递归的方式来处理该问题。

以下是装配体遍历的基本代码：

在main主函数中，我们通过 Set swmodel = swApp.ActiveDoc 获取到当前正在被SOLDWORKS打开且处于当前显示界面的装配体，通过 swmodelComps = swAsm.GetComponents(True) 或者这个装配体的所有子组件，放到swmodelComps 这个数组中;

接下来调用GetAsmChild这个函数，并且将swmodelComps数组作为变量传递到函数中;

在GetAsmChild函数中，通过：

For i = 0 To UBound(swmodelComps)

…

语句对获取到的子组件数组进行遍历，该遍历只会搜索结构的一个层级，为了让遍历可以搜索结构的所有层级，所以有如下的条件判断代码：

If swmodel.GetType = 1 Then

MsgBox (swmodel.GetTitle)

ElseIf swmodel.GetType = 2 Then

swAsm = swmodel

GetAsmChild (swAsm.GetComponents(True))

End If

其中swmodel.GetType = 1 表示该获取到的一个层级中的其中一条子组件属于零件;