Не удается выполнить команду "Главный вид по текущей ориентации"

[lavgirb]

Не получается добиться выполнения команды, обведенной на скриншоте



Вот код. Не понятно с ViewProjection
 

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

Dim oKompDoc3D    As KompasAPI7.KompasDocument3D
   Dim oKompDoc3D1   As KompasAPI7.IKompasDocument3D1
   Dim oViewProjMgr  As KompasAPI7.ViewProjectionManager
   Dim oViewProj7    As KompasAPI7.ViewProjection7 =Версия КОМПАС v22=
   
   Set oKompDoc3D1 = moKO7.ActiveDocument
   If oKompDoc3D1 Is Nothing Then Exit Sub
   Set oViewProjMgr = oKompDoc3D1.ViewProjectionManager
   
   Set oViewProj7 = oViewProjMgr.ViewProjection(ksVPFront)
   If oViewProj7.SetMatrix3D(oViewProjMgr.Matrix3D) Then
      oViewProj7.Update
   End If

[Student2025]

Пытаюсь найти ViewProjectionManager и

[UU]

Пытаюсь найти ViewProjectionManager и

Не там ищите.
https://help.ascon.ru/KOMPAS_SDK/24/ru-RU/iviewprojectionmanager.html?q=ViewProjectionManager

[Student2025]

Ааа я так понимаю вопрос со стороны теста, а я тут предлагаю велосипеды 

[Student2025]

А какова вероятность получить первое или второе или третье место в тестировании ? Поди наверно одни и те же пользователи их занимают

Я вот отсюда чую что UU прищучил глаза и нервно вздохнул..

[p3452]

Чем не устраивает "старый" способ - ksViewProjectionCollection?

[Student2025]

Чем не устраивает "старый" способ - ksViewProjectionCollection?

Ааа я так понимаю вопрос со стороны теста

[p3452]

- Чушь...

[Student2025]

- Чушь...

Вы строги к себе..

[lavgirb]

Чем не устраивает "старый" способ - ksViewProjectionCollection?

Коллекция это добавленные виды, как понимаю.
А задача - вид на экране сделать видом спереди.

[UU]

SetBaseUserOrientation

[lavgirb]

SetBaseUserOrientation

Это просто предположение или это работает?
Если работает, можете дать реальную наводку?
У меня пока не получается работающий код с этим методом.