跳到主要内容

使用SOLIDWORKS API选择所有被压制的装配体组件

这个VBA宏允许在活动的SOLIDWORKS装配体中批量选择所有被压制的组件,使用SOLIDWORKS和Windows API。

这将执行组件选择菜单中的选择被压制命令。

选择被压制的组件的“选择被压制”命令{ width=500 }

与逐个遍历组件的方法相比,这是选择所有被压制组件的首选选项,因为它具有更好的性能优势。

#If VBA7 Then
Private Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#Else
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#End If

Dim swApp As SldWorks.SldWorks

Sub main()

Set swApp = Application.SldWorks

Dim swAssy As SldWorks.AssemblyDoc

Set swAssy = swApp.ActiveDoc

If Not swAssy Is Nothing Then
SelectSuppressedComponents
Else
MsgBox "请打开装配体"
End If

End Sub

Sub SelectSuppressedComponents()

Const WM_COMMAND As Long = &H111
Const CMD_SELECT_SUPPRESSED_COMPS As Long = 54409

Dim swFrame As SldWorks.Frame

Set swFrame = swApp.Frame

SendMessage swFrame.GetHWnd(), WM_COMMAND, CMD_SELECT_SUPPRESSED_COMPS, 0

End Sub