;тут вказати id шару будинків
$Bud=id30351
;тут вказати id шару ділянки
$Dil=id20000
;тут вказати id параметра ділянки, в який записувати загальну кількість будинків
$ParamBudCount=id30070
;тут вказати id параметра ділянки, в який записувати загальну площу будинків
$ParamBudSumArea=id30080
;
@Map.DeselectAll
@Map.SelectLayer $Bud
$NC=@Map.SelCount
@if $NC=0 then @Break Нема жодного будинку
$SumArea=0
$N=0
%Start
$N=@Map.NextSelected $N
@if $N=0 then @Goto %End
$Area=@Map.Object[$N].Parameter[0]
$Area=@Calc replace("$Area",",",".")
$Area=@DequoteText $Area
$SumArea=@Calc $SumArea+$Area
@Goto %Start
%End
@Map.DeselectAll
@Map.SelectLayer $Dil
$NC2=@Map.SelCount
@if $NC2=0 then @Break Нема жодної ділянки
@Map.Selected.ChangeParameter $ParamBudCount $SumArea
@Map.Selected.ChangeParameter $ParamBudSumArea $NC