Fant, а чем тебя не устраивает AlignToVector?
С помощью CollisionNX, CollisionNY, CollisionNZ находишь координаты нормали коллизии и выравниваешь объект:
For k=1 To CountCollisions(obj)
AlignToVector obj,CollisionNX(obj,k),CollisionNY(obj,k),CollisionNZ(obj,k),2,0.1
Next