Блог

Когда кто-то импортирует многостраничный PDF-файл (файл, который я имею в виду, содержит изображения иллюстраций, по одному на страницу) в Mathematica 8.0.1 с помощью

книга = Импорт[«simple.pdf»]

Mathematica возвращает список графических объектов, по одному для каждой страницы. У меня есть некоторые манипуляции, которые я выполняю на каждой странице, а затем хочу сохранить измененные страницы обратно в один PDF-файл

Экспорт[«DistortedSimple.pdf», distortedbook]

результирующий файл содержит все изображения на одной странице. Есть ли удобный способ экспортировать список изображений в PDF, по одному на страницу?

(Привет, Кевин!)

Я только что оценил:

 Print[ExampleData[#]] amp; /@ Take[ExampleData["TestImage"], 6]

Export["Desktop/Kevin.pdf", EvaluationNotebook[]]
 

используя версию 8.0.1 для OS X, полученный PDF-файл был разделен на четыре страницы. Поэтому я думаю, что вам лучше всего (программно) создать записную книжку с вашими измененными изображениями и экспортировать эту записную книжку.

Кажется, это невозможно Export , независимо от того, сколько я играю с Pages элементом (кроме решений на основе ноутбуков, предлагаемых другими).

Альтернативой является установка 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] amp; @@@ 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}]]
 

Попробуйте сохранить записную книжку в формате PDF, а не экспортировать набор ячеек в формате PDF.

Редактировать:

Чтобы убедиться, что у вас есть разрывы страниц там, где вы хотите, настройте Screen Environment на печать (вы можете сделать это с помощью команды меню или программно) и вставьте разрывы страниц с помощью соответствующей команды меню. Эта страница руководства может быть полезной.

Из вашего комментария кажется, что вам нужно установить ImageSize параметр для преобразованного изображения, чтобы убедиться, что оно имеет желаемый размер при отображении на экране.