Запрос на функцию

EIKovtun · 21.10.2013 09:41:07

Є ще одне питання, який мені потрібно добавити скрипт?, у мене є виноска, інформації по колодязям водопроводу, ну коли я міняю якусь інформацію в колодязі у виносці не міняє, як щоб виноска автоматично обновлялась коли відбуваються зміни у колодязі, допоможіть:

%Events.OnCollect
$S=@EventObject
@If $S<=0 then @Break
$X=@Map.Object[$S].Point[2].X
$Y=@Map.Object[$S].Point[2].Y
$P=@Map.PointObject 0 $X $Y
@If $P<=0 then @Break
;
$T=@Map.Object[$S].Point[1].Y
$T=$T-$Y
@If $T>0 then @Map.Object[$S].Parameter[9] Зправа else @Map.Object[$S].Parameter[9] Зліва
;
$T=@Map.Object[$P].Parameter[4]
@Map.Object[$S].Parameter[4] $T
$T=@Map.Object[$P].Parameter[43]
@Map.Object[$S].Parameter[43] $T
$T=@Map.Object[$P].Parameter[46]
@Map.Object[$S].Parameter[46] $T
$T=@Map.Object[$P].Parameter[47]
@Map.Object[$S].Parameter[47] $T
@Map.RefreshObject $S
@Map.SelectObject $P
@Map.Selected.BringToFront
@Map.DeselectObject $P

system · 22.10.2013 14:23:58

Корисною в скриптах є функція запуску сценарію контроля @RunControlScript Filename. Запустив сценарій - отримав протокол, читай собі в скрипті та роби з цими об’єктами що заманеться. Тут протокол - наче результат функціонального скрипта, а ми його - грубо “на екран” для виправлення “руками”. А як мені треба відловлені об’єкти в скрипті й опрацювати?

Звідси питання: чи можна зробити до вказаної функції параметр - завантажувати чи не завантажувати вікно Протокол контроля . Краще, якщо вікно Протокол контроля буде завантажуватись лише при наявності помилок і при значенні параметра функції 1. Не треба відображати вікно Протокол контроля якщо значення параметра функції 0. Не треба відображати вікно Протокол контроля якщо помилок не знайдено, навіть якщо значення параметра функції 1.

kukin · 22.10.2013 19:32:57

Просьба сделать отрисовку в дигиталсе командой Сбор/Список используя текстовый файл, описывающий слой сбора, параметр по которому выполняется отрисовка, номера точек, и дополнительные параметры (коды для точек или линий)
Требуется для полноценной работы с тахеометрами которые отрисовывают в поле(Leica на базе SmartWorx ), так-же для отрисовки теодолитных ходов из полевых контроллеров.
пример файла:
//Leica System 1200 Data Export
//line ID Point ID Point Code Line Code
Line0001 2 DOROGA —
Line0001 3 DOROGA —
Line0001 4 DOROGA —
//line ID Point ID Point Code Line Code
Line0002 5 — BUD
Line0002 6 — BUD
Line0002 7 — BUD
//line ID Point ID Point Code Line Code
Line0003 8 — BUD
Line0003 9 — BUD

line ID - номер слоя
Point ID - номер параметра по которому выполняется отрисовка
Point Code - коды которые можно присвоить точкам по которым отрисовывается (не обязателен, но желателен)
Line Code - код который присваивается линии

system · 23.10.2013 03:41:23

Питання на зустріч: Ви уважно перечитали ВЫНОСКА К ПОДПИСИ?

Bondarets_Alexander · 23.10.2013 07:37:31

Добавлена функция

@Map.InsertNomenclatureFrames Scale SK42/SK63 Layer Parameter [OnlyFullyInside]

Scale - знаменатель масштаба, допустимые значения: 2000, 5000, 10000, 25000, 50000, 100000, 200000
SK42/SK63 - система координат номенклатурных рамок, нужно указывать или SK42 или SK63.
Layer - номер или ID слоя для вставки номенклатурных рамок
Parameter - номер или ID параметра для записи значения номенклатуры
OnlyFullyInside - если задано, вставляются только номенклатурные рамки полностью попадающие внутрь помеченных полигонов.

Функция работает с помеченными полигонами или полилиниями. Номенклатурные рамки вставляются внутрь помеченных полигонов или вдоль полилиний.

Пример использования:

@Map.InsertNomenclatureFrames 10000 SK63 1 1 @Window.Refresh

system · 24.10.2013 03:14:48

Якщо вважаєте за недоцільне, можна просити за наступне: скриптова функція @Dialog.WaitBox - “Выводит немодальное окно c сообщением и приостанавливает выполнение скрипта”, не вистачає кнопки “зупинити” поряд з кнопкою “продовжити”.

Буду в циклі скрипта знаходити об’єкти карти з перевіркою на певну умову. Якщо умова не дотримується - зупиняю скрипт (@Dialog.WaitBox) з можливістю виправити об’єкт. Але треба дати можливість взагалі не виправляти об’єкти. Тобто, є недотримання умов, припустим для 100шт об’єктів, але мені, для подальшої роботи, такі “помилки” виправляти не є необхідним (не критичні помилки). Треба було-б не зупинятись в скрипті 100 раз, а просто натиснути “зупинити” у вікні WaitBox.

Функція @Dialog.WaitBox має повертати результат: 0 - якщо користувач натиснув кнопку “зупинити”, 1 - якщо було натиснуто кнопку “продовжити”.

EIKovtun · 30.10.2013 10:53:35

Прочитав уважно ну у мене не виходить нічого коли я добавляю “прописать на колодец и выноску по событию OnChange, чтобы при изменении параметра одного объекта менялись и параметры другого”

