3D import/export format problems/bugs
- To: mathgroup at smc.vnet.net
- Subject: [mg86849] 3D import/export format problems/bugs
- From: Szabolcs Horvát <szhorvat at gmail.com>
- Date: Sun, 23 Mar 2008 01:03:04 -0500 (EST)
- Organization: University of Bergen
The following function gives errors with the "DXF" and "3DS" formats in
Mathematica 6.0.2:
impexp[gr_Graphics3D, fmt_String] :=
ImportString[ExportString[gr, fmt], fmt]
The graphic that gives errors is an example from the documentation:
gr2 = Graphics3D[
Table[With[{p = {i, j, k}/5}, {RGBColor[p], Opacity[.75],
Cuboid[p, p + .15]}], {i, 5}, {j, 5}, {k, 5}]]
impexp[gr2,"DXF"] gives errors because of problems with ExportString[#,
"DXF"] while impexp[gr2,"3DS"] generates an incorrect output.
The reason why I was experimenting with the impexp[] function was that
the PolygonIntersections option is not available any more in v6 (it is
suggested to use options for Export instead), and I wanted to see how
much of the formatting is preserved when 3D objects are transferred
through different output formats.