• Добро пожаловать на Форум пользователей ПО АСКОН. Пожалуйста, авторизуйтесь.
 

Уважаемые пользователи,

Хотим проинформировать вас о режиме работы регистрации на нашем сайте.

Зарегистрироваться возможно в рабочие дни, с 8:00 до 20:00 (мск).

Если у вас возникнут вопросы или потребуется дополнительная информация, не стесняйтесь обращаться к нашей службе поддержки. Вы можете связаться с нами по указанным контактным данным на нашем сайте.

Благодарим вас за понимание и сотрудничество. Мы ценим ваше терпение и стремимся предоставить вам лучший опыт использования нашего сервиса.

С уважением,
Команда Ascon

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

Автор lavgirb, 25.11.23, 14:28:21

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

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 ' Восстановить связь