用VB写一个函数，调用SOLIDWORKS的API,对打开的装配体文件，遍历所有组件，打开对应工程图

当您打开装配体文件后，可以使用以下VB函数来遍历所有组件并打开对应的工程图：

Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst

Public Sub OpenComponentDrawingsInAssembly()
    Dim swApp As SldWorks = Nothing
    Dim swModel As ModelDoc2 = Nothing
    Dim swAssy As AssemblyDoc = Nothing
    Dim swComponents As Object = Nothing
    
    Try
        ' 创建SOLIDWORKS应用程序对象
        swApp = CreateObject("SldWorks.Application")
        swApp.Visible = True
        
        ' 获取正在打开的装配体模型
        swModel = swApp.ActiveDoc
        If swModel Is Nothing OrElse swModel.GetType() <> swDocumentTypes_e.swDocASSEMBLY Then
            Exit Sub
        End If
        
        swAssy = CType(swModel, AssemblyDoc)
        
        ' 获取装配体中的全部组件
        swComponents = swAssy.GetComponents(False)
        
        ' 遍历所有组件并打开对应的工程图
        For Each swComponent As Component2 In swComponents
            Dim compModel As ModelDoc2 = CType(swComponent.GetModelDoc2(), ModelDoc2)
            
            If compModel IsNot Nothing AndAlso compModel.GetType() = swDocumentTypes_e.swDocDRAWING Then
                swApp.ActivateDoc2(compModel.GetPathName(), False, 0)
            End If
        Next
        
    Catch ex As Exception
        ' 处理异常
    Finally
        ' 释放资源
        If Not swComponents Is Nothing Then
            Marshal.ReleaseComObject(swComponents)
        End If
        
        If Not swAssy Is Nothing Then
            swAssy.Close()
        End If
        
        If Not swModel Is Nothing Then
            swModel.Close()
        End If
        
        If Not swApp Is Nothing Then
            swApp.ExitApp()
            Marshal.ReleaseComObject(swApp)
        End If
    End Try
End Sub

请注意，此函数假定您已经打开了一个装配体文件，并且将其设置为活动文档。函数将遍历所有组件，并对每个组件检查其是否为工程图（类型为swDocDRAWING），如果是，则打开对应的工程图。希望对您有所帮助！如有任何问题，请随时提问！