May be this is also an option for you. I assume you want to have specific characters or fonts (defined in your paper with Latex-commands) in your plot, and that is the reason you want an eps-figure. I usually use the \psfrag in the Latex code.
1) Create your plot (plot1
) in Mathematica as you like it
2) Create a preparated version for editing in Latex (plot2
)
plot1 = Plot[Sin[x], {x, 0, Pi}, BaseStyle -> 15]
plot2 = Show[plot1, AxesLabel -> {aa, b}, PlotLabel -> "title",
Epilog -> {
Text["t1", {Pi/2, 0.3}]
, Inset[
Graphics3D[Cylinder[], Boxed -> False, ImageSize -> 50], {1, 0.4}]
, Inset[
Graphics3D[{Yellow, Opacity[0.8],
PolyhedronData["TruncatedIcosahedron", "Faces"]},
ImageSize -> 50], {2.5, 0.4}]
}]
Export[NotebookDirectory[] <> "plot.eps", plot2];

3) Use \psfrag in your Latex document for automated editing (careful, Latex code incoming)
\documentclass{article}
\usepackage{graphicx}
\usepackage{psfrag}
\begin{document}
\title{Working with EPS-figures from Mathematica}
\author{Mauricio Lobos}
\maketitle
Bla bla bla
\begin{figure}[h]
\centering
\psfrag{aa}{$x$}
\psfrag{b}{$y$}
\psfrag{t1}{Some text}
\psfrag{title}{\hspace{-10mm}Some nice title}
\includegraphics[width=0.5\textwidth]{plot.eps}
\caption{EPS-figure form Mathematica}
\end{figure}
\end{document}


As you can see, with \psfrag I edited in the eps-figure the preparated labels on the axes (aa
and b
) so you can see the nice $x$ and $y$, a positioned text (t1
) with "Some text" and the plot label (title
) with "Some nice title". Naturally, you will have to move some things around in the Latex code (see \hspace{-10mm}). Some 3D primitives will stay sharp (vector graphics), as you can see in the balck edge of the cylinder, but other (like the transparent polyhedron) will be converted automatically by the export in Mathematica into pixel graphics within the eps figure.
Export
to save the image (not the GUI), and do not set anImageSize
. What do you get? Also try exporting to PDF, which is more reliable, and can still be converted to EPS. $\endgroup$SetOptions[$FrontEnd, PrintingStyleEnvironment -> "Working"]
and then useExport
for producing EPS. Explanations are here: mathematica.stackexchange.com/a/137746/280 $\endgroup$