Сохранить все тела по отдельности в STL файлы

[Tigranik 0]

Добрый день! В общем есть у меня необходимость сохранить одним нажатием все выделенные тела в stl файл, каждый в отдельный файл.

Реализовал я это в 2017 версии с помощь макроса:

Цитата

 

Sub SaveSelectedToSTL()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swView = swSelMgr.GetSelectedObject6(1, -1)

    Dim MySolidBodys() As String

    For i = 1 To 100

        If swSelMgr.GetSelectedObject6(i, -1) Is Nothing Then Exit For

        ReDim Preserve MySolidBodys(i - 1)

        MySolidBodys(i - 1) = swSelMgr.GetSelectedObject6(i, -1).Name

    Next i

    For Each X In MySolidBodys

        boolstatus = swModel.Extension.SelectByID2(X, "SOLIDBODY", 0, 0, 0, False, 0, Nothing, 0)

        MyPathName = Left(swModel.GetPathName, Len(swModel.GetPathName) - Len(swModel.GetTitle)) & Left(swModel.GetTitle, Len(swModel.GetTitle) - 7) & "_" & X & ".STL"

        longstatus = swModel.SaveAs3(MyPathName, 0, 0)

    Next X

    swModel.ClearSelection2 True

    Foldername = Left(swModel.GetPathName, Len(swModel.GetPathName) - Len(swModel.GetTitle)) '"\\server\Instructions\"

    Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus

End Sub

 

Все было прекрасно пока не поставил версию 2019, по непонятной причине это зараза перестала работать! Файл получается пустой, весом 1 кб.

У меня получается сохранить в сборке отдельные элементы за раз, а вот с телами ну ни как не получается(