# Problem exporting Graphics3D into PDF

When I try to export some Graphics3D, like this one:

into a PDF file I get a bad appearance like this:

It's possible to fix?

Steps to reproduce the problem:

nb = NotebookOpen["paclet:FEMDocumentation/ref/HexahedronElement",
Visible -> False];
g = Cases[
NotebookRead /@ Cells[nb, CellStyle -> {"Notes", "Picture"}],
b : (_GraphicsBox | _Graphics3DBox) :> ToExpression@b, \[Infinity]];
g = GraphicsRow@DeleteCases[g, Graphics[Inset[_Graphics3D, ___], ___]]
NotebookClose[nb]
Export["test.pdf", g];
SystemOpen["test.pdf"]


and to cleanup

DeleteFile["test.pdf"]

• Nice touch to provide clean-up ☺. Is rasterizing and exporting acceptable? This would be the straightforward, if not elegant route. – Yves Klett Feb 28 '16 at 12:06
• @YvesKlett Thanks. No, rasterizing is not an option at present. Hope to find a vector way... – unlikely Feb 28 '16 at 12:10
• I have slightly better results with this strategy How to export this PDF figure with a small size on 10.0 for Mac OS X x86 (64-bit) (December 4, 2014) – user9660 Feb 28 '16 at 14:29
• on 10.3.1 for mac (10.8.5) I have no problem whatsoever. I do remember had similar problems when exporting contour plots to pdf so I may have updated the ghostscript libraries or so. – tsuresuregusa Feb 28 '16 at 14:45