Код: Выделить всё
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