Код скрипта:
 

$MC=@Map.Layers.Count
$N=0
$N2=0
%Pochatok
$N=$N+1
$Status=@Map.Layers.GetAttributes $N
$Status=@StringPart 7 $Status
@if $Status<>2 @Goto %Dali
@Map.Layers.SetState $N 0
$N2=$N2+1
%Dali
@if $N<$MC then @Goto %Pochatok
@if $N2=0 then @Dialog.Message На карті не виявлено жодного шару в статусі "Видимий"
@if $N2=1 then @Dialog.Message 1 шар переведений у статус "Правка"
@if ("$N2">"1") and ("$N2"<"5") then @Dialog.Message $N2 шари переведені у статус "Правка"
@if $N2>=5 then @Dialog.Message $N2 шарів переведені у статус "Правка"