Результат пересечения всех объектов одного слоя со всеми объектами другого слоя

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

 

Вообще-то несложно написать код подобной процедуры, но попробуйте это сделать сами.
Элементарная операция:
На слое А выделите объект. Выполните Объекты/Выбрать изменяемый объект. Теперь выделите пересекающий его объект на слое Б. Выполните Объекты/Удалить внешнюю часть.
Протокол выполнения этой операции найдете в окне MapBasic. Осталось только подумать как организовать цикл по объектам слоя А с использованием этой элементарной операции.
PS. Полезная книга«Программирование для MapInfo на примерах»(http://mapbasic.ru/download).

 

Вариант процедуры

Код:

sub itrs(byval tab1 as string,byval tab2 as string,byval pth_tab1_copy as string)
	 OnError Goto ex
	 dim strName as string
	 strName=TempFileName$(pth_tab1_copy)
	 pth_tab1_copy=Left$(strName,len(strName)-3) & "tab"
	 Commit Table tab1 As pth_tab1_copy TYPE NATIVE Charset "WindowsCyrillic" Interactive
	 Open Table pth_tab1_copy Interactive
	 dim tb1copy as string
	 tb1copy=PathToTableName$(pth_tab1_copy)
	 Add Map Auto Layer tb1copy
	 select * from tb1copy where str$(obj)="Region" into tb1copy2
	 Set Target On
	 select * from tb2 where str$(obj)="Region"
	 Objects Intersect Into Target
ex:
if err()>0 then note Error$() end if
OnError GoTo 0
End Sub

Здесь tab1, tab2 – имена таблиц;
pth_tab1_copy – папка в которой будет храниться таблица с результатом.
Обращение к процедуре

Код:

call itrs("tb1","tb2","C:\03")

 

прошу прощения, а не проще и быстрее это сделать простым запросом?!

 

Marik!, приведите пример такого запроса.

 

Код:

Select t1.g.STIntersects(t2.g)
From t1, t2

 

как пример:
есть два слоя на карте GREEN и WATER(парки и пруды), задача после оцыфровки выявить не накладываются ли слои между собой, в частности GREEN на WATER. SQL-запрос
из таблицы: GREEN, WATER(первым выбирается слой интереса) - выпадающее окно "таблицы"
с условием: GREEN.Obj Intersects WATER.Obj
(колонки) (операторы) (колонки)
Выдается таблица объектов и отмечаются объекты на карте.
все просто)
Если нужно найти объекты с определенной семантикой, то запрос усложняется в условиях.

 

Господа, посмотрите условие задачи

и сравните с тем, что получили вы.

 

перепутал, STIntersection

 

trir,
И как к MapBasic вы собираетесь это прилепить. Вопрос был вполне конкретный.

 

Ну вы и напридумывали)) Задача решается стандартными средствами Mapinfo, зачем писать какую-то программу? Нужно все объекты скопировать в один слой. Затем выделить все объекты. И команда "Объекты - Проверка полигонов - Обнаружение перекрытий - Найти". Мапинфо создает желтые полигоны на перекрытиях, выбираете их по стилю и сохраняете в новый слой. Готово!

 

И зачем писать какую-то программу, а люди все пишут и пишут.
Действительно многие операции можно выполнить, используя лишь штатные средства MapInfo. Для рассматриваемой задачи распишу всю процедуру пошагово:

1. Выбрать все площадные объекты на слое А.
2. Выполнить операцию "Сохранить копию" для выборки Selection.
3. Загрузить эту копию (В).
4. Выбрать все площадные объекты на слое Б.
5. Выполнить копирование этой выборки и вставку ее на слой В.
6. Выбрать все объекты на слое В.
7. Выполнить "Объекты/Проверка регионов/Обнаружение перекрытий"
8. Для выделенных перекрытий выполнить операцию "Сохранить копию"
9. Загрузить эту копию.
10. Удалить таблицу В как уже не нужную.

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

 

Есть похожая проблема. Имеем трассу нефтепровода и очень большое количество земельных участков, стоящих на кадастровом учете. Необходимо выбрать все пересечения нефтепровода с участками. Буду признателен за подходящие идеи.

 

1. грузим слои в БД
2. выполняем запрос с STIntersects или STIntersection

 

Кажется совсем не сложно. А можно поподробнее, что такое БД, и как выполнить запрос. Заранее благодарен.

 

https://ru.wikipedia.org/wiki/Пространственная_база_данных

http://npk-kaluga.ru/Util_EasyLoader.htm

 

Добрый день!
У меня похожая проблема, есть линейный объект "кабельная линия" в одной таблице и есть земельные участки стоящие на кадастровом учете в другой таблице.
У меня стоит задача составить перечень участков по которым проходит кабельная линия.
Совсем не разбираюсь в базах данных.
Нет ли какого нибудь готового запроса в мапинфо для этого?
Может с помощью SQL-запроса, только что там писать?

 

Select * from tbl1, tbl2 where tbl1.geom.STIntersects(tbl2.geom)

 

Подскажите что делаю не так.
Выдает ошибку "Не определена переменная или поле Select"

 

Добрый день! есть два слоя ! 1 кварталы, 2 ЗУ . задача такая найти ЗУ пересекающие 2 квартала и их площадь пересечения?