Автоматом не отображается измененное значение атрибута в дереве конструирования.

[lavgirb]

Значение атрибута(свойства) компонента (Позиция) выведено для контроля в дерево конструирования.
После программного изменения значения "Позиции" новое значение не появляется в дереве конструирования, а остается старое.
Но если после этого вручную просто зайти в "Свойства компонента" и выйти по зеленой галке, то в дереве конструирования начинает отображаться новое правильное значение.
"Перестроение" сборки не влияет на результат.
Как можно автоматом показывать новое значение атрибута в дереве конструирования?
Что можно предпринять?
КОМПАС-3D V19
Спасибо.

[Nipal]

По зелёной галке, выйти невозможно, Вы подтверждаете изменения.

[lavgirb]

По зелёной галке, выйти невозможно, Вы подтверждаете изменения.

Спасибо.
Имеется ввиду выйти из показа Свойств компонента.
Да, вручную подтверждаются, а вставлено было программно.
Вопрос остается. Как программно показать значение измененного атрибута в дереве конструирования?

[Nipal]

Думаю, оптимальный вариант - ExecuteKompasCommand.

[lavgirb]

Думаю, оптимальный вариант - ExecuteKompasCommand.

Да, команда ksCMSelectedCompanentProperties открывает панель свойств, теперь не понятно как нажать на зеленую галку.
В перечне команд ничего подходящего не нашел.
Стандартное SendKeys {ENTER} не срабатывает, но может, надо еще пробовать...

[Nipal]

Команда может быть не задокументирована, хотя надо справку лопатить, можно выполнить команду ещё раз и посмотреть результат.

[lavgirb]

Команда может быть не задокументирована, хотя надо справку лопатить, можно выполнить команду ещё раз и посмотреть результат.

В SDK не нашел что-то подходящее.
Действительно, повторный вызов команды закрывает "Свойства компонента", но в дереве значение атрибута не обновляется и остается прежним.
Можно попробовать послать в окно нажатие на колесо мыши. Но это мне надо еще искать как сделать с помощью Win API.

[Nipal]

Можно и так, но я думаю есть процесс, но его нужно найти, методом научного тыка.

[midreyk]

Можно попробовать поискать метод Update для какого-то из интерфейсов, который вы используете. Например Part.Update() или Parts.Update() ... Вставить после изменения свойства.
У меня, например, без этого не срабатывает изменение наименования.

[Nipal]

Можно попробовать поискать метод Update для какого-то из интерфейсов, который вы используете. Например Part.Update() или Parts.Update() ... Вставить после изменения свойства.

Не подойдёт, тут запущен процесс и его нужно завершить подтверждением.
Для Update без кода, не о чем говорить.

[lavgirb]

Можно попробовать поискать метод Update для какого-то из интерфейсов, который вы используете. Например Part.Update() или Parts.Update() ... Вставить после изменения свойства.
У меня, например, без этого не срабатывает изменение наименования.

Ну да, без Update свойство не изменит своего значения.
к Prop.Update добавил и Part.Update
Это было с самого начала.
Значение свойства меняется. У меня оно автоматом не показывается новым в дереве конструирования. Там остается прежнее значение.

[Nipal]

Можно обновить документ.

[midreyk]

Значение свойства меняется. У меня оно автоматом не показывается новым в дереве конструирования. Там остается прежнее значение.

А где в дереве конструирования свойство "Позиция"? Что это за "дерево конструирования"? Скрин в студию! Где что должно появиться непонятно.

[lavgirb]

Терзайте )

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

Private Function SetPoziNumber(ByRef oPart7 As KompasAPI7.Part7, _
                                  ByVal sPozi As String) As Long

  Dim vValue        As Variant
  Dim oPropKeeper  As KompasAPI7.IPropertyKeeper
  Dim oProp        As KompasAPI7.IProperty
  Dim oPropMng      As KompasAPI7.IPropertyMng
  Dim sCurrPoziNumb As String
 
  On Error GoTo 1
 
  SetPoziNumber = -1
  If Len(sPozi) = 0 Then Exit Function
  If oPart7 Is Nothing Then Exit Function
 
  Set oPropMng = moKO7
  Set oProp = oPropMng.GetProperty(Empty, miPoziPropNumber)
  Set oPropKeeper = oPart7
  If oPropKeeper.GetPropertyValue(oProp, vValue, False, False) Then
      sCurrPoziNumb = CStr(vValue)
  End If
  If (StrComp(sCurrPoziNumb, sPozi) = 0) Then
      SetPoziNumber = 0
  Else
      If oPropKeeper.SetPropertyValue(oProp, CVar(sPozi), False) Then
        oProp.Update
        'oPart7.Update
        SetPoziNumber = 1
      End If
  End If
 
  Exit Function
1:
End Function

[lavgirb]

А где в дереве конструирования свойство "Позиция"? Что это за "дерево конструирования"? Скрин в студию! Где что должно появиться непонятно.

Свойство "Позиция" можно отобразить в дереве конструирования, если нажать на шестеренку вверху дерева.
Ну если Вы с этим не работали, тогда оно конечно...

[lavgirb]

Можно обновить документ.

Обновлял и программно и вручную, безрезультатно.

[Nipal]

Свойство "Позиция" можно отобразить в дереве конструирования, если нажать на шестеренку вверху дерева.
Ну если Вы с этим не работали, тогда оно конечно...

Это настройка и её просто нужно настроить для новых документов, а для старых нужно подумать.
Можете тут поискать - https://help.ascon.ru/KOMPAS_SDK/22/ru-RU/isystemsettings_props.html

[midreyk]

Свойство "Позиция" можно отобразить в дереве конструирования, если нажать на шестеренку вверху дерева.
Ну если Вы с этим не работали, тогда оно конечно...

С таким не работал, врать не буду. У меня такой настройки даже нет ))) Компас 18.1.

[lavgirb]

Это настройка и её просто нужно настроить для новых документов, а для старых нужно подумать.
Можете тут поискать - https://help.ascon.ru/KOMPAS_SDK/22/ru-RU/isystemsettings_props.html

У меня КОМПАС-3D V19 пока.
Думаю, что пока лучший вариант с ExecuteKompasCommand.
Только решить проблему зеленой галки.
Правда, время занимает, но все не вручную )

Да, про новые документ сразу не подумал еще. Настроил.

[Nipal]

Поверьте она актуальна на 95% для Компас-3D v19.