Update notice: The expression returned by "Faces"
changed in V11, so an alternative for V11 has been included.
When I try and export 3D graphics, I get an error if some of the graphics complexes are translated. For example:
r1 = PolyhedronData["RhombicDodecahedron", "Faces"]; (* works in V10 *)
r1 = PolyhedronData["RhombicDodecahedron", "GraphicsComplex"]; (* fix for V11 *)
trans = 2 Table[
Mean[PolyhedronData["RhombicDodecahedron", "VertexCoordinates"][[
n]]], {n, PolyhedronData["RhombicDodecahedron", "FaceIndices"]}];
r2 = Table[
Translate[r1, n], {n,
Table[Accumulate[RandomChoice[trans, m]], {m, 6}]}];
exp = Graphics3D[r2, Boxed -> False, SphericalRegion -> True];
Export["rhomdod2.obj", exp]
gives the errors
Export::type: Graphics3D cannot be exported to the OBJ format. >>
Export::type: RuleDelayed cannot be exported to the OBJ format. >>
I never get these errors when I just export a single object or an untranslated object.
"GraphicsComplex"
in place of"Faces"
for V11. $\endgroup$