Running version 10.3 on my Power Mac with 22 Gbytes of memory I can create and export an .eps or .pdf graphics such as,
headandchest = Show[ Entity["AnatomicalStructure", "Neck"]["Graphics3D"]]; Export["[my file path]\headandchest.eps", headandchest, "EPS"]
which I later use in a document. However, the file size is rather large (~30 MByte). If instead I merely click on the graphic output in my Mathematica session and Save As..., then the file size is rather small (~300 kByte), yet appears in full resolution in the final document. This is the version I need. Presumably there is a great deal of three-dimensional data in the original 3D graphics that is not copied when I copy directly from the Mathematica cell, rather than
(If your computer has less memory than mine, I suspect you can observe the same problem with a large, yet somewhat smaller, image file than mine.)
How can I
Export the proper small file-size .eps or .pdf version of such a graphic? (
Rasterize and other methods to convert the image to a pixel-based formal are not acceptable.)
My problem has nothing whatsoever to do with the speed at which the files are written (as answered elsewhere), but instead with the size of the exported file.