Аналитика

Дуже дякую. Просто у VBA досить складно встановлювати зв'язок з Digitals. Я ще раз переконуюсь, що для вичитування даних з Digitals, та й для управління Word або Excel, легше, краще, швидше і зручніше використовувати Delphi, ніж безпосередньо VBA в Office.

При формуванні списку координат за допомогою скриптів він має такий вигляд (на зображенні). Функції скриптів обрізають нулі.

Як зробити, щоб на звіті в кінцевому результаті не з'їдало нулі? Як присвоїти числу числовий формат із двома/трьома символами після коми?

Трохи не так. Функції скриптів не обрізають нулі, бо функції скриптів оперують координатами як числами і не мають можливості вказувати формат, в якому число буде виглядати. Та й виглядати - де, в якій програмі?
Формат числа стосується відображення числа, а в скрипті Digitals нема можливості вказати формат для відображення числа чи запису його в текстовий файл. В якій програмі координати виводяться в певному вигляді - в тій програмі й формат вказувати треба.
Наприклад:
- при виведенні координат у шаблоні fr3 - встановленням властивостей текстових полів: memo.displayformat.formatstr:='%2.3f' (в темі про Fast Report);
- при виведенні координат в Excel - форматом комірок Excel.

ця табличка виводиться прямо в Digitals, в шаблонах DMT. Але формується за допомогою списків @Text.
Методами Вставка/Таблиця не вийде, якщо щось, бо таблиця не типова для Digitals

Виходить, раз скрипт Digitals заповнює поля таблиці, значить скрипт і має перебрати кожен знак в рядку, що являє собою число перетворене в рядок? Якщо після десяткового розділювача один знак - дописати два нулі, якщо два знаки - дописати один нуль, і тільки після цього закидати текст в таблицю? Мабуть треба писати скриптову функцію, на вході якої - число і кількість знаків після розділювача, на виході - текстовий рядок.

в принципі, можна й так, дякую.

Може комусь пригодиться:
$X=5.2
$X2d=@StringPart 2.$X
$Ld=@Calc Length("$X2d")
$Nol=0
@if $Ld=0 then $X=@Concat $X,.$Nol,$Nol,$Nol
@if $Ld=1 then $X=@Concat $X,$Nol,$Nol
@if $Ld=2 then $X=@Concat $X,$Nol
@Dialog.Message $X

Чи можливо функцією StringPart за раз відділити наприклад перші 5 частин якогось значення?

Так прямо функція не може витягнути відразу кілька частин. Але можна поступити двома варіантами:

;варіант 1
$Text=804,82457,Львівська,Дрогобицький,с.Добрівляни,вул.Шкільна,130,-,25
$P1=@StringPart 1,$Text
$P2=@StringPart 2,$Text
$P3=@StringPart 3,$Text
$P4=@StringPart 4,$Text
$P5=@StringPart 5,$Text
$Res1=$P1,$P2,$P3,$P4,$P5
;
;варіант 2 (за допомогою циклу)
$Res=
$N=0
$PartCount=@StringPartCount , $Text
%Start
$N=$N+1
@if $Res<> then $Res=$Res,
$Res2=@StringPart $N,$Text
$Res=$Res $Res2
@If $N>5 then @Goto %End
@If $N<$PartCount then @Goto %Start
%End
;
@Dialog.Message Варіант 1 - $Res1|Варіант 2 - $Res

В другому варіанті добавив пробіл між $Res $Res2 тому, що значеннями деяких з частин є цифри. І, якщо цього не зробити, то скрипт добавляє до попередньої перемінної ($Res) цифри, які у значенні наступної перемінної. На даному прикладі вийде замість перемінної $Res перемінна $Res804.

Для об'єднання в один рядок перемінних, значеннями яких є цифри слід використовувати функцію @Concat Str, розділяючи потрібні елементи комою
$Res=@Concat $Res,$Res2

або брати значення в лапки
$Res="$Res$Res2"
$Res=@DequoteText $Res

Можна більш детальніше розказати кди цей скрип вставити? Можливо є якесь відео? Бо тепер вимагають на кадастровому плану писати суміжні кадастрові номери ділянок..

Доброго дня.
Відгукніться, будь-ласка, хто користується "захистом текстів скриптів". Чи реально не дати користувачу можливості змінити і вичитати текст скрипта? Є якісь варіанти?

Доброго здоров'я всім!

Пане voha, теж зіткнувся із такою проблемою. Вирішив шляхом запису скриптів у бібліотеки (*.dsf). А на кнопку прикріпляється %Library.НАЗВА.dsf. Одним рядком. Сподіваюсь, допоможе.

Дякую.

Дякую. Це не забезпечує захист тексту скриптів від копіювання та зміни/заміни. Файл dsf легенько відкривається текстовим редактором. Треба ж щоб саме текст скрипта був не доступним користувачу, який знає де ховається текст скрипта. Якби так практичний приклад шифрування файла, та так щоб в жоден момент виконання скрипта не можна було його зупинити і відкрити записаний "на льоту" текстовий файл dsf. Так, щоб зрозумілим текстом з коду скрипта, для користувача який знає що таке мова скриптів Digitals, і не пахло.

Тільки от, не допомагає @Map.Selected.ChangeParameter, оскільки скриптова функція працює напряму зі значенням параметра, а не з полем значення параметра на вкладці "Інфо".

Маю кілька сот полігональних об'єктів, на межі кожного з них вставлені вузли - точкові об'єкти, номери яких в параметрі треба визначити окремо по кожному полігону. В такому випадку, перед номерацією вздовж кожного контура викликати вікно редагування значення параметра 25:Здавалося достатньо активувати параметр один раз, але ні! Перед кожною номерацією!

Очевидно таки треба мати окрему скриптову функцію @CalculatorValParam Mode Param [FirstValue], де Mode - спосіб номерації; Param - номер параметра, значення якого буде калькулюватись; [FirstValue] - необов'язковий параметр - початкове значення у разі послідовної номерації.

Кнопка

Вміст Digitals\Library\NumberSelectedSequential.dsf