Проблема с выбором плоскости.

[Maxii]

Добрый день!
Пытаюсь выбрать базавую плоскость XOY по примеру http://forum.ascon.ru/index.php/topic,23942.0.html
переводя в язык VB6

при этом программа постоянно останавливается с ошибкой "424 Object required" на строке iPart = ksdoc.GetPart(part_Type.pNew_Part)

Помогите разобраться где проблема в коде.

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

Private Sub Command1_Click()

Set kompas = New Kompas6API5.Application

   kompas.Visible = True
   kompas.ActivateControllerAPI
    Set ksdoc = kompas.Document3D
    ksdoc.Create False, True

iPart = ksdoc.GetPart(part_Type.pNew_Part)
planeXOY = iPart.GetDefaultEntity(Obj3dType.o3d_planeXOY)
End Sub


[Sabahs]

Примеры посмотрите для VB.
c:\Program Files\ASCON\KOMPAS-3D V15\SDK\Basic\step3d1
c:\Program Files\ASCON\KOMPAS-3D V15\SDK\Basic\step3d2
c:\Program Files\ASCON\KOMPAS-3D V15\SDK\Basic\step3d3

[Maxii]

Спасибо. А Вы можите их гденибуть выложить, а то в sdk компаса 10v они отсутствуют.

[Sabahs]

Вот все.