Имеется Reaction со следующим кодом:
- Код: Выделить всё
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set product1 = partDocument1.GetItem(partDocument1.Name)
Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
Dim zagotovka1 As Parameter
Set zagotovka1 = parameters1.Item("Заготовка")
Dim win1 As String
win1 = zagotovka1.Value
MsgBox win1
product1.DescriptionRef = win1
product1.Definition = win1
End sub
Когда она срабатывает в Парте, который открыт в отдельном окне - всё нормально, но из окна надсборки, т.к. ActiveDocument это открытое окно, ничего не работает.
Пробовал через Selection, но во-первых не смог найти родительский парт от выделенного элемента, во-вторых, при срабатывании реакции выделен может быть и другой Парт.
В связи с этим вопрос, как найти родительский парт для реакции?