如何在Mathematica中将.eps文件转换为.pdf？

Question

如何将.eps转换为 Mathematica 中的.pdf（可能使用GhostScript？）？

Answer 1

安装GhostScript并设置适当的环境变量后（对于Windows，您should将gs\bin和gs\lib添加到PATH，其中gs是顶级Ghostscript目录）您可以使用Jens Nöckel's method将.eps转换为.pdf（所有字形都将被概述）：

gsEPS2PDF[epsPath_String, pdfPath_String] := 
 Run["gswin64c.exe -sDEVICE=pdfwrite -dNOCACHE -sOutputFile=\"" <> 
   pdfPath <> "\" -q -dbatch -dNOPAUSE \"" <> epsPath <> "\" -c quit"]

此处gswin64c.exe是64位Windows系统的GhostScript可执行文件的名称，因为Linux将其替换为gs。

另一种基于Kurt Pfeifle' code的方法（没有字体轮廓）：

gsEPS2PDFEmbedFonts[epsPath_String, pdfOutputPath_String] := 
 Run["gswin64c.exe -sFONTPATH=c:/windows/fonts -o \"" <> 
   pdfOutputPath <> 
   "\" -sDEVICE=pdfwrite -dPDFSETTINGS=/prepress \"" <> epsPath <> 
   "\""]

此处c:/windows/fonts是字体所在的目录。有关GhostScript命令行参数的信息，另请参阅here。

Answer 2

gr = Import["file.eps", "eps"]
Export["file.pdf", gr, "pdf"]