Болтовое соединение

[Shemetova]

Как определить,что сборка является болтовым соединением?

[mikazakov]

В общем выделите в браузере болтовое соединение и протрассируйте макрос:

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

1. Sub param_units()
2.    Dim AD As AssemblyDocument
3.    Set AD = ThisApplication.ActiveDocument
4.    
5.    Dim bolted As ComponentOccurrence: Set bolted = AD.SelectSet(1)
6.    
7.    Debug.Print (bolted.DisabledActionTypes)
8.    Debug.Print (bolted.AttributeSets.Count)
9.    
10. End Sub
11.  

просмотрите в работе состояние объекта bolted и подберите за какое свойство удобнее цепляться при анализе.
дополнительные подробные данные записаны в атрибутах bolted.AttributeSets
а ограничение манипуляции в сборке пользователем в свойстве bolted.DisabledActionTypes

[Shemetova]

У болтовых соединений обнаруживается AttributeSets с именем "FDesign" и DisabledActionTypes = "Reorder action type".
Можно утверждать, что эти две характеристики однозначно определяют болтовое соединение?

[mikazakov]

AttributeSets с именем "FDesign"

AttributeSets это коллекция, внутри есть еще объекты (сами атрибуты). Стоит по изучать их содержание для анализа.

[Shemetova]

Атрибуты коллекции FDesign следующие:

 Data
 SolverOpt
 Req
 CalcOpt

все имеют тип 50352640 - Attribute Object
по именам - затрудняюсь определить их назначение

[mikazakov]

Ну разверните узлы при пошаговом выполнении макроса.
Там будет что проанализировать.
Для примера атрибут Data имеет строковое значение в которую завернут xml-документ, а в нем очень много, что может хранится (см. скрин)



остальные тоже содержат данные, но там инфа скуднее.
Ну как то так, это вся информация о болтовом соединении.

P.S. Нужно признаться, что VBA не самый удобный инструмент для работы с xml.

[mikazakov]

Да и в хэлпе есть обзор по работе с атрибутами

[Shemetova]

Спасибо за предоставленную информацию.