Разбить совокупность объектов слоя на подгруппы пространсвенно связанных объектов
procedure GetObjectCoherentGroups(lCode : integer; oIndexes : TArrayInteger; var coGroups : TArrayPArrayInteger; dp : integer; flCut : boolean );