Скрипт для створення рамок довкола об’єктів карти

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                               

;повернутись на початок циклу