SOLIDWORKS宏在窗口文件夹中显示所选装配组件

该宏演示了如何使用SOLIDWORKS API在Windows文件资源管理器中打开所选装配中的组件的文件夹。

在打开的窗口中，组件的文件将被预选中。

该宏将产生类似于以下手动步骤的结果：

1. 在其自己的窗口中打开组件
2. 转到文件菜单
3. 从“最近打开的文件”中选择文件
4. 选择“在文件夹中显示”选项

{ width=320 height=69 }

如果没有选择任何组件，则将打开活动模型的路径。

观看视频演示

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swComp As SldWorks.Component2

Sub main()

    On Error Resume Next
    
    Set swApp = Application.SldWorks
    
    Set swModel = swApp.ActiveDoc
    
    If Not swModel Is Nothing Then
    
        Set swSelMgr = swModel.SelectionManager
        
        Set swComp = swSelMgr.GetSelectedObjectsComponent3(1, -1)

        Dim path As String
        
        If Not swComp Is Nothing Then
            path = swComp.GetPathName
        Else
            path = swModel.GetPathName
        End If
        
        If path <> "" Then
            Shell "explorer.exe /select, " & """" & path & """"
        Else
            MsgBox "模型未保存"
        End If
    
    Else
        MsgBox "请打开装配文档并选择组件"
    End If
    
End Sub