Перейти к публикации

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


Рекомендованные сообщения

Добрый день! В общем есть у меня необходимость сохранить одним нажатием все выделенные тела в 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 кб.

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

Ссылка на сообщение
Поделиться на других сайтах


Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




×
×
  • Создать...