Макрос для сортировки пузырьком дерева построения SolidWorks

[PSW 1]

Доброго всем времени суток .

Прошу помочь с написанием макроса для сортировки дерева построения SolidWorks 2011 х64.

Попытался сам написать макрос но столкнулся с нехваткой знаний.

Идея в следующем: после создания сборки с подсборками и деталями требуется рассортировать дерево по порядку.

Хочу реализовать это на VBA при помощи сортировки пузырьком

 

Замысел такой:

Через цикл FOR

присваиваем первой переменной название первого элемента в сборке

второй переменной присваиваем значение второго элемента в сборке

потом через if их сравниваем если вторая переменная больше первой то меняем их местами и переходим на следующую строчку

если нет то просто переходим на следующую строчку

 

Вопросы:

1 Может у кого уже есть готовый макрос(если он будет весь прокомментирован будет совсем хорошо)

2 Может кому не сложно написать за огромное спасибо (ну а вдруг мир не без добрых людей)

3 Может кто подскажет где можно почитать конкретно по этой теме и какие команды надо использовать(не могу понять как выбрать элемент дерева построения)

4 Что неверно в моем алгоритме (вариант "все" не принимается, прошу описать построчно)

5 Может лучше применить другой вид сортировки или другой язык 

 

Заранее благодарю.

 

PS. прошу сильно не ругаться и не критиковать. В программировании понимаю мало(могу написать простейшие макросы для эксэль) , в интернете информации не нашел, при попытке прикрепить код сюда происходит сбой кодировки(прикрепил фаил с кодом и картинку). За грамотность прошу извинить.

 

 

''''''''''''''''''''''''''''''''''' ''Name: Sort SolidWorks 2011 x64 '' ''Author: Pavel-100 '' ''''''''''''''''''''''''''''''''''' 'Ìàêðîñ äëÿ ñîðòèðîâêè ïóçûðüêîì äåðåâà ïîñòðîåíèÿ SolidWorks 2011 õ64 íà VBA Sub main() Dim name1 As String 'çàäàåì ïåðåìåííóþ ¹1 äëÿ ñðàâíåíèÿ Dim name2 As String 'çàäàåì ïåðåìåííóþ ¹2 äëÿ ñðàâíåíèÿ Dim nameChange As String 'çàäàåì ïåðåìåííóþ äëÿ ñîðòèðîâåè Dim i As String 'çàäàåì ïåðåìåííóþ äëÿ íîìåðà ñòîêè i = 1 'çàäàåì çíà÷åíèå ïåðåìåííîé íîìåðà ñòîêè '* name1 = çíà÷åíèå èç ñòðîêè i For a = 1 To 100 i = i + 1 '* name2 = çíà÷åíèå èç ñòðîêè i If name1 < name2 Then 'Ñðàâíèâàåì çíà÷åíèÿ nameChange = name1 'åñëè èñòèííà ìåíÿåì ìåñòàìè çíà÷åíèÿ name1 = name2 ' *çàïèñàòü çíà÷åíèå 1 name2 = nameChange ' *çàïèñàòü çíà÷åíèå 2 Else: name1 = name2 'åñëè ëîæ ïåðåõîäèì íà ñëåäóþùóþ ñòðî÷êó End If Next End Sub

sort.swp

[Kelny 1 239]

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

Прошу помочь с написанием макроса для сортировки дерева построения SolidWorks 2011 х64.

http://cccp3d.ru/topic/6071-сделай-свою-работу-в-solidworks-эффективнее/?do=findComment&comment=897176

http://cccp3d.ru/topic/6071-сделай-свою-работу-в-solidworks-эффективнее/?do=findComment&comment=903384

[PSW 1]

14 часа назад, Kelny сказал:

http://cccp3d.ru/topic/6071-сделай-свою-работу-в-solidworks-эффективнее/?do=findComment&comment=897176

http://cccp3d.ru/topic/6071-сделай-свою-работу-в-solidworks-эффективнее/?do=findComment&comment=903384

Огромное спасибо. 

Макрос работает, сейчас буду разбираться и изучать.

Тема закрыта.