I want to export a ParametricPlot3D model into a STL format file for 3Dprinting. I attach the notebook file.
lissajous_3D_Report.nb (286 KB)
I think that the problem is that the plot you’re producing is only 1-dimensional. STL data represents a set of triangles, and Mathematica doesn’t know how to turn that curve into a set of triangles. What I suggest you do is find a way to make your plot 3-dimensional. You could sample the function to create a set of points and generate a tube through those points, like this:
data = Table[{Subscript[F, x][t, 2], Subscript[F, y][t, 1], Subscript[F, z][t]}, {t, 0, 20, .05}];
g = Graphics3D[Tube[data]]
Now try to export g.
Modify PlotStyle in your code for model:
model = ParametricPlot3D[{Subscript[F, x][t, 2],
Subscript[F, y][t, 1], Subscript[F, z][t]}, {t, 0, 20},
PlotStyle -> Tube[.15], Axes -> False, Boxed -> False,
PlotRange -> {{-2.2, 2.2}, {-1.2, 1.2}, {0, 5.5}}]
And use Printout3D to put model in STL file: (“model.stl” attached)
Printout3D[model, "model.stl"]
model.stl (1020 KB)
Thank you Erik. I will do it.