При вставке вида из другого чертежа не удается заменить системный вид на нужный

[lavgirb]

Есть большой чертеж и есть маленький чертежик с маленьким видом.
Задача
1 Вставить в большой чертеж пустой вид
2 В этот пустой вид вставить вид из маленького чертежа (Вставить вид другого чертежа)
3 Во вставленном виде из другого чертежа должен отображаться вид модели маленького чертежа.

Проблема: во вставке вида другого чертежа показывается пустой Системный вид, а не вид с изображением модели.
Вручную вид-источник можно изменить и переключить с системного на вид с изображением.
Программно это сделать не удается, так как свойство ViewName, в котором имя вида меняется при смене вида-источника вручную, Read Only
Никто не сталкивался с этим? Может, есть какие-то обходные пути?
Спасибо.

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

Private Function InsertMountingView(ByRef oDrawDocSB As KompasAPI7.DrawingDocument, _
                                    ByVal ffnDrawMV As String, _
                                    ByVal sNameMV As String) As Boolean

  Dim oKompDoc  As KompasAPI7.KompasDocument
  Dim oInsMng    As KompasAPI7.IInsertionsManager
  Dim oDrawMVDef As KompasAPI7.InsertionDefinition
  Dim oViewForMV As KompasAPI7.View
  Dim oDrawCont  As KompasAPI7.IDrawingContainer
  Dim oInsObjs  As KompasAPI7.InsertionObjects
  Dim oInsObj    As KompasAPI7.IInsertionObject
  Dim oInsView  As KompasAPI7.InsertionView
 
  Set oViewForMV = oDrawDocSB.ViewsAndLayersManager.Views.Add(vt_Normal)
 
  With oViewForMV
      .Current = True
      .Visible = True
      .name = sNameMV
      .Update
  End With
  '
  Set oKompDoc = oDrawDocSB
  Set oInsMng = oKompDoc
  Set oDrawMVDef = oInsMng.AddDefinition(ksTBodyView, sNameMV, ffnDrawMV)   
  Set oDrawCont = oViewForMV
  Set oInsObjs = oDrawCont.InsertionObjects
  Set oInsObj = oInsObjs.Add(oDrawMVDef)
  Set oInsView = oInsObj
  With oInsView
      .CreateSpcObjects = False
      .DimensionLineScale = False
      .ThinLines = False
''''      .ViewName = ReadOnly
      .Update
  End With
  oViewForMV.Update
 
End Function
Вставка вида чертежа в пустой вид (который является как бы контейнером) нужна для последующего программного перемещения вставленного изображения и прицепления к нему некоторого текста.
Таких независимых вставок может быть несколько.



Ну вот, стоило только написать, как ответ подкатил. Надо поменять номер вида с 0 на 1
   

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

With oInsView
      .CreateSpcObjects = False
      .DimensionLineScale = False
      .ThinLines = False
      .ViewNumber = 1
      .Update
   End With