TransWikia.com

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

Mathematica Asked by Jeffrey Thomson on January 24, 2021

How do you export the result of a RevolutionPlot3D to STL (STereoLithography) file format for printing? I am a tyro when it comes to 3D rendering and printing.

One Answer

Update

Please see Printout3D and related guides:

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]]

enter image description here

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[%]

enter image description here

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

Answered by Vitaliy Kaurov on January 24, 2021

Add your own answers!

Ask a Question

Get help from others!

© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP