Export 3D plot from Mathematica

Question

I want to export an interactive 3D plot, but I only get a surface.

What i want to get

What i get

Here is my code:

    blsphre = {};
Do[Ap