[Андрей Могильный]

1. Все верно. Командой:
Set CoordSys Nonearth Units ""m"" Bounds (0.1, 0.1) ( 40000, 40000)
вы задаете проекцию, в которой работает ваша MapBasic-программа. Она может отличаться от проекций таблиц, например. Т.е. эта команда обязательна перед началом работы с координатами объектов в MapBasic-коде.
Если вы убираете предложение по координатной системе в Create Map, то карта у таблицы создается с проекцией по умолчанию в MapInfo, которой по-видимому у вас является Долгота/Широта.
2. Варианта 2.
2.1. Создавать объект не через связку Create Region + Alter Object. А сразу писать Create Region со всеми точками. Вариант трудновыполним в программировании, но все же.
2.2. В конце кода сделать полное пересоздание созданного региона, например, функцией конвертации в полилинию и обратно в полигон. Тогда центроид встанет на место у конечного полигона.

[xax_nv]

Андрей, большое спасибо!
По первому пункту теперь понятно. По второму пункту решил пойти путем создания полилинии и конвертации ее в полигон. Но тут возник еще один вопрос. Задаю для полилинии Pen (2,2, 16711680), при конвертации в полигон стиль меняется на стиль по умолчанию, хотя в Справочнике по MapBasic'у сказано, что "Сохраняются все значения стилей оформления объекта." Как задать стиль оформления полигона после конвертации? Попробовал такой вариант:
mi.do "Alter Object obj_region Info obj_info_pen, MakePen (2,2, 16711680)"
Пишет, что "В этом выражении нельзя использовать неинициализированную переменную object"

[Андрей Могильный]

Конвертировать нужно функциями MapBasic - ConvertToPline, ConvertToRegion. Согласно документации - "сохраняются все значения стилей оформления объекта. Недостающие атрибуты используются по текущим значениям стилей."
Т.е. потеряется только заливка полигона. Делается тоже стандатно - перед конвертацией считываете текущее значение заливки в переменную. После конвертации восстанавливаете его у объекта.

[xax_nv]

Андрей, добрый день!
Я и использую эти функции. Вот фрагмент кода:


mi.do "Create Region Into Variable obj_region 0 Pen (2,2, 16711680) Brush (1,0,16777215)"
For i = 1 To boss
mi.do "Alter Object obj_region Node Add (" & rs!obr5 & "," & rs!obr4 & ")"
nUch = rs!nUch
rs.MoveNext
Next i
mi.do "obj_pline=ConvertToPline(obj_region)"
mi.do "obj_region=ConvertToRegion(obj_pline)"
mi.do "Insert Into CurUch (Object,nUch) Values (obj_region," & Chr(34) & nUch & Chr(34) & ")"
mi.do "Commit Table CurUch Interactive"
mi.do "Map From CurUch"

Про заливку сейчас не говорю, но и стиль границы не сохраняется.
Возможно это зависит от версии MI, у меня 7.0

[xax_nv]

Приветствую всех!
Решил вернуться к началу топика.
Считываю координаты выделенного объекта из MapInfo в MS Access следующим кодом:

[Андрей Могильный]

Используйте географические операторы:
objectA Contains Entire objectB граница объекта B полностью лежит внутри границ объекта A;
objectA Entirely Within objectB граница объекта A полностью лежит внутри границ B;

т.е. берете нужный полигон, обходите в цикле все остальные полигоны в объекте и если есть полное попадание нужного полигона внутрь хотя бы одного, то можно считать что это дырка.

[xax_nv]

Андрей, а можно пример кода? Я с MapBasic'ом пока на "Вы".

[Андрей Могильный]

Не проверял:

[xax_nv]

Приветствую всех!
Как из MS Access объявить массив MI? На строку

[Андрей Могильный]

MapInfo.Do "Dim AP(0) As Object"

[xax_nv]

[xax_nv]

Приветствую всех!
И вновь поднимаю свой топик.

В MS Access создаю объект Полилиния, а затем конвертирую ее в Полигон. Координаты X и Y берутся из рекордсета, порядок координат протв часовой стрелки. А в итоге, когда полилиния замыкается, направление меняется на противоположное и, соответственно, в полигоне направление тоже становится по часовой стрелке. Если все эти операции проделываю вручную, то направление сохраняется против часовой стрелки. Или у меня ошибка в коде, или это особенность MB. Вопрос собственно в следующем, как мне получить направление обхода полигона против часовой стрелки, т.е. соответствующее порядку добавления координат.

[xax_nv]

Несколько упрощу вопрос:
Как программно изменить направление обхода полигона?
Забыл указать версию MI - 7.0

[Андрей Могильный]

Программно - написать алгоритм, который пересоздаст полигон в обратном порядке. Готовой функции в MapBasic нет.