Все про скрипти

voha

Dmitry_Zolotar писал(а):

Кнопка

Код:

$S=%Library.NumberSelectedSequential ID4 100 2
@Dialog.Message Пронумеровано $S об'єкт(а/ів)

...

Доброго дня.
Ви маєте на увазі, що якщо у скрипті:
1) для кожного окремого полігона:
1.1) полігон почати з крайньої північної точки;
1.2) командою "вставити вузли" у вузлові точки - створити точкові об'єкти,
то послідовність номерів цих точкових об'єктів будуть відповідати напрямку межі полігона, причому найменший номер матиме точковий об'єкт розміщений на першій точці полігона?

Тобто: не використовувати CalcAlongContour, а перебрати кожен зі створених вставкою вузлів точкових об'єктів для присвоєння йому значення параметра? Варіант можливий, але тільки якщо правда те, що в першому абзаці.

Дякую.

Dmitry_Zolotar

Калькулятор-Последовательная нумерация пронумеровує помічені об'єкти карти у порядку слідування в карті, починаючи з заданого значення(1 за замовчуванням) з заданим кроком(1 за замовчуванням). Приведений раніше скрипт робить те саме.

voha

Dmitry_Zolotar писал(а):

Калькулятор-Последовательная нумерация пронумеровує помічені об'єкти карти у порядку слідування в карті, починаючи з заданого значення(1 за замовчуванням) з заданим кроком(1 за замовчуванням). Приведений раніше скрипт робить те саме.

Раз-два поправив свій скрипт. Чемно дякую за підказку.

sergykydr

Підкажіть де помилка?

$Kad=@Dialog.Select Наявність кадастрового номеру|З кадастровим номером|Без
@if $Kad=З кадастровим номером @goto %Kad
@if $Kad=Без @goto %Gameover
%Kad
@Map.DeselectAll
@Map.SelectLayer ID70003
$P39=@Map.Selected.GetParameter ID7000301
@if $P39=00 @Break Невірно заповнено номер кадастрової зони
@Map.DeselectAll
@Map.SelectLayer ID70004
$P43=@Map.Selected.GetParameter ID7000401
@if $P43=000 @Break Невірно заповнено номер кадастрового кварталу
@Map.SelectLayer ID70005
$P53=@Map.Selected.GetParameter ID7000513
@if $P53=0000 @Break Невірно заповнено номер земельної ділянки
%Gameover
@Map.DeselectAll

Якщо вибрати "Без кад. номера" скрипт все одно виконується повністью.

Пупкин

Міцного здоров'я всім!

Пане sergykydr а куди подівся then, котрий у комплексі з if?

"@if $Kad=З кадастровим номером then @goto %Kad"

Дякую.

voha

sergykydr писал(а):

Підкажіть де помилка?...
Якщо вибрати "Без кад. номера" скрипт все одно виконується повністью.

Так якщо вибрати "Без кад. номера", чи якщо натиснути кнопку "Скасувати" або закрити діалог вибору "з хреста"?

Код:

$Kad=@Dialog.Select Наявність кадастрового номеру|З кадастровим номером|Без 
@if $Kad<>З кадастровим номером then @goto %Gameover
@Map.DeselectAll
@Map.SelectLayer ID70003
$P39=@Map.Selected.GetParameter ID7000301
@if $P39=00 @Break Невірно заповнено номер кадастрової зони
@Map.DeselectAll
@Map.SelectLayer ID70004
$P43=@Map.Selected.GetParameter ID7000401
@if $P43=000 @Break Невірно заповнено номер кадастрового кварталу
@Map.SelectLayer ID70005
$P53=@Map.Selected.GetParameter ID7000513
@if $P53=0000 @Break Невірно заповнено номер земельної ділянки
%Gameover
@Map.DeselectAll

sergykydr

Всім дякую! розібрався. Це той випадок коли треба було ще раз вручну переписати той самий скрипт, і все запрацювало.

voha

sergykydr писал(а):

Всім дякую! розібрався. Це той випадок коли треба було ще раз вручну переписати той самий скрипт, і все запрацювало.

Не правильний "діагноз" Ви ставите скрипту. Правильним буде "передбачити в скрипті всі варіанти вибору в діалозі". Я маю на увазі наступне:

Код:

$Kad=@Dialog.Select Наявність кадастрового номеру|З кадастровим номером|Без
@if $Kad=З кадастровим номером @goto %Kad
@if $Kad=Без @goto %Gameover
%Kad

виконання скрипта піде на мітку %Kad навіть тоді, коли користувач натисне на кнопку "Скасувати" в діалозі вибору, або закриє діалог з хреста. Тому краще

Код:

$Kad=@Dialog.Select Наявність кадастрового номеру|З кадастровим номером|Без
@if $Kad<>З кадастровим номером then @goto %Gameover
@Map.DeselectAll

Тут враховано два рішення:
-якщо не вибрано "З кадастровим номером", тоді на мітку %Gameover;
-лише якщо вибрано "З кадастровим номером", тоді виконати все що після після вибору.

voha

Dmitry_Zolotar писал(а):

...Тестовый проект TestFormDLL, показывающий способ вызывать формы, созданные в Delphi, из скрипта Digitals...

...Приклад немодальної форми...

Таким чином маємо два варіанти використання власних форм для автоматизації Digitals:

