Проверка на прямолинейность. Речь идет о опорах ЛЭП. Имеется некая полилиния, в ее вершинах внутренние углы близки к 180 градусов. Необходимо
Доброго дня. Якщо по пунктах, тодi наступне:
; -------------------------------------------------------------
; Знайти відхилення вершин полілінії від вищевказаного відрізка
; -------------------------------------------------------------
$Obj=@Map.SelectedObject
@If $Obj=0 @Break
; -------------------------------------------------------------
; шар, в який записуються створенi перпендикуляри
$PLayer=3
; -------------------------------------------------------------
@Text[1].Clear
$Count=@Map.Object[$Obj].Count
@While $Count>0 %LoopPoints
$Pnt=@Map.Object[$Obj].Point[$Count]
; шукаємо найближчий об'єкт до вибраного
$NObj=@Map.NearestObject 0 $Obj $Pnt
@If $NObj=0 Then @Goto %SkipPoint
$NPnt=@Map.PerpendicularToNearestLine $Pnt $NObj $PLayer Reverse
@If $NPnt<>1 Then @Break Помилка створення перпендикуляра до лiнiї
$ObjN=@Map.Count
$ObjID=@Map.Object[$ObjN].ID
$Len=@Map.Object[$ObjN].LineLength[1]
;
$Line=$Count - $Len
@Text[1].Add $Line
;
%SkipPoint
$Count=$Count-1
%LoopPoints
@Window.Refresh
$Buf=@Text[1].Text
@Dialog.Message $Buf
;Доброго дня розробникам.
Чи можна, для зручності, додати скриптову функцію Text[N].Split String Delimiter, яка присвоїть значення масиву N, розділивши рядок String на елементи масиву по рядку Delimiter, і поверне кількість елементів масиву 
Чемно дякую за постійну підтримку програми.
Додано нові скриптові функції в ged.exe:
@Text[N].DelimitedText [String] - виклик функції без аргумента повертає вміст строкового списку розділеного символом. Розділовий символ за замовчуванням - “,” (кома), виклик функції з аргументом змінює вміст строкового списку розбиваючі на частини по розділовому символу аргумент та повертає кількість строк у списку. Функція @Text[N].Text працює аналогічно, але з постійним розділовим символом - перенос строк #13
@Text[N].Delimiter [Char] - функція без аргумента повертає, з аргументом змінює розділовий символ, який використовується функцією @Text[N].DelimitedText.
Приклад використання:
$S=кукурудза,кукумбер,морква,цибуля
$Count=@Text[1].DelimitedText $S
@Dialog.Message $Count
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
@Text[1].Delimiter $Tab
$TabedText=@Text[1].DelimitedText
@Dialog.Message $TabedText
Возможно ли в меню “Обработка inpho PRJ файла” добавить возможность автоматической сортировки по папкам маршрутов, или, хотябы чтобы добавлялся префикс с номером маршрута в названии файла.
Есть ли возможность добавить загрузку грунтов из Портала нормативной денежной оценки, с возможностью просмотра агрогруп?
Добрий день!
Чи можна відновити роботу скриптової функції @Map.GetPublicMapQuarterInfo так, як відновили @Map.GetPublicMapParcelInfo?
Доброго вечора, допоможіть з копіюванням даних при відкриті “Правка | Свойства объекта…”
Хочу скопіювати наступне, Наприклад: Від А до Б - землі загального користування (вулиця) /
від Б до В - землі гр. Сапога О. / …
Добрий вечір!
Функція @Map.GetPublicMapParcelInfo якось самовільно визначає собі кадастрові номери то за 50 метрів вбік, то за 500 метрів вбік
18:15:43.569 $Res=MAP.GETPUBLICMAPPARCELINFO 5450474.50423392 1305874.10621715
18:15:46.002 4621283300:07:000:0011
18:15:46.173 $Res=MAP.GETPUBLICMAPPARCELINFO 5450458.44340374 1305908.47795398
18:15:48.779 4621283300:01:001:0091
Спробуйте:
$Res=@Map.GetPublicMapParcelInfo 5450474,50 1305874,10
@Dialog.Message $Res
Бере кадастровий номер, який за 500 метрів від точки 5450474,50 1305874,10
З чим це може бути пов’язано?
Так, є проблема. Раніше по координатам видавалась відповідь НКС і ця відповідь була однозначною: є в цій точці ділянка чи немає. Зараз можемо тільки центроід найближчої ділянки отримати, можна якось відсікати по відстані, але не гарантована правильна відповідь(
Добрий день!
Підкажіть, як (якою функцією) серти значення параметра?
Потрібно скриптом стирати не вірно заповнені кадастрові номери. І, як це не дивно, не можу ніяк цього зробити.
@Map.Object[$I].Parameter[ID7001000]= не спрацьовує. Після = ставив різні “пусті” символи - також не спрацьовує. Пробіл не підходить, бо параметр має бути абсолютно порожнім.
Може є якась комбінація типу @Map.Object[$I].Parameter[ID7001000]=clear? Якщо ні - то додайте, будь ласка.
попробуйте
@Map.Selected.ChangeParameter ParameterIndex Value
Value - без значення, але перед ним залишаємо пробіл
Працює. Дякую!
@Map.Object[$I].Parameter[ID7001000] $NONE
А можно реализовать функционал, чтоб при привязке собираемого объекта к уже существующим было видно к какому слою происходит привязка. Иногда бывает очень нужная штука.
З функцією @Map.Object[N].ClosedComplex щось не так. Вона завжди повертає значення 1
Не критично, бо використовую взамін @Map.Object[N].Closed. Просто помітив, що вона не працює.
Чому у новій версі програми частина коду світиться червоним?
Ніби нормальний код, скрипт працює.
Здається редактор скриптів удосконалюється розробниками на предмет перевірки синтаксису.
Ймовірно передбачено, що індекс параметра в коді повинний подаватися змінною (із початковим символом $) або абсолютним значенням (наприклад ID1000).
Скажите этот вопрос уже как-то реализован? Может есть какой-то самопальный скрипт?
Добрый день. а можно ли доработать функцию @Map.SelectByParametersSelected
Можно ли сделать так чтобы можно было указывать список значений параметра для выделения множества объектов из уже помеченных
Например: @Map.SelectByParametersSelected 1|ID10=1|ID10=2|ID10=5|ID10=трололо и т.д… Соответственно выделяются из уже помеченных объектов объекты со значениями параметра ID10=1, ID10=2 и т.д.