Аналитика

Вот за это моё большое Вам - Данке Шон.

а как задать вот такую цепочку событий?

@if $BID1=$BID11 then @if $BID2=$BID12 then @if $BID3=$BID13 then
@Map.SelectObject $J
@Map.SelectObject $I
@Map.Selected.AddToGroup Дубликаты

Просто тут идёт цепочка условий и нужно после неё выполнить цепочку команд.

Как-то так:

@if $BID1<>$BID11 then @Goto %Skip
@if $BID2<>$BID12 then @Goto %Skip
@if $BID3<>$BID13 then @Goto %Skip
@Map.SelectObject $J
@Map.SelectObject $I
@Map.Selected.AddToGroup Дубликаты
%Skip:

Цепочка команд будет выполнена только при соблюдении всех трех условий. Если хоть одно из условий не выполняется, то исполнение перескочит на метку Skip и обойдет команды.

А еще можно заранее просуммировать для обоих объектов все три параметра и тогда понадобится всего одно сравнение:

$S1=$BID1$BID2$BID3
$S2=$BID11$BID12$BID13
@if $S1<>$S2 then @Goto %Skip

Спасибо Работает

А это как это $S1=$BID1$BID2$BID3 работает
Какого типа эти параметры должны быть?

Если у меня они и числовые и строковые?

Спасибо.

Здесь параметры суммируются как строки (слияние строк), независимо от типа параметра.

Спасибо. Ясно.

Доброе утро.

Есть ещё один вопросик.

Нужно определять растояние между точками - можно ли реализовать такого рода функцию?
Я написала програмулинку, которая проверяет двойные точки и вертикальные вектора - а теперь нужно отыскивать находящиеся близко точки (в т.ч. числе вертикальные вектора имеющие небольшой наклон ) - функция генерализации в данном случае не очень помогает - есть точки, которые нужны - и их генерализация удаляет, а я - маркирую точки, которые "подозреваются" в очень близком месторасположении.

И ещё...

Как можно удалять ненужные точки из объекта - можно ли реализовать функцию удаления, вставки точек / в объект.

Спасибо.

При таком сравнении выдёт следующий результат:


Что делать?

Для удаления ненужных точек как нельзя лучше подходит генерализация. Насчет добавления точек, непонятно, что должна делать функция? Имеется функция для вставки точек с заданным шагом в контур объекта (Правка>Добавить точки). Есть команда вставки точек в виде отдельных объектов (закладка Правка кнопка Добавить узлы).



Сложный анализ, если требуется проверка всех объектов карты и всех точек объектов лучше не выполнять в скрипте. Во-первых, такой скрипт будет тяжело написать, во-вторых работать он будет очень медленно.

Используйте внешнее приложение, получающее данные от Digitals через набор TCP команд. И функции геометрического анализа лучше используйте свои. Подобное уже создавали наши пользователи Volod написал GedTools viewtopic.php?f=1&t=280&p=3053#3053. А это набор классов от Ивана Шубина, инкапсулирующих объекты Digitals viewtopic.php?f=1&t=908&p=5297#5297.

А функцию нахождения расстояния между двумя точками на Делфи я вам дам Хотя идею с вертикальными векторами, честно говоря, не понял.

идея, видимо, в том чтобы проверять те точки, которые вошли в окрестность недопустимой близости на плоскости OXY еще и на расхождение по высоте.

@Map.Object[$I].Point[$J].Add Point
@Map.Object[$I].Point[$J].Add Number

Есть точки - которые после работы скрипта обозначены как "лишние". Их нужно удалить. Или наоборот - добавить - но в автоматическом режиме.



Программка уже напсиана и работает - находит двойные точки и вертикальные вектора - 2 точки, имеющие одинаковые X и Y, но имеющие разные Z идущие подряд в одном линейном / полигональном объекте.

Мне надо послать из своей програмки в Дигиталс команду нажатия/отпускания клавиши.
стандартный KEYUP/KEYDOWN не работают. Немного пошаманив получилость что в Дигиталсе какието свои обработчики клавиатурных событий.
Подскажите пожалуйста что и в каком формате послать чтоб Дигиталс отреагировал на команду из вне.

Посмотрите тут viewtopic.php?p=4996#4996
Я думаю скоро IvanShubin выложит свой новый новатор viewtopic.php?p=3364#3364 - который будет ловить события и мыши, и клавиатуры.

Удачи.

Похоже разобрался во всем сам скоро покажу результат

Реализованы функции для добавления, вставки и удаления точек объекта:

@Map.Object[N].Delete StartPointIndex StopPointIndex
(при удалении одной точки второй индекс можно опустить)

@Map.Object[N].Add X Y Z
(если высота не указана, то она интерполируется из карты)

@Map.Object[N].Insert PointIndex X Y Z
(если высота не указана, то она интерполируется из карты)

Пример скрипта, демонстриующего манипуляции с точками:
(нужно пометить незамкнутый объект из 3-4 точек)

$S=@Map.NextSelected 0
@if $S=0 then Break Нужно пометить объект
$P1=@Map.Object[$S].Point[1]
$P2=@Map.Object[$S].Point[2]
@Map.Object[$S].Delete 1 2
@Map.Selected.Refresh
@Wait 1000
@Map.Object[$S].Insert 0 $P2
@Map.Object[$S].Insert 0 $P1
@Map.Selected.Refresh
@Wait 1000
@Map.Object[$S].Add $P1
@Map.Selected.Refresh
@Wait 1000
$C=@Map.Object[$S].Count
@Map.Object[$S].Delete $C
@Map.Selected.Refresh