MapBasic. Руководство пользователя
Подождите немного. Документ загружается.
Глава 9: Графические объекты
MapBasic Руководство пользователя
189
Работа с колонкой “Obj"
Специальная колонка с названием Obj предназначена для хранения
информации о графических объектах таблицы. Каждая таблица,
которой сопоставлены графические объекты, содержит колонку Obj,
хотя колонка Obj и не показывается обычно в окне Списка. Обратиться
к этой колонке можно следующим образом: имя_таблицы.obj или
имя_таблицы.object.
В следующем примере объявляется переменная типа Object
(current_state), а затем копируется первый объект из таблицы STATES
в эту переменную.
Dim current_state As Object
Open Table "states"
Fetch First From states
current_state = states.obj
С колонками графических объектов можно осуществлять те же
операции, что и с обычными колонками. Можно использовать колонку
объектов в SQLзапросах, производить обновление (Update) значений
(объектов) в такой колонке, присваивать содержимое колонки
переменным. Ниже в примере создается таблица, содержащая
сокращенные названия штатов и их площади; колонка Obj
используется в качестве одного из параметров функции Area( ):
Select state, Area(obj, "sq mi")
From states
В следующем примере создается таблица из одной записи, которая
содержит общую длину шоссейных дорог штата California (в милях):
Select Sum(ObjectLen(obj, "mi"))
From highways
Where obj Within (Select obj From states Where
state = "CA")
Некоторым записям не соответствуют объекты на карте. Например,
если Вы станете геокодировать свою базу данных в MapInfo, то в
процессе геокодирования некоторым записям таблицы будут
сопоставляться точечные объекты; тем же записям, которые не были
геокодированы, не будет сопоставлено никакого объекта на Карте.
Чтобы выбрать записи, которым не соответствуют графические
объекты, используйте условие Not obj в предложении Where оператора
Select. Вот пример оператора, выбирающего все записи, которым не
сопоставлены объекты на Карте:
Select *
From sites
Глава 9: Графические объекты
190 MapBasic Руководство пользователя
Where Not obj
Создание колонки Object
Не все таблицы отображаются на Карте. Например, если в качестве
таблицы Вы используете файл базы данных или электронной таблицы,
подготовленный не в MapInfo, то такую таблицу сначала нельзя
увидеть в окне Карты. Чтобы отобразить такую таблицу на Карте,
следует выполнить оператор Create Map, который добавляет к таблице
колонку графических объектов (Object).
Чтобы удалить колонку Obj из таблицы, выполните оператор Drop
Map. Запомните, что Drop Map удалит колонку объектов полностью.
Иногда Вам может потребоваться удалить лишь некоторые объекты из
таблицы, не убирая совсем колонку Obj; этот процесс называется
“раскодированием" таблицы. Для удаления не колонки Obj, а значений
из нее, используйте оператор Delete Object.
Чтобы определить, имеется ли в таблице колонка графических
объектов, вызовите функцию TableInfo( ) с параметром
TAB_INFO_MAPPABLE.
Ограничения, накладываемые на колонку Object
На колонки графических объектов накладываются некоторые особые
ограничения. В частности, в каждой таблице может быть только одна
колонка графических объектов. При создании выборки с
объединением двух таблиц, обе из которых имеют колонку Object,
результирующая таблица содержит только один из графических
объектов (объект из той таблицы, которая указана первой в
предложении From оператора Select).
Следующий пример показывает, как осуществить запрос к двум
таблицам, имеющим графические объекты: таблице STATES и таблице
OUTLETS, которая содержит точечные объекты, обозначающие
предприятия розничной торговли. В предложении From оператора
Select указываются названия обеих таблиц. Но поскольку таблица
STATES указана первой, результирующая таблица содержит
графические объекты из таблицы STATES.
Select *
From states, outlets
Where states.state = outlets.state
Map From selection
Если в приведенном примере в предложении From указать первой
таблицу OUTLETS (см. ниже), то оператор Select создаст таблицу,
содержащую точечные объекты (торговые предприятия), а не границы
штатов:
Select *
Глава 9: Графические объекты
MapBasic Руководство пользователя
191
From outlets, states
Where outlets.state = states.state
Map From selection
Каждой записи таблицы может соответствовать не более одного
графического объекта. Поэтому графические объекты могут быть
составными. Объект типа "область" может состоять из нескольких
многоугольников (полигонов); так что группу островов можно
представить единым графическим объектом (областью). Аналогично, и
ломаная может состоять из нескольких сегментов. Чтобы определить,
из скольких многоугольников состоит область или из скольких
сегментов состоит ломаная, выберите этот объект и выполните команду
MapInfo П
РАВКА > ГЕОИНФОРМАЦИЯ. Чтобы определить те же
параметры в программе, используйте функцию ObjectInfo( ) с кодом
TAB_INFO_NPOLYGONS.
Определение атрибутов объекта
Таблица MapInfo может содержать разные типы графических
объектов. Скажем, карта города может состоять из линий и областей.
Чтобы определить тип графического объекта, обратитесь к функции
ObjectInfo( ) с параметром OBJ_INFO_TYPE. Подробно функция
ObjectInfo( ) описана в Справочнике MapBasic.
При работе с окном MapBasic в режиме диалога имеются и другие
способы узнать тип графического объекта. Например, можно
выполнить следующий оператор в окне MapBasic, чтобы выдать окно
сообщения с типом объекта:
Fetch First From world
Note world.obj
Следующий оператор выбирает все объекты типа Text из окна Отчета.
Select *
From Layout1
Where Str$(obj) = "Text"
Чтобы узнать географические координаты объекта, обращайтесь к
функции ObjectGeography( ). Например, если Вы хотите определить
координаты X и Y концов линейного объекта, вызовите функцию
ObjectGeography( ). Процедура определения координат узлов ломаной
или области сложнее, поскольку число узлов может быть
произвольным. Для определения координат узлов ломаной или
области используются функции ObjectNodeX( ) и ObjectNodeY( ).
Положение центроида объекта определяется с помощью функций
Centroid( ) или CentroidX( ) и CentroidY( ). Минимальный описанный
прямоугольник для объекта можно найти с помощью функции MBR( ).
Глава 9: Графические объекты
192 MapBasic Руководство пользователя
Другие атрибуты графических объектов возвращает функция
ObjectInfo( ). Например, после операции над графическими объектами
из таблицы и присвоения значения выражения переменной типа
Object, можно вызвать ObjectInfo( ), чтобы определить тип объекта
(линия, область и т.д.), либо обратиться к ObjectInfo( ), чтобы
скопировать стиль объекта (Pen, Brush, Symbol или Font). Для
текстовых объектов ObjectInfo( ) выдает надпись, хранящуюся в
текстовом объекте.
Многие стандартные функции языка MapBasic в качестве одного из
аргументов используют графические объекты, возвращая при этом
различные характеристики объектов. Например, функции Area( ),
Perimeter( ) и ObjectLen( ) используют графические объекты в качестве
параметров. Ниже в примере вычисляется площадь зоны затопления
(flood – потоп, затопление, наводнение):
Dim floodarea As Float
Open Table "floodmap"
Fetch First From floodmap
floodarea = Area(floodmap.obj, "sq km")
Внимание: Обратите внимание, что подписи это не то же что и
текстовые объекты. Запрашивая текстовый объект, Вы
вызываете функциии типа ObjectInfo( ). Запрашивая подпись,
Вы вызываете такие функции, как Labelinfo( ).
Стили объектов (Pen, Brush, Symbol, Font)
Каждый графический объект имеет один или несколько параметров,
условно называемых стилем. Например, каждая линия имеет стиль
Pen ("перо"), который определяет цвет линии, ее толщину и тип (или
шаблон, скажем, пунктирная или непрерывная), каждый точечный
объект имеет стиль Symbol, который определяет вид символа, его цвет
и размер. Замкнутые (или площадные) объекты, такие как области,
имеют стиль Pen, а также стиль Brush (штриховка).
В данной таблице приведены определения четырех стилей объектов.
Pen толщина, тип и цвет линии
Brush шаблон, основной цвет и цвет фона для внутренней части области
Font название шрифта, тип, размер, цвет, фон; для текстовых объектов
Глава 9: Графические объекты
MapBasic Руководство пользователя
193
Для получения подробной информации о стилях обратитесь к разделам
Brush clause, Font clause, Pen clause и Symbol clause в Справочнике
MapBasic и интерактивной справке.
Язык MapBasic имеет различные операторы и функции для создания
объектов (таких как оператор Create Text, функция CreateLine( )).
Каждый из операторов создания объектов имеет дополнительные
предложения для настройки стилей для такого объекта. Например,
оператор Create Line имеет дополнительное предложение Pen
позволяющее настроить стиль линии. Если оператор создания объекта
применяется ьез указания стиля, то MapInfo присваивает объекту
текущий стиль.
Внимание: Вы не можете использовать оператор =, чтобы сравнить
два стиля. Например, следующая программа, которая
пытается сравнивать две переменные типа Brush, генерирует
ошибку времени выполнения
.
Dim b1, b2 As Brush
b1 = MakeBrush(2, 255, 0)
b2 = CurrentBrush()
If b1 = b2 Then
Note ”Два шаблона заполнения одинаковы.”
End If
Сли надо сравнить два стиля, используйте функцию Str$( ) для
конвертации каждого силя в строковое выражение. Например
следующий оператор сравнивает две переменные типа Brush:
If Str$(b1) = Str$(b2) Then
Если надо сравнить специфические элементы стиля (посмотреть,
имеют ли два стиля Symbol один и тот же размер), используйте
функцию StyleAttr( ) для извлечения индивидуального элемента стиля
(цвет и др.), и затем сравните отдельные элементы.
Symbol В MapInfo 3.0: вид, цвет, размер.
Для символов из шрифтов TrueType: вид, цвет, размер, имя
шрифта, стиль (например, курсив), параметры поворота.
Для пользовательских символов, основанных на файлах с
растровыми картинками: имя файла, цвет, размер и атрибуты
стиля.
Глава 9: Графические объекты
194 MapBasic Руководство пользователя
Стили Шрифтов
Каждый текстовый объект имеет стиль (начертание). Стиль шрифта
включает сам шрифт (например Times, Roman или Baltica), стиль
текста (например полужирный, курсивный, и т.д.) и цвет. Стиль
шрифта также содержит информацию о размере; однако, размер
иногда игнорируется. Следующий список суммирует, как размер
шрифта Font действует на различные типы текста.
• Когда Вы создаете текстовый объект в окне Отчета, размер
шрифта управляет высотой текста. Если стиль шрифта
указывает размер 10 пунктов, текстовый объект определен как
10–пунктовый текст. Текст может не отображаться на экране
высотой в 10 пунктов, но когда Вы напечатаете Отчет, высота
текста будет 10 пунктов.
• Когда Вы создаете текстовый объект в окне Карты, MapInfo
игнорирует размер шрифта. В этой ситуации высота текста
определяется координатами карты, которые Вы устанавливаете
в операторе Create Text. Когда Вы выполняете оператор Create
Text, Вы указываете координаты x и y, которые определяют
прямоугольную область на карте; текстовый объект заполняет
эту область. Изза этого текстовые объекты, сохраненные в
“графической” таблице, будут становиться большими, если Вы
увеличиваете, и меньшими, если Вы уменьшаете окно Карты.
• Когда Вы используете функцию CreateText( ) для создания
текстового объекта на карте, текущий размер шрифта в пунктах
управляет начальным размером текста. Таким образом,
увеличение масштаба приводит к увеличению размера текста.
• Когда Вы создаете подпись в окне Карты, размер шрифта
управляет высотой текста. Текст отображается на экране и
печатается с указанной высотой. Обратите внимание, что
подписи ведут себя подругому, чем текстовые объекты,
сохраненные в таблице. Подписи обсуждены позже в этой главе.
Начертание шрифта включает имя шрифта, типа Courier или
Helvetica. Имена шрифтов могут отличаться на различных аппаратных
платформах; например, Geneva – общее имя шрифта на Macintosh, но
не на других платформах. Helv и TmsRmn (или Times New Roman) в
среде Microsoft Windows называются Helvetica и Times на платформах
Sun и Macintosh. Helvetica, Times и Courier распознаются в
предложении MapBasic Font независимо от текущей платформы.
Глава 9: Графические объекты
MapBasic Руководство пользователя
195
Переменные стилей
В MapBasic имеются переменные стилей следующих типов: Pen, Brush,
Symbol и Font, что соответствует стилям графических объектов.
Присвоить значение переменной стиля можно четыремя способами:
•Создать стиль с помощью MakePen( ), MakeBrush( ),
MakeSymbol( ), MakeFont( ), MakeCustomSymbol( ) или
MakeFontSymbol( ), а затем присвоить его переменной стиля.
Перечисленные функции позволяют явно задать нужный стиль.
Так, в программе SCALEBAR из набора примеров MakeBrush( )
используется для построения штриховок из черного и белого
цветов, которые используются для рисования шкалы.
•Вызвать CurrentPen( ), CurrentBrush( ), CurrentSymbol( ) или
CurrentFont( ) и присвоить значение функции переменной
стиля. Указанные функции возвращают текущие стили (т.е. те
стили, которые показываются в диалогах MapInfo Н
АСТРОЙКА >
С
ТИЛЬ ЛИНИЙ, СТИЛЬ ОБЛАСТЕЙ, СТИЛЬ СИМВОЛОВ И СТИЛЬ
ТЕКСТА, когда ни один графический объект не выбран).
•Вызвать ObjectInfo( ), определить с ее помощью стиль
некоторого объекта и присвоить этот стиль переменной.
• Открыть диалог, в котором пользователь мог бы выбрать тот или
иной стиль. В любом диалоге, содержащем кнопку PenPicker,
BrushPicker, SymbolPicker или FontPicker, пользователь может
выбрать стиль, указав мышью на такую кнопку. Подробно
диалоги описаны в главе 6.
Следующий пример демонстрирует, как создать стиль Pen с помощью
обращения к функции MakePen( ). Значение стиля Pen присваивается
переменной типа Pen.
Dim p_var as Pen
p_var = MakePen(1, 10, RGB(128, 128, 128))
Аргументы функции MakePen( ) определяют стиль линии: 1 означает,
что толщина линии составляет один пиксел; 10 задает номер шаблона
(dotted); а функция RGB( ) определяет цвет. Подробнее эти три
параметра, с помощью которых создается стиль линий (со списком всех
шаблонов линий), описаны в разделе "Предложение Pen" в
Справочнике MapBasic. Аналогично, создание стилей Brush, Font и
Symbol описано в разделах, описывающих предложения Brush , Font и
Symbol в Справочнике MapBasic.
В следующем примере показано, как присвоить переменной типа Pen
стиль линии одного из существующих объектов:
p_var = ObjectInfo(obj_var, OBJ_INFO_PEN)
Глава 9: Графические объекты
196 MapBasic Руководство пользователя
Присвоив значение переменной типа Pen, Вы можете использовать эту
переменную при создании графических объектов:
Create Line Into Variable obj_var
(73, 42) (74, 43)
Pen p_var
Функция StyleAttr( ) возвращает одну из компонент заданного стиля.
Например, в программе TEXTBOX из набора примеров показывается
диалог, в котором пользователь может выбрать стиль линии;
выбранный стиль сохраняется в переменную типа Pen, с именем
"pstyle". Затем в программе TEXTBOX выполняется оператор, который
выделяет цвет стиля и присваивает его переменной типа Integer
(line_color):
line_color = StyleAttr(pstyle, PEN_COLOR)
Цвета в MapInfo хранятся в виде целых чисел. Например, черному
цвету соответствует число 0, синему – 255. Функция RGB( ) языка
MapBasic вычисляет значение цвета на основании заданного
соотношения красного, зеленого и синего оттенков. Например, RGB(0,
255, 0) возвращает зеленый цвет.
Для обозначения цветов используйте функцию RGB( ). Например:
highway_style = MakePen(2, 2, RGB(0, 0, 255))
Вместо обращения к RGB( ) можно использовать одно из стандартных
числовых обозначений цветов (BLACK, WHITE, RED, GREEN, BLUE,
YELLOW, CYAN и MAGENTA), определенных в файле
MAPBASIC.DEF.
Выбор объектов с заданным стилем
Функция ObjectInfo( ) позволяет извлекать значения Pen, Brush,
Symbol или Font из объекта. Если только Вы извлекли Pen, Brush,
Symbol или Font, Вы можете воспользоваться функцией StyleAttr( ),
чтобы рассмотреть индивидуальные элементы (например, чтобы
определить цвет стиля Symbol).
Вы можете использовать оператор Select, чтобы выбрать объекты,
основанные на стилях. Как показывает следующий пример,
предложение Where оператора Select может вызывать функции
ObjectInfo( ) и StyleAttr( ), чтобы MapInfo выбрал только те объекты,
которые имеют некоторые атрибуты (например, объекты некоторого
цвета).
Глава 9: Графические объекты
MapBasic Руководство пользователя
197
Следующий пример добавляет кнопку на инструментальную панель
“Программы”. Если Вы выбираете объект и затем нажимаете эту
кнопку, программа выбирает все объекты в таблице, которые имеют
тот же самый цвет.
Include ”mapbasic.def”
Declare Sub Main
Declare Sub SelectPointsByColor()
Sub Main
’ Добавим кнопку к панели ”Программы”.
Alter ButtonPad ”Программы” Add
PushButton
Calling SelectPointsByColor
HelpMsg ”Выбор точек того же цвета\nВыбор по
цвету”
End Sub
Sub SelectPointsByColor
Dim i_color, i_open As Integer
Dim symbol_style As Symbol
Dim object_name, table_name As String
’ Сколько таблиц открыто?
i_open = NumTables()
’ Определим имя текущей таблицы.
table_name = SelectionInfo(SEL_INFO_TABLENAME)
If table_name = ”” Then
’ ... ничего не выбрано; завершаем работу.
Exit Sub
End If
’ Если таблица не содержит графики, то выход.
If Not TableInfo(table_name, TAB_INFO_MAPPABLE)
Then
Exit Sub
End If
’ Выбранный объект точка?
Глава 9: Графические объекты
198 MapBasic Руководство пользователя
’ Если да, определим цвет.
Fetch First From Selection
object_name = Str$(Selection.obj)
If object_name = ”Point” Then
symbol_style = ObjectInfo(Selec
tion.obj,OBJ_INFO_SYMBOL)
i_color = StyleAttr(symbol_style, SYMBOL_COLOR)
End If
’ Если открылась таблица запроса Запрос1 (или
Запрос2...).
’ закроем ее.
If NumTables() > i_open Then
Close Table TableInfo(0, TAB_INFO_NAME)
End If
If object_name <> ”Point” Then
’...если объект не точка, то выход.
Exit Sub
End If
’ Выберем все точечные оъекты.
Select * From table_name
Where Str$(Obj) = ”Point”
Into Color_Query_Prep NoSelect
’ Отберем с нужным цветом.
Select * From Color_Query_Prep
Where
StyleAttr(Object
Info(obj,OBJ_INFO_SYMBOL),SYMBOL_COLOR)
= i_color
Into Color_Query
Close Table Color_Query_Prep