Сделай свою работу в Solidworks эффективнее

[Rich 35]

Есть хорошая новость для поклонников макроса SameACircle. В SW 2018 он наконец то заработал. На более ранних версиях не пробовал, я с 2015 перескочил. Изредка бывают огрехи, когда отверстия берутся наискосок, но в основном работает без нареканий

[AlexGor 0]

Здравия желаю!

 

Подскажите пожалуйста существует ли в природе таблетка от криво созданной сборки (назначение шифров, переименование, материалы и все что Mpro умеет но для всех деталей и подсборок).

Заранее спасибо!!!

[ГЕЛА 52]

Да.Валидол называется.

[Vasiliy85 5]

Добрый день, нашел в интеренет такой макрос которые делает dxf из всех конфигураций

 

Показать содержимое  

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks
    Dim swModel                 As SldWorks.ModelDoc2
    Dim vConfNameArr            As Variant
    Dim sConfigName             As String
    Dim nStart                  As Single
    Dim i                       As Long
    Dim bShowConfig             As Boolean
    Dim bRebuild                As Boolean
    Dim bRet                    As Boolean
  

    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc

    vConfNameArr = swModel.GetConfigurationNames

    For i = 0 To UBound(vConfNameArr)

        sConfigName = vConfNameArr(i)

       
bShowConfig = swModel.ShowConfiguration2(sConfigName)

bRebuild = swModel.ForceRebuild3(False)

Dim FilePath As String
Dim PathSize As Long
Dim PathNoExtension As String
Dim NewFilePath As String

FilePath = swModel.GetPathName
PathSize = Strings.Len(FilePath)
PathNoExtension = Strings.Left(FilePath, PathSize - 6)

NewFilePath = PathNoExtension + sConfigName & ".DXF"

'Export Flat Pattern
bRet = swModel.ExportFlatPatternView(NewFilePath, 1)

Next i

End Sub

 

Hide  

 

убрал цикл, получилось

 

Показать содержимое  

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks
    Dim swModel                 As SldWorks.ModelDoc2
    Dim vConfNameArr            As Variant
    Dim sConfigName             As String
    Dim nStart                  As Single
    Dim bShowConfig             As Boolean
    Dim bRebuild                As Boolean
    Dim bRet                    As Boolean
  

    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc

    vConfNameArr = swModel.GetConfigurationNames
        
    bShowConfig = swModel.ShowConfiguration2(sConfigName)

bRebuild = swModel.ForceRebuild3(False)

Dim FilePath As String
Dim PathSize As Long
Dim PathNoExtension As String
Dim NewFilePath As String

FilePath = swModel.GetPathName
PathSize = Strings.Len(FilePath)
PathNoExtension = Strings.Left(FilePath, PathSize - 6)

NewFilePath = PathNoExtension + vConfNameArr & ".DXF"

'Export Flat Pattern
bRet = swModel.ExportFlatPatternView(NewFilePath, 1)

End Sub

 

Hide  

 

но ругается на  NewFilePath = PathNoExtension + vConfNameArr & ".DXF" что не так?

 

Изменено 10 октября 2018 пользователем Vasiliy85

[alek77 202]

В 05.09.2018 в 13:12, alek77 сказал:

 Вроде с сортировкой дерева все закончено, можно ли добавить ссылку на макрос в шапку и как это сделать?

 

Я повторю на всякий случай описание:

TreeSorter

Макрос для сортировки дерева компонентов и перемещения компонентов в папки по разделам спецификации

ВНИМАНИЕ!!!
Макрос без возврата удаляет все имеющиеся папки, без удаления компонентов и создает новую структуру
папок с компонентами в соответствии с их разделом

 

 

Исправил кучу косяков, работать стал стабильнее, прошу протестировать кто может, но аккуратно, на копиях, а то, как бы чего лишнего не отсортировалось :)

 

TreeSorter.swp

TreeSorter.Bmp

[malvi.dp 261]

2 часа назад, alek77 сказал:

прошу протестировать

sw2016sp5 Макрос запускается но вылетают ошибки и ничего не происходит.

Показать содержимое  

 

Hide  

 

[alek77 202]

19 минут назад, malvi.dp сказал:

sw2016sp5 Макрос запускается но вылетают ошибки и ничего не происходит.

1. проверьте пожалуйста, все ли библиотеки у Вас подключены (Tools/Reference)

2. Вы запускаете не тот модуль, надо запускать TreeSorter1.main

Изменено 10 октября 2018 пользователем alek77

[Kelny 1 234]

5 часов назад, Vasiliy85 сказал:

но ругается на  NewFilePath = PathNoExtension + vConfNameArr & ".DXF" что не так?

Задан параметр проверки объявления перменных:

Цитата

Option Explicit

Ошибка вероятно по причине, что PathNoExtension  не объявлено. Или объявить:

Dim PathNoExtension  As String

или убрать параметр проверки объявления переменных.

