касательная плоскость

[Evil Leshiy]

Здравствуйте!
Нигде не могу найти примера создания плоскости, касательной к конической/цилиндрической поверхности, а у самого тоже не получается.
Может кто подскажет...
Программирую на Delphi под Компас10. (прога нужна в институт)
Пока придумал только это:

iPlaneEntity := ksEntity(iPart.GetDefaultEntity( o3d_planeXOY ));   //интерфейс плоскости, перпендикулярной поверхности
    PlaneTangentToSurfaceEntity := ksEntity(iPart.NewEntity( o3d_planeTangent    ));
     if PlaneTangentToSurfaceEntity <> nil then
     begin
       PlaneTangentToSurfaceDefinition := ksPlaneTangentToSurfaceDefinition(PlaneTangentToSurfaceEntity.GetDefinition);
        if PlaneTangentToSurfaceDefinition <> nil then
        begin
    PlaneTangentToSurfaceDefinition.GetFace;
    PlaneTangentToSurfaceDefinition.SetFace(iBaseExtrusion);  //указатель на поверхность, полученную выдавливанием
    PlaneTangentToSurfaceDefinition.GetPlane;
    PlaneTangentToSurfaceDefinition.SetPlane(iPlaneEntity);  //указатель на плоскость, перпендикулярную поверхности
    PlaneTangentToSurfaceDefinition.angle:=0;
    PlaneTangentToSurfaceDefinition.choosePlane:=1;
    PlaneTangentToSurfaceEntity.Create;
       end;
   end;