Вид сверху

[Lemieux]

Всех приветствую. Как с помощью API в 3D документе выполнить команду "Вид сверху"?

[Lemieux]

IViewProjectionManager
SetMatrix3D

[lavgirb]

Всех приветствую. Как с помощью API в 3D документе выполнить команду "Вид сверху"?

Вот это, наверное, то что нужно.
IViewProjection7

Я, правда, делал в API5, там есть, но посмотреть и уточнить сейчас не имею возможности.
Если не то, посмотрю позже.

[lavgirb]

Посмотрел-таки.
Вот рабочий код. Оно?)

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

Private Sub ViewOrientation(ByVal eViewOrientation As ksRelativeProjectionTypeEnum)
 
  'eViewOrientation = ksPtUp      ' Вид сверху 
  'eViewOrientation = ksPtDown    ' Вид снизу 
  'eViewOrientation = kksPtIsoXYZ  ' Изометрия
 
  Dim oDoc3D_5           As Kompas6API5.Document3D
  Dim oViewProjColl_5    As Kompas6API5.ViewProjectionCollection
  Dim oViewProjection_5  As Kompas6API5.ViewProjection
 
  Set oDoc3D_5 = moKO5.ActiveDocument3D
  Set oViewProjColl_5 = oDoc3D_5.GetViewProjectionCollection
  oViewProjColl_5.viewProjectionScheme = ksVPSZ90AxonometricISO ' Схема Z(ISO)-аксонометрия
  Set oViewProjection_5 = oViewProjColl_5.GetByIndex(eViewOrientation)
  oViewProjection_5.SetCurrent

  oDoc3D_5.ZoomPrevNextOrAll ksZoomAll

  SetNothing oDoc3D_5, oViewProjColl_5, oViewProjection_5
End Sub

[Lemieux]

Да, спасибо.