How to export ContourPlot3D surface and regenerate it in Excel, Originlab or some other similar softwares

Question

I tried this, but failed.

fig3D = ContourPlot3D[ x^2 + y^3 - z^2 == 0, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
                       PlotPoints -> 100]
pts = (InputForm@fig3D)[[1, 1, 1]];
ListSurfacePlot3D[pts]

The regenerated surface is very poor. Any suggestions? thanks!

Answer 1

Not too bad if you specify MaxPlotPoints

ListSurfacePlot3D[pts, Mesh -> None, MaxPlotPoints -> 100]

Compare with

ListSurfacePlot3D[pts]

Edit

Regarding the export to Excel, please consider that the Excel surface plot is a very basic construction and requires a matrix whose first file and column are the XY values with the Z values in the inner cells. Example:

So, exporting a working dataset to Excel may require (an unspecified amount of) data massaging.