Count : Integer;
Свойство Count возвращает размер коллекции стрелок.
Sub main;
Var
Metabase : IMetabase;
MetabaseObject: IMetabaseObject;
Report: IPrxReport;
Map : IMap;
Count : Integer;
Begin
Metabase := MetabaseClass.Active;
MetabaseObject := Metabase.ItemById("Report").Bind;
Report := MetabaseObject As IPrxReport;
Map := Report.ActiveSheet.Table.Objects.Item(0).Extension As IMap;
Count := Map.Layers.FindByName("Regions").Arrows.Count;
Debug.WriteLine(Count.ToString);
End Sub main;
После выполнения примера в окно консоли будет выведено количество стрелок, имеющихся на карте. В данном примере Report - идентификатор регламентного отчета, на листе которого расположена карта.
См. также: