копирование по концентрической сетке (ksCircularCopyDefinition)

[seregaa]

Дорогие господа помогите с кодом на Delphi 7,не знаю как сделать копию по концентрической сетке объектов то могут быть ескиз или сама-же операция. В примерах этого нету ,только то что есть такая команда но нету кода,ось я уже создал.

//создадим ось
iAxis2PlanesEntity := ksEntity(iPart.GetDefaultEntity( o3d_axis2Planes ));
iAxis2PlanesDef := ksAxis2PlanesDefinition(iAxis2PlanesEntity.GetDefinition);
iAxis2PlanesDef.SetPlane(1,iPlaneEntity);
iAxis2PlanesDef.SetPlane(2,iOffsetPlaneEntity);
iAxis2PlanesEntity.hidden:=False;
iAxis2PlanesEntity.Create;
//ура !!!п1д1брав код сам !!!!


//--------------------
iCircularCopyEntity:=ksEntity(iPart.GetDefaultEntity(o3d_circularCopy));
iCircularCopyDef:= ksCircularCopyDefinition(iCircularCopyEntity.GetDefinition);
iCircularCopyDef.SetAxis(iAxis2PlanesEntity);
iCircularCopyDef.inverce:= False;
iCircularCopyDef.geomArray:= True;

iCircularCopyDef.SetCopyParamAlongDir(16,360,True,True);
iCircularCopyEntity.Create;
//копирование ескиза

немного кода может что-то не верноре подскажите ,пожалуйста или дайте готов. код,разберусь!!!
Заранее благодарен!!!!