создание плоскости со смещением

[Steys]

Использую Компас 9 и VB6.
По примеру Step3D1 создал процедуру создания плоскости со смещением

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

Sub CreateExtrusion()
  iKompasObject.ksMessage
  Dim part As Object ' ksPart
  Set part = iDocument3D.GetPart(pNew_Part)
  If Not part Is Nothing Then
    Dim entitySketch As Object ' ksEntity
    Set entitySketch = part.NewEntity(o3d_sketch)
    If Not entitySketch Is Nothing Then
      Dim sketchDef As Object ' ksSketchDefinition
      Set sketchDef = entitySketch.GetDefinition()
      If Not sketchDef Is Nothing Then
        Dim basePlane As Object ' ksEntity
        Set basePlane = part.GetDefaultEntity(o3d_planeXOY)
        sketchDef.SetPlane basePlane
        iKompasObject.ksMessage "Установили базовую плоскость"
        sketchDef.offset = 50         
        iKompasObject.ksMessage "Смещение"
        sketchDef.direction = True
        entitySketch.Create
        iKompasObject.ksMessage

      End If
    End If
  End If
End Sub

Процедура доходит до выдачи сообщения "Установили базовую плоскость" и все, дальше не идет. Подскажите, что не так?

PS Нашел ошибку
было Set entitySketch = part.NewEntity(o3d_sketch)
надо Set entitySketch = part.NewEntity(o3d_planeOffset)