Головна » Файли » Готові скрипти

Скрипт для пошуку ділянок за списком кад.номерів по Публічній кадастровій карті
[ Викачати з сервера (5.6 Kb) ] 30.11.2017, 16:01

Даний скрипт більше не актуальний, оскільки в програму Digitals уже додана можливість через меню Реєстри - Земельна ділянка шукати кадастрові номер зразу за цілим списком (раніше можна було тільки по одному). І через це даний скрипт не просто перестав бути потрібний, а й перестав працювати, оскільки по-іншому стали вводитися значення в меню Реєстри - Земельна ділянка.

Перевірити, чи є ділянки на ПКК можна іншим скриптом - Перевірка наявності ділянок на ПКК

Для встановлення скачайте прикріплений файл та помістіть в папку з програмою Digitals. Перезапустіть програму. В результаті появиться нова кнопка: 

Перед запуском потрібно просто скопіювати в буфер обміну список (в стовпчик) кадастрових номерів, які треба знайти на публічній кадастровій карті. В результаті пошуку, на кожній знайденій ділянці появиться маркер із підписом кадастрового номера.

І повідомлення про результати пошуку:

Категорія: Готові скрипти | Додав: Микола
Переглядів: 1314 | Завантажень: 279 | Коментарі: 8 | Рейтинг: 0.0/0
Всього коментарів: 8
avatar
7 mwmwmw99999 • 13:24, 06.03.2018
Дякую. чудовий скрипт. Гарно все качає. Питання, як модифікувати файл, щоб зчитування відбувалося не з буфера, а з текстового файлу або ікселю, де кадастроі номери у стовпчику? Зараз якраз читаю Ваші статті стосовного даної скриптової мови, проте вирішувати задачі потрібно вже зараз.
avatar
0
8 Микола • 18:21, 06.03.2018
Контекстне меню кнопки - Змінити кнопку. Вгорі знайдіть рядок
@Text[N].Paste
та замініть на
$WorkPapka=@Dialog.SelectFolder Виберіть папку з файлами для опрацювання
@if $WorkPapka= then @break
@Text.FolderListTree *.xml $WorkPapka
avatar
5 magna949494 • 19:31, 04.01.2018
Спасибо большее, с этим разобрался и понял, но подскажите еще как сделать что бы в маске например *=Значення1 было  утверждение да или нет по выбору
зарание спасибо! 
С УВ. Антон
avatar
0
6 Микола • 20:30, 05.01.2018
...@ Пункт1:YesNo.txt $V...,
де YesNo.txt - текстовий файл у папці Lists із потрібними значеннями для вибору
в даному випадку це:
так
ні
avatar
3 magna949494 • 21:41, 02.01.2018
Доброго дня, а подскажите пожалуйста как сделать в скрипту, что бы выводилось окно с вопросом на ввод текста или выбор текста, но сразу два, три разных вопросов....
avatar
0
4 Микола • 21:42, 03.01.2018
$V=@Calc Char(124)
$V=@DequoteText $V
@Map.DeselectAll
$N=@Map.NewObject ID10000
@Map.Object[$N].Point[1] 100 100
@Map.RefreshObject $N
@Map.SelectObject $N
@SelectTab 3
;створюємо параметр ID12345 при його відсутності
$Par=@Map.Parameters.Get ID12345
@if $Par= then @Map.Parameters.Add 12345 5 Вибір чогось
;добавляємо параметр ID12345 в список доступних шару ІН4 Квартал
$ParDil=@Map.Layers.GetValidParameters ID12345
@Map.Layers.SetValidParameters ID10000 $ParDil ID12345
@Map.Parameters.Mask ID12345 *=Значення1,*=Значення2,*=ще щось@ Пункт1$V Пункт2$V Ще щось
@Dialog.EditParameter ID12345
$AVse=@Map.Object[$N].Parameter[ID12345]
$Z1=@StringPart 1,$AVse
$Z2=@StringPart 2,$AVse
$Z3=@StringPart 3,$AVse
@Dialog.Message $Z1|$Z2|$Z3
avatar
1 kovboj4754 • 11:31, 08.12.2017
як ним користуватися?
avatar
0
2 Микола • 21:41, 08.12.2017
скопіювати в буфер список кадастрових номерів і натиснути кнопку
avatar