如何用VBA在SolidWorks打开的零件中打开跨目录参考装配体？

实现思路 #

• 借助SolidWorks API的FindReferencedDocuments方法，查找所有引用当前打开零件的文档
• 从结果中筛选出装配体格式（.sldasm）的文件
• 调用OpenDoc6方法打开目标装配体，API会自动处理跨目录的路径匹配问题

VBA代码示例 #

Sub OpenReferencingAssembly()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim refDocs As Variant
    Dim i As Integer
    
    ' 获取SolidWorks应用实例
    Set swApp = Application.SldWorks
    ' 获取当前激活的零件文档
    Set swModel = swApp.ActiveDoc
    
    ' 验证当前文档类型
    If swModel.GetType <> swDocPART Then
        MsgBox "请先打开一个零件文档！", vbExclamation
        Exit Sub
    End If
    
    ' 搜索所有引用当前零件的文档（第二个参数True表示遍历所有有效搜索路径）
    refDocs = swApp.FindReferencedDocuments(swModel.GetPathName, True)
    
    ' 遍历结果并打开装配体
    If Not IsEmpty(refDocs) Then
        For i = LBound(refDocs) To UBound(refDocs)
            ' 判断文件是否为装配体
            If LCase(Right(refDocs(i), 6)) = ".sldasm" Then
                ' 静默打开装配体（可根据需求调整打开选项）
                swApp.OpenDoc6 refDocs(i), swDocASSEMBLY, swOpenDocOptions_Silent, "", 0, 0
                Exit For ' 如需打开所有匹配的装配体，删除此行
            End If
        Next i
    Else
        MsgBox "未找到引用该零件的装配体！", vbInformation
    End If
End Sub

关键说明 #

• FindReferencedDocuments方法的第二个参数设为True时，会自动检索SolidWorks的参考路径、搜索路径及文件历史引用位置，能高效定位跨目录的装配体
• 若需打开所有引用该零件的装配体，移除代码中的Exit For语句即可
• 打开装配体时，SolidWorks会自动匹配零件的当前位置（无需手动指定路径，只要零件处于打开状态或在SolidWorks搜索路径内）

内容的提问来源于stack exchange，提问作者JetskiS