How do you export the result of a RevolutionPlot3D to STL for printing?

Update

Please see Printout3D and related guides:

• http://reference.wolfram.com/language/workflow/MakeA3DPrintout.html
• http://reference.wolfram.com/language/ref/Printout3D.html
• http://reference.wolfram.com/language/guide/3DPrinting.html

Older

This is very easy. Design a model, for example:

model = RevolutionPlot3D[{Sin[t] + Sin[5 t]/10, 
   Cos[t] + Cos[5 t]/10}, {t, 0, Pi}, 
  RegionFunction -> (Sin[5 (#4 + #5)] > 0 &), Mesh -> None, 
  BoundaryStyle -> Black, PlotStyle -> Thickness[.1]]

Note a special setting PlotStyle -> Thickness[.1] which gives thickness to the model walls - yo can set your own value of course. Now export to STL and then re-import to verify file was created and see how it looks

Export["model.stl", model];
Import[%]

The STL file can be just sent to 3D printer. The best part? - Wolfram has a whole course on 3D printing - tips how to make it work nicely:

Scan, Convert, and Print: Playing with 3D Objects in Mathematica Q&A

with the notebook. You may also want to take a look at

• Makerbot Constructions - George W. Hart
• Notes on 3D printing
• Henry Segerman's Mathematical Art