EIKovtun · 01.11.2013 11:48:15

Скиньте будь-ласка приклад: коли при зміні певної інформації в колодязі вона автоматично змінюється в уже створеній до цього колодязя виносці!!! Дякую!!!

sasa · 05.11.2013 21:36:04

Возможность может быть и существует, ткните где читать если пропустил.
Выполненные съемки и схемы планового обоснования (не только свои) копируются в один общий файл, объекты кидаются из слоя в слой. Возникает одна проблемка - есть пустые слои (ни одного объекта) и слои с огромным количеством пустых параметров. Вручную приводить в порядок довольно нудно. 1 Скрипт - удалить слой, если нет объектов, 2 скрипт - удалить параметры если во всех объектах они пустые или возможность группового выделения и удаления параметров из всех слоев

Dmitry_Zolotar · 06.11.2013 13:39:39

$LC=@Map.Layers.Count
$I=$LC
%Loop
@Map.Layers.Delete $I Safe
$I=$I-1
@if $I>0 then @Goto %Loop

Dmitry_Zolotar · 06.11.2013 15:09:14

;Скрипт удаляет из карты параметры, которые недоступны ни одному из слоев
$PC=@Map.Parameters.Count
$S=@Map.Parameters.List
@Text[1].Text $S
$LC=@Map.Layers.Count
$I=0
%Loop1
$I=$I+1
$S=@Map.Layers.GetValidParameters $I
$VPC=@StringPartCount $S
@if $VPC<2 then @Goto %Continue
$J=1
%Loop2
$J=$J+1
$VP=@StringPart $J $S
@if $VP>0 then @Text[1].Line[$VP] ~
@if $J<$VPC then @Goto %Loop2
%Continue
@if $I<$LC then @Goto %Loop1
$I=$PC
%Loop3
$S=@Text[1].Line[$I]
$S=@Calc copy(“$S”,1,1)
$S=@DequoteText $S
@if $S<>~ then @Map.Parameters.Delete $I
$I=$I-1
@if $I>0 then @Goto %Loop3

Dmitry_Zolotar · 06.11.2013 15:51:28

$PC=@Map.Parameters.Count
$S=@Map.Parameters.List
@Text[1].Text $S
$OC=@Map.Count
@if $OC=0 then @Break Нет объектов в карте
$I=0
%Loop1
$I=$I+1
$OL=@Map.Object[$I].Layer
$S=@Map.Layers.GetValidParameters $OL
$VPC=@StringPartCount $S
@if $VPC<2 then @Goto %Continue
$J=1
%Loop2
$J=$J+1
$VP=@StringPart $J $S
@if $VP<1 then @Goto %NextParam
$ParamValue=@Map.Object[$I].Parameter[$VP]
@if $ParamValue<> then @Text[1].Line[$VP] ~
%NextParam
@if $J<$VPC then @Goto %Loop2
%Continue
@if $I<$OC then @Goto %Loop1
$I=$PC
%Loop3
$S=@Text[1].Line[$I]
$S=@Calc copy(“$S”,1,1)
$S=@DequoteText $S
@if $S<>~ then @Map.Parameters.Delete $I
$I=$I-1
@if $I>0 then @Goto %Loop3

user247 · 06.11.2013 19:41:54

извините за таки глупый вопрос, а как этими скриптами пользоваться?

system · 06.11.2013 19:55:46

Читати

user247 · 06.11.2013 20:10:49

Спасибо

paul · 07.11.2013 05:32:59

Подскажите, можно-ли чтобы при вставке объектов в существующую карту из любой другой (через буфер или через Вставка|Карта) вставлялись только объекты, без параметров?

Dmitriy_Fedorov · 07.11.2013 13:47:21

Через вставка карта
Попробуйте Вставка - Карта в шаблон. Вставляться будут только те слои и параметры, которые существуют в целевой карте.

2.Через буфер обмена
Команда Специальная вставка - Только контур и правда бы не помешала.
Можно выкручиваться таким образом:

копируем в буфер
вставляем на пустую без слоев (создать - чистая)
убираем все параметры, назначенные слою (инфо - двойной щелчек по метке Параметры), снова копируем, вставляем куда надо
или, если и слой сохранять не нужно
переводим на default layer, снова копируем, вставляем куда надо, переводим на нужный слой.

paul · 08.11.2013 05:34:30

Спасибо, Дмитрий. Отличная функция Вставка|Карта в шаблон, как-то подзабыл о ней. Работает как часики. А вот с буфером, конечно, не все просто. Уже давно приходиться “кувыркаться” с пустыми картами, удалением параметров и т.д. Наверное нужен скрипт…

EIKovtun · 11.11.2013 10:39:59

Увидел что вийшла новая функция по скрипту
"Подбор нужного значения площади участка
В язык скриптов добавлена функция @Map.AdjustObjectArea, автоматически подбирающая такое положение точек участка, при котором его площадь точно равняется заданной. Длины линий (округленные до сантиметров) при этом не изменяются.
Маркированные точки исключаются из подбора и всегда сохраняют свое исходное положение.
Пример скрипта для подбора площади помеченного участка:
$N=@Map.NextSelected
$A=@Map.Object[$N].Parameter[0]
$A=@Dialog.Ask Новая площадь Default=$A
$S=@Map.AdjustObjectArea $N $A 0.005 "
Подскажите как его правельно сделать, можете скинуть пример как он работает???
А то что-то не роботает???
изменить площадь.bmp (3.22 MB)

_1981 · 11.11.2013 12:37:45

удали пробелы после строк))