Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Exporting to a 3D file...

  • To: mathgroup at smc.vnet.net
  • Subject: [mg80175] Re: [mg80110] Exporting to a 3D file...
  • From: DrMajorBob <drmajorbob at bigfoot.com>
  • Date: Tue, 14 Aug 2007 07:03:56 -0400 (EDT)
  • References: <9178502.1187015048117.JavaMail.root@m35>
  • Reply-to: drmajorbob at bigfoot.com

Put "g=" before Graphics3D inside Manipulate, then Export["file.stl",g ]  
after setting the controls however you want them. After Import["file.stl "]  
I see that gridlines are gone, but otherwise it looks correct.

Bobby

On Mon, 13 Aug 2007 03:24:59 -0500, Carlo Sammarco <csammarco at hotmail.com>  
wrote:

> Hi all,
>
> I'm not an avid Mathematica user and would appreciate any help with  =

> this...
>
> I've downloaded the notebook file for the demonstration project for 3D=
  =

> Totalistic Cellular Automata. I'm now trying to export the resulting  =

> model as an stl.  using:
>
> Export["MyFirstTry.stl", 3DimensionalCA]
>
> This is what I would do if I were dealing with a 3DPlot. But obviously=
  =

> this isn't a 3DPlot. When I try to export, it complains because there =
is  =

> more here than just a 3D object (I assume the sliders and other button=
s  =

> are the hangup among other things). Any ideas on how to export the 3d =
 =

> subject while keeping the functionality of everything else intact so  =

> that I can explore different iterations using the original interface?
>
> Here is the code...
>
>
> Manipulate[
>  Graphics3D[{Cuboid /@
>     Position[
>      CellularAutomaton[{rn, {2, 1}, {1, 1, 1}},
>       If[pr, Normal[
>         SparseArray[
>          Flatten[Table[{16, 16, Floor[(53 - init)/2] + i} -> 1, {i,
>             init}], 1], {33, 33, 53}]],
>        {{{Table[1, {init}]}}, 0}], {{{t}}}], 1]}, Boxed -> False,
>   PlotRange -> If[pr, {{0, 33}, {0, 33}, {0, 53}}, All],
>   PlotRangePadding -> 1, ImageSize -> {400, 300},
>   SphericalRegion -> True],
>  {{rn, 14, "rule number"}, 2, 200, 4, Appearance -> "Labeled"},
>  {{t, 5, "steps"}, 0, 15, 1, Appearance -> "Labeled"},
>  {{init, 1, "initial height"}, 1, 10, 1,
>   Appearance -> "Labeled"}, Delimiter,
>  {{pr, False, ""}, {True -> "fixed view", False -> "zoom to fit"}},
>  AutorunSequencing -> {{1, 20}, {2, 15}, {3, 10}, {4, 5}}]
>
>
> Copy and paste should run fine as is.
>
> I appreciate any help,
>
> TIA
>
> Carlo
>
>



-- =

DrMajorBob at bigfoot.com


  • Prev by Date: Re: Re: hardware for Mathematica 6.0
  • Next by Date: Re: Drawing Potatoes and a Problem with Piecewise
  • Previous by thread: Re: Exporting to a 3D file...
  • Next by thread: Drawing Potatoes and a Problem with Piecewise