Стандартные Asin Sin ATan Tan ACos Cos и всё.Причем углы возвращаются в радианах, а вводить их надо в градусах.
В итоге я это сделал так:
Procedure ag(x.f,y.f)
If y.f=0
y.f=0.001
EndIf
ag.f=-ATan(x.f/y.f)
ag.f=ag.f*#rad
If y>=0
ag.f=ag.f+180
EndIf
RotateSprite3D(me, ag.f, 0)
EndProcedure