Отменить связь / Восстановить связь. Автоматом не меняется отображение в дереве

[lavgirb]

В зависимом исполнении бывает нужно перевосстановить связь, чтоб исполнение начинало больше соответствовать основному исполнению.
Однако после выполнения кода в компоненте дерева не происходит изменение, пока в компонент дерева вручную не ткнешь мышкой.
Можно ли что-то предпринять, чтоб замок (иконка связи с основным исполнением) пропадал и появлялся автоматом?
Указанные в коде обновления не решают проблемы.

Код Выделить Развернуть

For Each vSelObj In vSelObjs
      If IsEmpty(vSelObj) Then GoTo NEXT_SEL
      Set oFeat7 = vSelObj
      Set oModelObj = oFeat7
      Set oModelObj1 = oModelObj
      With oModelObj1
        If .ConnectedWithInitialEmbodiment Then
        Else
            .ConnectedWithInitialEmbodiment = True ' Отменить связь
            'oMacroObj3D.Update
            .ConnectedWithInitialEmbodiment = False ' Восстановить связь
            'oModelObj.Update
            'oMacroObj3D.Update
            nReConnCount = nReConnCount + 1
        End If
      End With
NEXT_SEL:
  Next
Здесь почему-то свойство срабатывает как бы наоборот.

Код Выделить Развернуть

.ConnectedWithInitialEmbodiment = True ' Отменить связь
.ConnectedWithInitialEmbodiment = False ' Восстановить связь