1) модальна форма - коли скрипт продовжить роботу лише після закриття форми з можливістю у тому ж таки скрипті далі оперувати результатом функції @DLLExec DLLPath.DLLFunction [Parameters] але без можливості оперування картою під час відображення форми на екрані;
2) звичайна форма - коли скрипт не чекає результату функції @DLLExec DLLPath.DLLFunction [Parameters] (власне тому ж таки скрипту результат функції і не потрібний) зате з можливістю оперувати картою після завершення скрипта під час відображення форми на екрані.

Обидві форми знаходять своє місце для використання і є корисними. Однак не вистачає ще однієї - аналогічної за поведінкою діалогу @Dialog.WaitBox Text. Цікавий діалог: за викликом у скрипті - модальна форма (скрипт очікує результат), за властивостями - звичайна форма (не модальна, можна переключатись між вікнами на екрані та оперувати картою).

Пане Дмитре. Шукав у властивостях форми Delphi - не один день часу витратив, не знайшов. Усе марно :cry:

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

Dmitry_Zolotar

а такий варіант влаштує?

Код:

$Arg=Hello, world!!!
;Створюємо немодальну форму
@DLLExec TestFormDLL.CreateInputForm $Arg
;Чекаємо відредаговані дані
@Dialog.WaitBox Відредагуйте дані у вікні Form1
;Отримуємо результат
$Res=@DLLExec TestFormDLL.GetResult CLOSE
@Dialog.Message $Res

voha

Dmitry_Zolotar писал(а):

а такий варіант влаштує?

Код:

$Arg=Hello, world!!!
;Створюємо немодальну форму
@DLLExec TestFormDLL.CreateInputForm $Arg
;Чекаємо відредаговані дані
@Dialog.WaitBox Відредагуйте дані у вікні Form1
;Отримуємо результат
$Res=@DLLExec TestFormDLL.GetResult CLOSE
@Dialog.Message $Res

Дякую. Але гнітить наявність вікна очікування скрипта.
Скрипт AutoIt, запущений перед @Dialog.WaitBox, встановлює прозорість вікна очікування і мав би обробити натискання на кнопку форми - відновити непрозорість вікна очікування і симулювати натискання на кнопку <Продовжити>.

Так не тут-то було! Не відловлює AutoIt натискання на кнопку форми :cry:

, мабуть може працювати лише зі створеними тільки ним самим вікнами і елементами управління.
Капєц. Замучився. Треба відкласти до кращих часів.

fendak

Постала необхідність витягнути функцією @XML.XPath повну інформацію про другого і наступних співвласників по суміжниках Як це можна реалізувати?
$FirstName=@XML.XPath NaturalPerson[2]/FullName/LastName $Param не працює чогось

Dmitry_Zolotar

Скрипт формує список ПІБ і назв співвласників з/д

Код:

$EO=@Map.SelectedObject
$PP=@Map.Object[$EO].Parameter[ID7000520]
$PC=@XML.NodeCount /Proprietors ProprietorInfo $PP
@if $PC<1 then @Goto %Exit
$I=0
$Res=
%Loop
$I=$I+1
$IsLE=@XML.NodeCount ProprietorInfo[$I]/Authentication LegalEntity $PP
@if $IsLE=1 then @Goto %LegalEntity
$LN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/LastName $PP
$FN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/FirstName $PP
$MN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/MiddleName $PP
@if $LN= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$LN $FN $MN
@Goto %Continue 
%LegalEntity
$N=@XML.XPath ProprietorInfo[$I]/Authentication/LegalEntity/Name $PP
@if $N= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$N
%Continue  
@if $I<$PC then @Goto %Loop
@if $Res= then @Goto %Exit
@Dialog.Message $Res
%Exit

fendak

Для співвласників земельної ділянки все працює. Не формує по суміжниках

$J=@Map.SelectedObject
$Param=@Map.Object[$J].Parameter[ID7001003]
$LastName=@XML.XPath NaturalPerson[2]/FullName/LastName $Param
@Dialog.Message $LastName

Мабуть, справа в тому, що в суміжниках користувачі-співвласники не мають спільного батьківського тегу.
<Proprietor><NaturalPerson>...</NaturalPerson></Proprietor><Proprietor><NaturalPerson>...</NaturalPerson></Proprietor>

Раніше користувався функцією $S=@Map.Object[$I].CalculateFormula XMP(Землі загального користування)
Але просто прізвищ та ініціалів не достатньо. Потрібно витягнути повну інформацію по кожному співвласнику (прописка і паспортні дані) по кожному суміжнику.

І як це зробити, не уявляю.

Dmitry_Zolotar

fendak писал(а):

Для співвласників земельної ділянки все працює. Не формує по суміжниках

$J=@Map.SelectedObject
$Param=@Map.Object[$J].Parameter[ID7001003]
$LastName=@XML.XPath NaturalPerson[2]/FullName/LastName $Param
@Dialog.Message $LastName

Мабуть, справа в тому, що в суміжниках користувачі-співвласники не мають спільного батьківського тегу.
<Proprietor><NaturalPerson>...</NaturalPerson></Proprietor><Proprietor><NaturalPerson>...</NaturalPerson></Proprietor>

Раніше користувався функцією $S=@Map.Object[$I].CalculateFormula XMP(Землі загального користування)
Але просто прізвищ та ініціалів не достатньо. Потрібно витягнути повну інформацію по кожному співвласнику (прописка і паспортні дані) по кожному суміжнику.

І як це зробити, не уявляю.

$J=@Map.SelectedObject
$Param=@Map.Object[$J].Parameter[ID7001003]
$LastName=@XML.XPath Proprietor[2]/NaturalPerson/FullName/LastName <root>$Param</root>
@Dialog.Message $LastName

Аналитика

Все про скрипти

Кто сейчас на конференции