Якщо об’єкт-перетин не потрібен потім, то використайте функцію PAR
Нижче скрипт, який оновлює у прикладі вміст параметрів 259 і 260, для карт з невеликою кількістю об’єктів можна функцію PAR вписати в параметр, тоді й скрипт не потрібен. В прикладі додано ще й допоміжний 258-й параметр.
$TempPar=ID7006411
$FieldLayerID=70005
$FieldPar1=ID7006412
$FieldPar2=ID7006413
$ParcelLayerID=90005
$FL=@Map.Layers.FindByID $FieldLayerID
@if $FL<1 then @Break Не знайдено шар "Ділянка"
$PL=@Map.Layers.FindByID $ParcelLayerID
@if $PL<1 then @Break Не знайдено шар "Масив"
$I=0
$MC=@Map.Count
%LoopObject1
$I=$I+1
$L=@Map.Object[$I].Layer
@if $L<>$FL then @Goto %Continue1
$Val=@Map.Object[$I].CalculateFormula PAR($PL,$TempPar)
$Val=%Library.ReplaceComma $Val
$Val=@Calc trunc($Val*10000+0.5)/10000
$Area=@Map.Object[$I].Parameter[0]
$Area=%Library.ReplaceComma $Area
$V2=$Area-$Val
@Map.Object[$I].Parameter[$FieldPar1] $Val
@Map.Object[$I].Parameter[$FieldPar2] $V2
@Map.RefreshObject $I
%Continue1
@if $I<$MC then @Goto %LoopObject1
@Dialog.Message All done!!!