;Помечаем все объекты
@Map.SelectAll
;Получаем путь к программной папке
$PP=@ProgramPath
;получаем код КОАТУУ из кад. зоны
$I=0
$MC=@Map.Count
%Loop
$I=$I+1
$LID=@Map.Object[$I].LayerID
@if $LID=70003 then @Goto %Continue
@if $I<$MC then @Goto %Loop
@Break Кадастровоя зона не найдена.
%Continue
$KOATUU=@Map.Object[$I].Parameter[ID7000300]
;Прерываем выполнение, если не получили строку в 10 символов
$KL=@Calc length(“$KOATUU”)
@if $KL<>10 then @Break Заполните параметр КОАТУУ кадастровой зоны
;Загружаем шаблоны заполнения из папки Templates\csv\XXXXXXXXXX
@Map.Selected.LoadParameters $PP\Templates\csv$KOATUU\XML_Реквізити.csv
@Map.Selected.LoadParameters $PP\Templates\csv$KOATUU\XML_Зона.csv
@Map.Selected.LoadParameters $PP\Templates\csv$KOATUU\XML_Квартал.csv
@Map.Selected.LoadParameters $PP\Templates\csv$KOATUU\XML_Ділянка.csv
@Map.Selected.LoadParameters $PP\Templates\csv$KOATUU\XML_Угіддя.csv
@Map.Selected.LoadParameters $PP\Templates\csv$KOATUU\XML_Обмеження.csv
@Map.Selected.LoadParameters $PP\Templates\csv$KOATUU\XML_Оренда.csv
@Map.Selected.LoadParameters $PP\Templates\csv$KOATUU\XML_Суборенда.csv
@Map.Selected.LoadParameters $PP\Templates\csv$KOATUU\XML_Суміжник.csv