Private Function getasmchild(swmodelComps As Variant) Dim swmodelComp As SldWorks.Component2 Dim swmodel As ModelDoc2 Dim swAsm As SldWorks.AssemblyDoc For i = 0 To UBound(swmodelComps) Set swmodelComp = swmodelComps(i) Set swmodel = swmodelComp.GetModelDoc2 If swmodel.GetType = 1 Then MsgBox (swmodel.GetTitle) ElseIf swmodel.GetType = 2 Then swAsm = swmodel getasmchild (swAsm.GetComponents(True)) End If Next End Function

代码功能概述

• 功能：递归获取装配体中的子组件。

代码分析

• 要点总结描述1：定义函数getasmchild，接收组件数组swmodelComps作为参数。
• 要点总结描述2：遍历组件数组，获取每个组件的模型文档swmodel。
• 要点总结描述3：判断模型文档类型，如果是零件则显示标题，如果是装配体则递归调用getasmchild。

代码实现

Private Function getasmchild(swmodelComps As Variant)
    Dim swmodelComp As SldWorks.Component2
    Dim swmodel As ModelDoc2
    Dim swAsm As SldWorks.AssemblyDoc
    
    For i = 0 To UBound(swmodelComps)
        Set swmodelComp = swmodelComps(i)
        Set swmodel = swmodelComp.GetModelDoc2
        
        If swmodel.GetType = 1 Then
            MsgBox (swmodel.GetTitle)
        ElseIf swmodel.GetType = 2 Then
            Set swAsm = swmodel
            getasmchild (swAsm.GetComponents(True))
        End If
    Next
End Function

功能说明

• 该函数用于在SolidWorks中递归获取装配体中的所有子组件。
• 通过遍历传入的组件数组，获取每个组件的模型文档。
• 如果模型文档是零件（类型为1），则弹出其标题。
• 如果模型文档是装配体（类型为2），则递归调用getasmchild函数，继续获取其子组件。710