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.