Post date: May 8, 2014 1:34:52 PM
Цей скрипт бере за основу ІКК з параметром КОАТУУ. Номера КОАТТУ записані в файлі "d:\doc\2014\19_ОкремеДорЗемлеустрою\NomRad.txt " Порядково, наприклад
7320584500
7321082100
7323585500
7323586500
7310136900
7320585000
7323555100
7323585000
7325080800
Та файлик c:\Users\Павло Урсуляк\Desktop\Noname1.dmf в якому намальована рамка карти та простий прямокутник довкола рамки карти.
;Зробити рамки на ради
@Map.DeselectAll
;зняти виділення
@Text.Load d:\doc\2014\19_ОкремеДорЗемлеустрою\NomRad.txt
;Список з номерами ходів
$I=1
;перша строка
$CountI=@Text.Count
;загальна кількість строк
%Start
;Початок циклу
;Збільшення індексу
$I=$I+1
@IF $I<=$CountI @Goto %Bum
;умова приривання циклу
;$CN=@Dialog.Ask Кадастровий номер
;можливість ручного вводу відключив
@Break Закінчився список файлів
%Bum
$CN=@Text.Line[$I]
;@Dialog.Message Шукаю $CN
@Map.FindByParameters 1|ID2762188=$CN
;пошук рад
;@Map.FindFirstByParameters 1|NomerHodu=$CN
$S=@Map.SelCount
;@Dialog.Message $S
;кількість знайдених обєктів
@If $S>0 @Goto %Show
;якщо знайшло більше 0 обєктів Виконати обєднання
@If $S=0 @Dialog.Message Наступне значення на карті не знайдено $CN
;якщо знайшло 0 обєктів видати помилку
%Show:
@Window.ShowSelected
Карта | Помеченные в рамку
@Map.InsertFrameFromFile c:\Users\Павло Урсуляк\Desktop\Noname1.dmf
@Map.DeselectAll
@Goto %Start
;повернутись на початок циклу