Вид сверху

[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]

Да, спасибо.

[Kilia]

Всем привет!
Пытаюсь создать вид ориентации модели в 3d модели. Предварительно вставил смещённую плоскость, и вид должен быть перпендикулярен данной плоскости.

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

plane = KompasObject.TransferInterface(iPlane3D, 1, 0)
iSurface = plane.GetSurface()
iPlaneParam = iSurface.GetSurfaceParam()
iPlacement = iPlaneParam.GetPlacement()
iDocument3D = KompasObject.TransferInterface(iKompasDocument_a3d, 1, 0)
iViewProjectionCollection = iDocument3D.GetViewProjectionCollection()
iViewProjection = iViewProjectionCollection.NewViewProjection()
iViewProjection.name = 'Test_name'
iViewProjection.SetPlacement(iPlacement)
iViewProjectionCollection.Add(iViewProjection)
iViewProjection.SetCurrent()

Получаю вид ориентации, но мне надо чтобы вид был повернут на 90 градусов.

Подскажите, пожалуйста как это сделать?

[Михаил88]

Подскажите, пожалуйста как это сделать?

Так пойдет?

application.ExecuteKompasCommand(41890, False)

Без поворота


С поворотом

[Kilia]

application.ExecuteKompasCommand(41890, False)

Михаил88, Доброй ночи!
А не подскажите команду для изометрической ориентации?

А все победил!

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

iKompasDocument3D1 = API7.IKompasDocument3D1(iKompasDocument)
iViewProjectionManager = iKompasDocument3D1.ViewProjectionManager
iViewProjection7 = iViewProjectionManager.ViewProjection(7)
iViewProjection7.Current = True