Функция @Map.RescaleObjectToArea для приведения участка к заданной площади
Функция скрипта @Map.RescaleObjectToArea Index NewArea масштабирует объект с порядковым номером Index для приведения его площади к новому значению (NewArea).
Текст скрипта для масштабирования помеченного объекта:
$I=@Map.NextSelected
@If $I<=0 @Break Пометьте объект для масштабирования
$A=@Map.Object[$I].Parameter[0]
$A=@Dialog.Ask Введите новую площадь Default=$A
@If $A= @Break
@Map.Undo.StartOperationGroup
@Map.Undo.SaveObject $I
@Map.RescaleObjectToArea $I $A
@Window.Refresh