[Perfe]

Здравствуйте, осваиваю mapbasic, и наверное как у всех возникли
проблемы. Я пишу программу которая должна двигать точечный объект, а конкретней, на заданное расстояние и угол. Из этого успешно создал 4
кнопки север, юг, запад, восток. И на этом полностью остановился. Помогите написать дальше. Вот код который я уже написал:
Include "icons.def"
Declare Sub Main
Declare Sub zapad
Declare Sub vostok
Declare Sub sever
Declare Sub ug
Sub Main
Create ButtonPad "Кнопки" As
PushButton
Icon MI_ICON_ARROW_6
Calling zapad
HelpMsg " свиг на запад"
PushButton
Icon MI_ICON_ARROW_5
Calling vostok
HelpMsg " свиг на восток"
PushButton
Icon MI_ICON_ARROW_7
Calling sever
HelpMsg "сдвиг на север"
PushButton
Icon MI_ICON_ARROW_8
Calling ug
HelpMsg "сдвиг на юг"
Show
End Sub
Sub vostok
End Sub
Sub sever
End Sub
Sub ug
End Sub
Sub zapad
End Sub

В принципе, Я хочу добить того, чтоб программа работала как в МАПе объекты>сдвиг... Угол и расстояние у меня практически постоянны, а точек, ну очень много, хочу облегчить себе жизнь...

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

Внутрь процедур что-то типа:

O = Selection.Obj
x = ObjectGeography(O, OBJ_GEO_POINTX)
y = ObjectGeography(O, OBJ_GEO_POINTY)
Alter Object O Geography OBJ_GEO_POINTX, x + <сдвиг по X>
Alter Object O Geography OBJ_GEO_POINTY, y + <сдвиг по Y>
Update Selection Set Obj = O