Элемент выдавливания до объекта

[New111]

Здравствуйте! Помогите, пожалуйста, выполнить операцию выдавливания Грани1 до Грани2 с направляющим объектом Ребро.

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

     CurrentEntity:= ksEntity(part.NewEntity(25));
     BossExtrusion:=ksBossExtrusionDefinition(currentEntity.GetDefinition);
     BossExtrusion.directionType:=0;  //прямое направление
     face1:=ksFaceDefinition(EntityColFace1.GetByIndex(massnum1[0]));
     mimo:=BossExtrusion.SetSketch(face1);     //что выдавливать  -  грань1
     ExtrusionPar:=ksExtrusionParam(BossExtrusion.ExtrusionParam);
     ExtrusionPar.typeNormal:=4; //   на расстояние до поверхности
     ExtrusionPar.depthNormal:=0;
     ExtrusionPar.draftValueNormal:=0;
     ExtrusionPar.draftOutwardNormal:=false;
     ExtrusionPar.direction:=0;

//вот в этом месте не понимаю что писать:
     BossExtrusion.SetDepthObject(true,edge); //ребро, которое является направляющим объектом

// а как задать грань2, до которой выдавливать?
     face2:=ksFaceDefinition(EntityColFace.GetByIndex(massnum[0]));
     BossExtrusion.SetDepthObject(false,face2);
   
     BossExtrusion.chooseType:=1;  //Компоненты и тела
     ChooseBodies:= ksChooseBodies(BossExtrusion.ChooseBodies);
     ChooseBodies.ChooseBodiesType:=1;  //автоопределение тел
     CurrentEntity.Update;