спецификация в API в соответствии с сортировкой

[fedor]

Доброго времени суток!
Существует макрос, который позволяет перебирать компоненты входящие в BOM. Загвоздка в том, что при выгрузке спецификации, я сортирую «структурированную» спецификацию по номеру (по возрастанию). Но, в API индекс каждого элемента строки не следует сортировке и перенумерации, и индекс обычно не соответствует номеру элемента.

Возможно ли программно, пройти всю Структурированную спецификацию в соответствии с сортировкой, которую я выбираю?
код макроса

Код - Visual Basic [Выбрать]

1. Public Sub IterateRows _
2. (oBOMRows As BOMRowsEnumerator, indent As Integer)
3.   Dim oBOMRow As BOMRow
4.   For Each oBOMRow In oBOMRows
5.     ' Let's only get the first definition
6.    ' It would only be more than one if rows were merged
7.    Dim oDef As ComponentDefinition
8.     Set oDef = oBOMRow.ComponentDefinitions(1)
9.  
10.     Dim partNumber As String
11.     partNumber = oDef.Document.PropertySets( _
12.       "{32853F0F-3444-11D1-9E93-0060B03C1CA6}")("Part Number").value
13.    
14.     Debug.Print Tab(indent); oBOMRow.itemNumber + " " + partNumber
15.  
16.     If Not oBOMRow.ChildRows Is Nothing Then
17.       Call IterateRows(oBOMRow.ChildRows, indent + 1)
18.     End If
19.   Next
20. End Sub
21.  
22. Public Sub IterateThroughStructuredBOM()
23.   Dim oAsm As AssemblyDocument
24.   Set oAsm = ThisApplication.ActiveDocument
25.  
26.   Dim oBOM As BOM
27.   Set oBOM = oAsm.ComponentDefinition.BOM
28.  
29.   ' Make sure it's enabled
30.  oBOM.StructuredViewEnabled = True
31.   oBOM.StructuredViewFirstLevelOnly = False
32.  
33.   Dim oBOMView As BOMView
34.   Set oBOMView = oBOM.BOMViews(2)
35.  
36.   Call IterateRows(oBOMView.BOMRows, 1)
37. End Sub

[Александр Ривилис]

fedor
По существу вопроса мне ответить нечего, т.к. я не специалист в Inventor, а вот по оформлению кода прошу соблюдать правило описанное у меня в подписи.

[mikazakov]

Честно сказать, мало что понял.

[fedor]

Поясню на картинках!
На рисунке 1 видна сортировка спецификации "По возрастанию", которая была сделана вручную,в пользовательском интерфейсе.
На 2 рисунке выгрузка компонентов входящий в BOM, сделанное через API.
Хотелось бы, чтобы выгрузка производимая в API соответствовала порядку, указанному в спецификации сборки(как на рис.1), т.е. в порядке возростания/убывания
Возможно ли программно добиться такого результата?

[Алексей Романов]

Возможно ли программно, пройти всю Структурированную спецификацию в соответствии с сортировкой, которую я выбираю?

А сортировать ВОМ через API не пробовали по номеру позиций? У меня в свое время не получилось и я сортировал кодом. Для этого цикл For Each oBOMRow In oBOMRows нужно заключить еще в один цикл перебора строк: For k=1 to oBOMRows.Count и сравнивать k и oBOMRow.itemNumber, если совпадаю, выводить в окно. Если в oBOMRow.itemNumber присутствуют точки, то брать число справа от последней точки...

[mikazakov]

Ну так то да, тут просто делается массив из строк и сортируется как вам надо, а потом выводится во внешний файл

[fedor]

У меня в свое время не получилось и я сортировал кодом. Для этого цикл For Each oBOMRow In oBOMRows нужно заключить еще в один цикл перебора строк: For k=1 to oBOMRows.Count и сравнивать k и oBOMRow.itemNumber, если совпадаю, выводить в окно. Если в oBOMRow.itemNumber присутствуют точки, то брать число справа от последней точки

Если я вас правильно понял, то предложенный вами метод, ничего в сортировке не меняет. и список идет в порядке следования
Т.е. если деталь с позицией 10, находится в API на первом месте, то цикл For проходит до i=10, а затем выгружает информацию по данной детали, при этом игнорируя остальные

Код - Visual Basic [Выбрать]

1. Public Sub IterateRows _
2. (oBOMRows As BOMRowsEnumerator, indent As Integer)
3.   Dim oBOMRow As BOMRow
4.   For Each oBOMRow In oBOMRows
5.     For i = 1 To oBOMRows.Count
6.         ' rename ItNumber
7.        Dim ItemNumber As String
8.         If InStrRev(oBOMRows.Item(i).ItemNumber, ".") > 0 Then
9.             ItemNumber = Right$(oBOMRow.ItemNumber, InStrRev(oBOMRow.ItemNumber, ".") - 1)
10.         Else
11.             ItemNumber = oBOMRow.ItemNumber
12.         End If
13.         If ItemNumber = i Then
14.             ' Let's only get the first definition
15.            ' It would only be more than one if rows were merged
16.            Dim oDef As ComponentDefinition
17.             Set oDef = oBOMRow.ComponentDefinitions(1)
18.            
19.             Dim partNumber As String
20.             partNumber = oDef.Document.PropertySets( _
21.               "{32853F0F-3444-11D1-9E93-0060B03C1CA6}")("Part Number").Value
22.            
23.             Debug.Print Tab(indent); oBOMRow.ItemNumber + " " + partNumber
24.            
25.             If Not oBOMRow.ChildRows Is Nothing Then
26.               Call IterateRows(oBOMRow.ChildRows, indent + 1)
27.             End If
28.             Exit For
29.         End If
30.     Next
31.   Next
32. End Sub
33.  
34. Public Sub IterateThroughStructuredBOM()
35.   Dim oAsm As AssemblyDocument
36.   Set oAsm = ThisApplication.ActiveDocument
37.  
38.   Dim oBOM As BOM
39.   Set oBOM = oAsm.ComponentDefinition.BOM
40.  
41.   ' Make sure it's enabled
42.  oBOM.StructuredViewEnabled = True
43.   oBOM.StructuredViewFirstLevelOnly = False
44.  
45.   Dim oBOMView As BOMView
46.   Set oBOMView = oBOM.BOMViews(2)
47.  
48.   Call IterateRows(oBOMView.BOMRows, 1)
49. End Sub

[Александр Ривилис]

Если я правильно понял Алексей Романов то нужно изменить порядок циклов. Внешним должен быть For i = 1 To oBOMRows.Count

[Алексей Романов]

Если я вас правильно понял,

Нет, вы неправильно поняли, цикл For i = 1 To oBOMRows.Count должен быть внешним, в нем просто идет перебор позиций по порядку, а во внутреннем ищутся соответствующие записи (4 и 5 строку поменяйте местами)... Александр Ривилис абсолютно правильно понял)))
UPD У меня в строке ItemNumber = Right$(oBOMRow.ItemNumber, InStrRev(oBOMRow.ItemNumber, ".") - 1) возникает ошибка, в моем случае это участок кода устроен так:

Код - Visual Basic [Выбрать]

1. Dim ItemNumber As String
2. ItemNumber = oBOMRow.ItemNumber
3. If InStr(ItemNumber, ".") > 0 Then
4.     ItemNumber = Right$(ItemNumber, Len(ItemNumber) - InStrRev(ItemNumber, "."))
5. End If

[fedor]

Большое спасибо!)
сработало!)