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

Допоміжна панель інструментів для формування документації
[ Викачати з сервера (8.3 Kb) ] 28.07.2021, 09:58

Скрипт призначений для тих, хто використовує комплект скриптів  для формування документації із землеустрою. Він послідовно запускає усі скрипти, які входять в даний комплект, сортує за змістом сторінки, створює підписи КЖ, КН, дозволяє корегувати масштаб на планах, друку і закриває все комплексно.

Як це працює, можна переглянути на відео


Перша кнопка панелі послідовно запускає такі скрипти:
1. Скрипт-модуль "Документація"
2. Звіт GNSS: контроль диференційного поля
3. Шаблони для звіту по RTK (матеріали геодезичних вишукувань)
4. Схема прив'язки до геодезичних пунктів ДГМ
5. Акт прийому-передачі, список та кроки межових знаків

При цьому, якщо усі межі земельної ділянки збігаються з існуючими на місцевості, то тоді скрипт "Акт" не запускається, а відомість про встановлення межових знаків формується модулем "Документація". Якщо ж на ділянці є проектні межові знаки - то тоді відомість формується скриптом Акт, який дає можливість описувати закріплені межові знаки, створює проміри до об'єктів на місцевості.

Друга кнопка панелі призначена для сортування шаблонів за змістом.

В скрипті можна змінити назви шаблонів як до, так і після впорядкування.

Для цього потрібно натиснути правою клавішею на другій кнопці скрипту і вибрати пункт Змінити кнопку та знайти в правій частині вікна такий код:

Щоб підключити сюди власний шаблон, потрібно додати блок із трьох рядків коду:

$Pos=@Calc Pos("В.векторів","$Filename")
@if $Pos>0 then $NewName=@Calc replace("$Filename","В.векторів","205 Відомість оброблення векторів")
@if $Pos>0 then @Goto %Next

де В.векторів замінити на назву сторінки, яка отримана після формування скриптом.

Щоб змінити порядок сортування сторінки, потрібно поставити іншу цифру замість 205 (відповідає 2.05 згідно змісту проекту).

Щоб змінити назву сторінки після сорутвання, потрібно замінити текст Відомість оброблення векторів на своє.

До речі, якщо потрібно на Схемі РТК пересунути цілу зйомку в бік, усі об'єкти зйомки легко одночасно виділити через меню Група - Вибрати - AllPasted

 

 

 

 

 

Третя кнопка створює підписи угідь на планах чи у файлі XML, додаючи окремий параметр до кожного угіддя з можливістю вибрати із випадаючого списку назву угіддя.
Про даний скрипт детальніше ТУТ.

Четверта кнопка дозволяє корегувати масштаб на планах. Про скрипт детальніше ТУТ.

П'ята кнопка друкує усі сторінки, що відкриті праворуч від активної включано з активною.

Шоста кнопка закриває усі сторінки, що відкриті праворуч від активної включно з активною.

Для встановлення скачайте архів і розпакуйте файл, який всередині, у папку Digitals та перезапустіть програму Digitals.

Категорія: Готові скрипти | Додав: Микола
Переглядів: 1596 | Завантажень: 362 | Коментарі: 13 | Рейтинг: 0.0/0
Всього коментарів: 13
avatar
12 mrsiromanets • 20:28, 18.11.2021 [Матеріал]
Даний скрипт може просто відсортувати за змістом проект який раніше сформований без застосування цього скрипту (а саме кнопки один)?
avatar
0
13 Микола • 13:51, 19.11.2021 [Матеріал]
може, якщо відкрити усі сторінки в програмі Digitals і якщо вони згідно нового змісту.
avatar
9 Ivan_Kalinich • 10:14, 27.08.2021 [Матеріал]
Добрий день, чи є можливість за допомогою скрипта вибирати через який принтер буде проводитись друк?
avatar
0
10 Микола • 19:07, 27.08.2021 [Матеріал]
Добрий вечір!
Такої функції в скриптах немає.
avatar
11 Ivan_Kalinich • 13:39, 28.08.2021 [Матеріал]
Дякую, шкода  sad
avatar
4 Kochyr • 14:42, 18.08.2021 [Матеріал]
Микола Ярославович. Допоможіть зробити скрипт щоб при виборі "так" зберігало один файл. А коли "ні" зберігало декілька. Неможу добитися щоб при виборі "ні" відкривало вікно для збереження активної карти.

$MapCount=@MapCount
;@if $MapCount=0 @break
$Print=@Dialog.Select ЗБЕРЕГТИ ОДИН ФАЙЛ?|так|ні
@if $Print=ні then @Goto %Newcopy
@if $Print=так then @Goto %SAVE
@if $Print=0 then @break
@if $Print= then @break
%SAVE
$OriginalMap=@ActivateMap
Файл | Сохранить как...
$Zakrut=@Dialog.Select ЗАКРИТИ ФАЙЛ?|так|ні
@if $Zakrut=так then @Goto %CLOSE
@if $Zakrut=ні then @Goto %Finisf
@Goto %Finisf
%Newcopy
;$MapCount=@MapCount
@if $MapCount=0 @break
%Start
$OriginalMap=@ActivateMap
Файл | Сохранить как...
%CLOSE
@CloseMap $OriginalMap
%Finisf
@if $OriginalMap<=$MapCount @break
@Goto %Start
avatar
0
5 Микола • 19:23, 19.08.2021 [Матеріал]
Опишіть детальніше, що потрібно, бо не зрозуміло.

