Якщо на двi лiнiї i скриптом, тодi так$Sel=@Map.NextSelected 0
$P1=@Map.Object[$Sel].Point[1]
$P1=%Library.ReplaceComma $P1
$P2=@Map.Object[$Sel].Point[2]
$P2=%Library.ReplaceComma $P2
;
$X1=@StringPart 1 $P1
$Y1=@StringPart 2 $P1
;
$X2=@StringPart 1 $P2
$Y2=@StringPart 2 $P2
;
$X3=($X1+$X2)/2
$Y3=($Y1+$Y2)/2
@Map.Object[$Sel].Insert 1 $X3 $Y3
;