[MUXALblCH 43]

@Vasiliy85 , 

5 часов назад, Vasiliy85 сказал:

NewFilePath = PathNoExtension + vConfNameArr & ".DXF"

vConfNameArr - у Вас объявлен как массив. Вы пытаетесь использовать его в формировании строковой переменной NewFilePath !!!

 

В исходном коде было:

5 часов назад, Vasiliy85 сказал:

NewFilePath = PathNoExtension + sConfigName & ".DXF"

, где sConfigName - это строковая переменная имени конфигурации

 

Поэтому, либо в Вашем варианте нужно заменить строку:

NewFilePath = PathNoExtension + vConfNameArr(0) & ".DXF" '- экспортируется только первая конфигурация 

Либо вернуть цикл и экспортировать все конфигурации

 

P.S.

 

А зачем цикл убрали то ?

[malvi.dp 261]

1 час назад, alek77 сказал:

1. проверьте пожалуйста, все ли библиотеки у Вас подключены (Tools/Reference)

2. Вы запускаете не тот модуль, надо запускать TreeSorter1.main

1. Библиотеки подключены все.

Показать содержимое  

 

Hide  

2. Там только main. Другого там нет, чтоб запустить.

Показать содержимое  

 

Hide  

 

[alek77 202]

11 минуту назад, malvi.dp сказал:

1. Библиотеки подключены все.

Показать содержимое

 

Hide

2. Там только main. Другого там нет, чтоб запустить.

Показать содержимое

 

Hide

 

Я не силен в отладке макроса на расстоянии, прошу отписаться у кого еще sw16sp5, работает макрос ID: 4387 или нет

Если можно, файлы какой-нибудь Вашей маленькой сборки в личку

Тестировали на 17 и на 15, работает без замечаний

[Vasiliy85 5]

36 минут назад, MUXALblCH сказал:

А зачем цикл убрали то ?

Потому что после создание развертка добавляется конфигурация 01SM-FLAT-PATTERN и на конфигурацию тоже создается dxf т.е если в файле 2 конфигурации сначало 2 dxf а потом 4

Изменено 10 октября 2018 пользователем Vasiliy85

[alek77 202]

@malvi.dp попробуйте вместо версии 9000 вставить версию 10000 в строке

 

'Контроль версии SW
conntrolFormatVersion = 9000

 

я 9000 версию поставил только потому, что люди отписались по 16 солиду и сказали, что группировка компонентов в дереве там есть. Если это ошибочно, то может получаться эта ошибка.

[alek77 202]

10 часов назад, alek77 сказал:

 

Исправил кучу косяков, работать стал стабильнее, прошу протестировать кто может, но аккуратно, на копиях, а то, как бы чего лишнего не отсортировалось :)

 

TreeSorter.swp

TreeSorter.Bmp

Блин, нашли серьезный баг, поправил, завтра перевыложу

 

Если перед повторным нажатием сортировки не закрывая формы выделить в дереве компонент, макрос его волшебным образом удаляет. Я сам до такого непланового использования макроса не додумался бы, спасибо всем, кто помогает тестировать

[alek77 202]

22 часа назад, alek77 сказал:

 

Исправил кучу косяков, работать стал стабильнее, прошу протестировать кто может, но аккуратно, на копиях, а то, как бы чего лишнего не отсортировалось :)

 

 

 

TreeSorter.swp

TreeSorter.Bmp

[Crab 4]

alek77

Всем привет.

Проверил у себя в SW2013 v5. С начало вообще не запустился, пришлось войти в

редактирование и снять миссинг 2017. И сразу заработал.

Работает гораздо быстрее предыдущей версии у меня на компе конечно же.

Спасибо.

[malvi.dp 261]

@alek77 , теперь работает sw2016sp5!

 

Изменено 11 октября 2018 пользователем malvi.dp

[alek77 202]

1 минуту назад, Crab сказал:

alek77

Всем привет.

Проверил у себя в SW2013 v5. С начало вообще не запустился, пришлось войти в

редактирование и снять миссинг 2017. И сразу заработал.

Работает гораздо быстрее предыдущей версии у меня на компе конечно же.

Спасибо.

Спасибо за отзыв! Так и запишем, что макрос  работает под SW13-SW17. По SW 16 кто подскажет как работает?

[alek77 202]

Может кому будет полезным

Ссылки на темы буржуйского форума, достаточно легко находить нужную инфу

 

ALL-In One.xlsx

Deepak Gupta Search.xlsx

[Docuk1 31]

В 11.10.2018 в 09:43, alek77 сказал:

 

TreeSorter.swp

TreeSorter.Bmp

У меня sw2016 сп5.  Если не менять 9000 на 1000, то возникает ошибка аналогичная как в сообщении 4388. Если поменять, то работает, но, если у изделия несколько конфигураций, то не зависимо от раздела оно запихивается в папку детали. в том числе и тулбоксовкие винты - шайбы