Dim bolted As ComponentOccurrence: Set bolted = AD.SelectSet(1)
Debug.Print (bolted.DisabledActionTypes)
Debug.Print (bolted.AttributeSets.Count)
EndSub
просмотрите в работе состояние объекта bolted и подберите за какое свойство удобнее цепляться при анализе. дополнительные подробные данные записаны в атрибутах bolted.AttributeSets а ограничение манипуляции в сборке пользователем в свойстве bolted.DisabledActionTypes
Название: Re: Болтовое соединение
Отправлено: Shemetova от 26-04-2017, 13:00:59
У болтовых соединений обнаруживается AttributeSets с именем "FDesign" и DisabledActionTypes = "Reorder action type". Можно утверждать, что эти две характеристики однозначно определяют болтовое соединение?
Название: Re: Болтовое соединение
Отправлено: mikazakov от 26-04-2017, 13:12:03
AttributeSets это коллекция, внутри есть еще объекты (сами атрибуты). Стоит по изучать их содержание для анализа.
Название: Re: Болтовое соединение
Отправлено: Shemetova от 26-04-2017, 13:32:40
Атрибуты коллекции FDesign следующие:
Data SolverOpt Req CalcOpt
все имеют тип 50352640 - Attribute Object по именам - затрудняюсь определить их назначение
Название: Re: Болтовое соединение
Отправлено: mikazakov от 26-04-2017, 20:22:12
Ну разверните узлы при пошаговом выполнении макроса. Там будет что проанализировать. Для примера атрибут Data имеет строковое значение в которую завернут xml-документ, а в нем очень много, что может хранится (см. скрин)