pdf - Mathematica可以创建多页PDF文件吗？

Question

当一个人将多页pdf文件(我想到的文件中包含艺术品的图像，每页一个)导入到Mathematica 8.0.1中时，方法如下:

book = Import["simple.pdf"]

Mathematica返回图形对象列表，每页一个。我在每个页面上都执行了一些操作，然后将更改后的页面保存回单个PDF文件中

Export["DistortedSimple.pdf", distortedbook]

生成的文件将所有图像都放在一个页面上。是否有一种方便的方法可以将图像列表导出为PDF(每页一张)？

Answer 1

不管我使用 Export 元素多少(除了其他人提供的基于笔记本的解决方案)，Pages似乎都不可能。

另一种方法是install pdftk(用于组装页面的相对较小的命令行工具)，并使用以下Mathematica函数:

exportMultipagePDF[name_String, g_List, options___] :=
  Module[
    {fileNames, quote},
    quote[s_] := "\"" <> s <> "\"";
    fileNames = 
      Table[
        FileNameJoin[{$TemporaryDirectory, "mmapage" <> IntegerString[i] <> ".pdf"}],
        {i, Length[g]}
      ];
    Check[
      Export[#1, #2, "PDF", options] & @@@ Thread[{fileNames, g}], 
      Return[$Failed]
    ];
    If[
      Run["pdftk", Sequence @@ (quote /@ fileNames), "cat output", name] =!= 0,
      Return[$Failed]
    ];
    DeleteFile /@ fileNames;
  ]

在Windows上，我需要先将文件名加引号，然后再将其传递给PDFtk。我对其他平台一无所知，希望不会造成任何麻烦。

试试看

exportMultipagePDF["test.pdf", Table[Graphics[{Hue[x], Disk[]}], {x, 0, 1, .2}]]