Страница 2 из 2

Re: Как создать карту в MapBasic

Добавлено: 25 июн 2009, 09:31
reasonat
где-то так работает:

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

Fetch First From ваша_таблица
While Not EOT(ваша_таблица)
	rotated_symbol = rotated_obj        ' (rotated_obj = ваша_таблица + ".obj")
	angle = angle_col        ' (angle_col = ваша_таблица + ".Азимут")
	row_id = row_id_col        ' (row_id_col = ваша_таблица + ".RowId")

	Alter Object rotated_symbol
		Info OBJ_INFO_SYMBOL, MakeFontSymbol(shape, color, size, fontname, fontstyle, rotation)   ' (ваши параметры, в rotation ваш угол angle)
	Update ваша_таблица
		Set obj = rotated_symbol
		Where RowId = row_id
	Fetch Next From ваша_таблица
Wend