MapScale: IMapScale;
Свойство MapScale возвращает объект, содержащий картографическую шкалу.
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
MapScales: IPrxMapScales;
MapScale: IPrxMapScale;
Map: IMapScale;
i: Integer;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("Report").Bind As IPrxReport;
MapScales := Report.Scales;
MapScale := MapScales.Item(0);
Map := MapScale.MapScale;
i := Map.Count;
End Sub UserProc;
После выполнения примера в переменной «i» будет содержаться количество значений в первой шкале регламентного отчета. Идентификатор регламентного отчета - «Report».
См. также: