Форумы GIS-Lab.info

Sibit писал(а):Про программу, даже и не знаю с чего начать

может, уговорить таки автора написать наконец, что за задача решается?

gamm писал(а):может, уговорить таки автора написать наконец, что за задача решается?

Да вроде очевидно - надо геокодировать табличку со встречами птиц по повыделенной базе. Способ определения места на мой взгляд странный, но это как задачу поставили.

если колонка I - это стороны света, то какую сторону света означает каждая цифра?
все значения, которые есть в этой колонке, такие:
"I"
""
"СТОРОНА КВАРТ."
"3"
"1"
"7"
"3,3,2/4"
"2"
"4"
"8"
"9"
"1,9,4/4,9,3/3"
"2/1,2,4;2/4"
"2/1,4;2/4"
"2/4;2/4"
"5"
"6"
"0.5"
"4,4,3/1"
"2,9,9,9"
"136,116,103,87"

sysrepos писал(а):если колонка I - это стороны света, то какую сторону света означает каждая цифра?
все значения, которые есть в этой колонке, такие:

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

sysrepos писал(а):если колонка I - это стороны света, то какую сторону света означает каждая цифра?

БД птиц явно дефектна. Возможно, записи добавлялись из таблиц с разной структурой. Или где-то на этапах импортов/экспортов перемешались разделители полей.

Несколько замечаний по обработке направлений в Конечном варианте.

Величины x3, y3 используются в параметрах CreateLine в качестве координат, что есть безумие. Они суть разности координат.
Нечто осмысленное получится, если заменить x3, y3 на cx, cy. И всё же схема направлений, демонстрирующая результат, вызывает некоторые сомнения. Первое: создание нулевого вектора для кода 9 с плохо предсказуемыми последствиями. Второе: вторичные направления (5-8) логично кодировать с СВ, а не с СЗ.
Не все кварталы в лесу близки по форме к квадрату. Для квартала, вытянутого вдоль меридиана или параллели, азимуты вторичных направлений будут далеки от предположительно ожидаемых 45, 135, 225 и 315 градусов.

Код: Выделить всё

БД птиц явно дефектна. Возможно, записи добавлялись из таблиц с разной структурой. Или где-то на этапах импортов/экспортов перемешались разделители полей.

Да, это проблема. Но другой базы просто никто не предоставил. Приходится работать с тем, что есть. Увы, это не единственный её недостаток.

Большое спасибо всем за советы, программа заработала, точки рисуются. У меня остался последний вопрос: когда на заключительном этапе вставляются точка и прилагающиеся данные, они разбиваются по информации из каждой колонки на строку. Лесенкой.То есть вот на такой код к одной точке будут прилагаться две частично заполненные строчки.

Код: Выделить всё

 Insert Into Результат (obj) Values (CreatePoint(ObjectNodeX(Storona,1,2), ObjectNodeY(Storona,1,2) ))
			Insert Into Результат (E) Values (Bio)
Insert Into Результат (J) Values (Videl)

Как исправить запрос, чтобы всё было в одной строке? Или использовать другой оператор?

попробуйте так:

Код: Выделить всё

Insert Into Результат (Obj, E, J) Values (CreatePoint(ObjectNodeX(Storona,1,2), ObjectNodeY(Storona,1,2) ), Bio, Videl )

раз у вас всё получилось, выложите код, интересно посмотреть всё таки, что в итоге должно быть

Поспешила я с "Всё получилось"... Всплыли два момента.

1.

Код: Выделить всё

Insert Into Результат (Obj, E, J, H, I, S) Values (CreatePoint(ObjectNodeX(oDirLine,1,2), ObjectNodeY(oDirLine,1,2) ), Biotop, Videl, Kvartal, Storona, Vid)

В колонку S данные Vid не вставляются. То есть числовые значения проходят на ура, а в колонке с текстовой информацией в таблице Результат идут только 0. Сама переменная Vid объявлена как строка, структуры колонок S в БД_птиц и Результате совпадают: символьный тип, 27 знаков.

2. Вдруг оказалось, что точки должны строиться только для вида Глухарь, т. е. Vid = Глухарь. И теперь я в непонятках, как и где прописать это условие.

Код: Выделить всё

 Fetch First From БД_птиц 
   Do While Not EOT(БД_птиц) '' Перебор строк

      Kvartal = Val(БД_птиц.H)      '' Квартал
      Videl = Val(БД_птиц.J)      '' Выдел
      Storona = Val(БД_птиц.I)      '' Сторона света
      Biotop = Val(БД_птиц.E)    "Биотоп
      Vid = Val(БД_птиц.S)     "Вид
    

      Select * From Выделы Where Поле2 = Videl And Номер_квартала = Kvartal Into temptab Noselect

      If  iDir < 1 Or iVdl < 1 Or iKvtl > 115 Then
         '' Нет такого квартала, выдела или стороны света
  Else         
rect_mbr = MBR(tmptab.obj)
И дальше идёт вычисление координат

Куда и как вставлять условие только для глухаря? Через Select одновременно с выделами? Но какой тогда там синтаксис, потому что программа у меня потребовала объединения таблицы Выделы и БД_птиц при попытке исправить запрос там.
Хотя в принципе, если решить первый момент, то потом можно будет просто в итоговой таблице сделать выборку для глухаря. Но хотелось бы, что это определялось сразу.

1. Заменить

Код: Выделить всё

 Vid = Val(БД_птиц.S)

на

Код: Выделить всё

 Vid = БД_птиц.S

Функция Val() преобразует строку в число.

2. Заменить

Код: Выделить всё

If  iDir < 1 Or iVdl < 1 Or iKvtl > 115 Then
         '' Нет такого квартала, выдела или стороны света
  Else         
rect_mbr = MBR(tmptab.obj)
И дальше идёт вычисление координат 
…

На

Код: Выделить всё

 If  iDir < 1 Or iVdl < 1 Or iKvtl > 115 Then
         '' Нет такого квартала, выдела или стороны света
  ElseIf Vid = “Глухарь”       
rect_mbr = MBR(tmptab.obj)
И дальше идёт вычисление координат
...

Функция Val() преобразует строку в число.

Тьфу ты, точно. Забыла совсем. Спасибо, исправила.

По поводу второго - я уже пробовала эту конструкцию и даже если программа компилируется, то при запуске выдаётся ошибка "Не определена переменная или поле Глухарь". Поэтому то и встала в тупик.

Код: Выделить всё

Select * From Выделы Where Поле2 = Videl And Номер_квартала = Kvartal And Vid = "Глухарь" Into temptab

Select * From Выделы Where Поле2 = Videl And Номер_квартала = Kvartal And Vid = "Глухарь" Into temptab

Vid относится к таблице БД_птиц.

В этом случае делают объединение таблиц:

Код: Выделить всё

Select * From Table1, Table2 ...

задавая условие объединения по уникальным полям:

Код: Выделить всё

... Where Table1.Kvartal = Table2.Kvartal And Table1.Vydel = Table2.Vydel ...

Таблица с нужной геометрией должна быть первой.
Условие можно усложнять:

Код: Выделить всё

... Where Table1.Kvartal = Table2.Kvartal And Table1.Vydel = Table2.Vydel And Table2.Vid = "Глухарь"...

И после этого мне будут говорить, что теория реляционных баз данных не относится к ГИС. Учите SQL!

Aphina писал(а):выдаётся ошибка "Не определена переменная или поле Глухарь"

В данном контексте такой ошибки быть не должно. "Глухарь" (в кавычках) - константа. Приведите пожалуйста весь код. Ну или хотя бы фрагмент от If до End If

ErnieBoyd писал(а):В этом случае делают объединение таблиц:
КОД: ВЫДЕЛИТЬ ВСЁ
Select * From Table1, Table2 ...

Да, это вариант. Но, по моему скромному мнению, излишне городить многотабличный запрос, когда человек с If ... Else разобраться не может.

Форумы GIS-Lab.info

Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic

Re: Очень нужна помощь с MapBasic