Скрипт виводить підписи Х та У для кожної точки
$N1111=@Map.SelCount
@If $N1111<1 @Break Виділіть точки для створення підпису
$FindByID=@Map.Parameters.FindByID id12225242
@If $FindByID=0 then @Map.Parameters.Add 12225242 5 Підпис Х
@Map.Parameters.SetAttributes id12225242 0 5 0 10 0 16777215 0 Arial 80 0 -16777208
;добавляємо параметр в список доступних шару
$IsnPar=@Map.Layers.GetValidParameters ID$Layer
@Map.Layers.SetValidParameters ID$Layer $IsnPar ID12225242
$FindByID=@Map.Parameters.FindByID id12225243
@If $FindByID=0 then @Map.Parameters.Add 12225243 5 Підпис У
@Map.Parameters.SetAttributes id12225243 0 5 0 10 0 16777215 0 Arial 80 0 -16777208
;добавляємо параметр в список доступних шару
$IsnPar=@Map.Layers.GetValidParameters ID$Layer
@Map.Layers.SetValidParameters ID$Layer $IsnPar ID12225243
$NS=0
%Loop
$NS=@Map.NextSelected $NS
@if $NS=0 then @Goto %Finish
$Layer=@Map.Object[$NS].LayerID
$X=@Map.Object[$NS].Parameter[-4]
$Y=@Map.Object[$NS].Parameter[-3]
@Map.Object[$NS].Parameter[ID12225242] У:$Y
@Map.Object[$NS].Parameter[ID12225243] Х:$X
@Goto %Loop
%Finish
@Map.Selected.RemoveCaptions ID12225242
@Map.Selected.RemoveCaptions ID12225243
@Map.Selected.CreateCaptions ID12225242 1 2 0 1 10 0
@Map.Selected.CreateCaptions ID12225243 1 2 0 1 10 3 |