2

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

4

2 回答 2

2

安装GhostScript并设置适当的环境变量后（对于 Windows，您应该将gs\bin和添加gs\lib到顶级 Ghostscript 目录），您可以使用PATHJens Nöckel 的方法将 .eps 转换为 .pdf（将概述所有字形）：gs

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 代码的方法（没有字体轮廓）：

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

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

于 2013-09-06T07:02:21.690 回答
0 
gr = Import["file.eps", "eps"]
Export["file.pdf", gr, "pdf"]
于 2013-09-23T05:12:42.503 回答