При виборі "так" має зберігати один поточний файл з активної вкладки?
При виборі "ні" що за "декілька карт" він має зберігати? Чи усі без винятку?
Включно з активною?

А закривати коли і що має?

У вашому скрипті якось так все заплутано, що я не можу зрозуміти, що там до чого.

Якщо вам потрібно просто зберігати або активну або зразу усі, то такий скрипт буде виглядати ось так:

$Dialog=@Dialog.Confirm Зберігати один файл?
$Count=@MapCount
@If $Count=0 @Break
@if $Dialog=1 then @Map.SaveToFile
@if $Dialog=1 then @Break
$I=0
%Start
$I=$I+1
@if $I>$Count then @Break Збережено усі карти
@ActivateMap $I
@Map.SaveToFile
@Goto %Start

Але якщо при цьому ще треба щось закривати, то це краще робити окремим скриптом (окремим циклом), бо при закритті карт змінюються номери інших карт і простий цикл тут дасть збій.
avatar
6 Kochyr • 10:08, 20.08.2021 [Матеріал]
Коли запускається скрипт "модуль документації" то відкривається декілька карт. Хотілося б всі ці "відкриті карти" закривати або одну "активну" карту або всі при цьому зберігати файл в директорію на вибір або де обмінник.
avatar
0
7 Микола • 11:45, 20.08.2021 [Матеріал]
Це ж реалізовано у скрипті, до якого ці коментарі. Там є кнопка з червоним хрестиком, скрипт якої закриває усі карти праворуч від активної включно з активною. При цьому залишає відкритим сам файл xml і всі інші карти, що відкриті ліворуч. Якщо потрібно, щоб під час закриття карт їх зразу зберігало, то в коді скрипту цієї кнопки включіть опцію
;чи зберігати перед закриттям?
$Save=так
$Count=@MapCount

Щоб зберігало в папку з обмінником, включіть в налаштуваннях самого модуля "Документація" це. А ця кнопка буде зберігати файли там, де вони були збережені до того скриптом модуля "Документація", тобто в папці з обмінником.
avatar
8 Kochyr • 16:09, 20.08.2021 [Матеріал]
Зробив ось так:
$MapCount=@MapCount
$Print=@Dialog.Select ЗБЕРЕГТИ ОДИН ФАЙЛ?|так|ні
@if $Print=ні then @Goto %Newcopy
@if $Print=так then @Goto %SAVE
@if $Print=0 then @break
@if $Print= then @break
%SAVE
$OriginalMap=@ActivateMap
Файл | Сохранить как...
$Zakrut=@Dialog.Select ЗАКРИТИ ФАЙЛ?|так|ні
@if $Zakrut=так then @Goto %CLOSE
@if $Zakrut=ні then @Goto %Finisf
@Goto %Finisf
%CLOSE
@CloseMap $OriginalMap
%Finisf
@if $OriginalMap<=$MapCount @break
@Goto %Start
%Newcopy
@ActivateMap 2
$Save=так
$Count=@MapCount
@If $Count=0 @Break
$AM=@ActivateMap
$R=$Count-$AM+1
$I=$AM+1
$Dialog=2
@if $R<>1 then $Dialog=@Dialog.Confirm Закрити всі $R сторінок, що праворуч від активної включно з активною?
@if $Save=так then @Map.SaveToFile
Файл | Сохранить как...
@if $Dialog=2 then @CloseMap $AM 
@if $Dialog=0 then @Break
@if $Dialog=2 then @Break
%Start
$Count=@MapCount
@If $I<=$Count then @ActivateMap $I
@if $Save=так then @Map.SaveToFile
Файл | Сохранить как...
@If $I<=$Count then @CloseMap
@if $I<$Count then @Goto %Start
@CloseMap

Дякую за допомогу.
avatar
3 natalimalanyuk • 23:25, 04.08.2021 [Матеріал]
дякую
avatar
1 natalimalanyuk • 15:11, 04.08.2021 [Матеріал]
питає файл TechDocumentation TypesForScript.txt додатково скачувати???
avatar
0
2 Микола • 21:18, 04.08.2021 [Матеріал]
Цей файл у архіві є наявний. Розпакуйте його в папку Lists. Якщо при скачуванні архіву він у вас відсутній, тоді почистіть кеш браузера і скачайте ще раз. Бо його зразу справді не було. А повторне скачування архіву не скачує новий архів, а бере старий з кешу браузера.
avatar