SolidWorks 遍历装配体（VBA）

Dim swApp As Object
Dim swModel As SldWorks.AssemblyDoc
Dim designer As String
Dim valout As String
Dim longstatus As Long, longwarnings As Long
Dim swAssy As SldWorks.AssemblyDoc

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    '遍历装配体
    Dim swAssy As Variant
    swAssy = swModel.GetComponents(True)
    tmp = GetAsmChild(swAssy)

    swModel.Save

End Sub

Function GetAsmChild(swmodelComps As Variant)
    Dim swmodelComp As SldWorks.Component2
    Dim swmodel As ModelDoc2
    Dim swAsm As SldWorks.AssemblyDoc
    Dim text As String
    Set myd = CreateObject("Scripting.Dictionary")

    '遍历装配体所有东西
    For i = 0 To UBound(swmodelComps)
        Set swmodelComp = swmodelComps(i)
        Set swmodel = swmodelComp.GetModelDoc2

        '跳过重复零件
        If myd.Exists(swmodel.GetTitle) Then
            GoTo Continue
        Else
            myd.Add swmodel.GetTitle, i
        End If

        '递归改名
        If swmodel.GetType = 1 Then
            'do something here
        ElseIf swmodel.GetType = 2 Then
            swAsm = swmodel
            t = GetAsmChild(swAsm.GetComponents(True), designer, no)
        End If
Continue:
    Next

    m = MsgBox(text, 64, Title)

End Function