請問批次執行中繼檔段開連結

阿尼阿

各位大大好請問有沒有方法一次性執行資料夾中的中繼檔執行使用3D Interconnect的段開連結的，目前用的檔案格式是.ipt，SOLIDWORKS 是2022
但有找到強制斷開單個零件的方法，但批次的方法還未有頭緒。
#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 IfSub main()    Dim swApp As SldWorks.SldWorks    Dim swFrame As SldWorks.Frame    Set swApp = Application.SldWorks    Set swFrame = swApp.Frame    'SendMessage swFrame.GetHWnd(), &H111, 30478, 0    'SendMessage swFrame.GetHWnd(), &H111, 53116, 0    SendMessage swFrame.GetHWnd(), &H111, 53118, 0End Sub