<< Graphics`Shapes`

s1 = Sphere[];
s2 = Sphere[]; 
    Show[Graphics3D[{s1, s2}, Axes -> Automatic]]

Show[Graphics3D[Sphere[]], ViewPoint -> {10, 50, 50}, 
      ViewCenter -> {0, 0, 0}, 
      PlotRange -> {{-2, 2}, {-3, 3}, {2, -2}}]