В другому та четвертому рядках потрібно вказати відповідно:
- номер параметра, по якому слід створювати назви шарів
- стартовий номер id для нових шарів
Стартовий номер id для нових шарів потрібно ставити такий, щоб при подальшому збільшенні він не дублював жодного, який вже є на карті.
По тій же причині, перед кожним повторним запуском скрипту по карті, на якій він вже був запущений раніше, потрібно знову задавати стартовий номер id (наступний після наявного вже на карті)
;номер параметра, по якому слід створювати назви шарів
$NPar=20030
;стартовий номер id для нових шарів
$StartID=800045
$N=0
$MC=@Map.Count
%Start
$N=$N+1
@Map.DeselectAll
@Map.SelectObject $N
$NewLayer=@Map.Object[$N].Parameter[id$NPar]
@if $NewLayer= then @Goto %Pusto
$LID=@Map.Object[$N].LayerID
$LParList=@Map.Layers.GetValidParameters ID$LID
$Attributes=@Map.Layers.GetAttributes ID$LID
$StartID=$StartID+1
@Map.Layers.Add $StartID 1 $NewLayer
@Map.Layers.SetValidParameters ID$StartID $LParList
@Map.Layers.SetAttributes ID$StartID $Attributes
@Map.Object[$N].LayerID $StartID
%Pusto
@if $N<$MC then @Goto %Start
@Window.Refresh
|