[OSIP]

Всем привет!
В общем есть программа на лиспе, которая переводит (с помощью Адоб Дистиллера) из DWG в PDF.
Сейчас пытаюсь всё переделать под PDFCreator (удобно и бесплатно)
В общем не могу справиться в лиспе с этим криэйтором! незнаю как запустить его с правильными параметрами!

Вот так запускается Дистиллер:

Код:

[Выделить все]

 
(defun MTMDDISTPDF(inname outname)
  (startapp "C:\\Program Files\\Adobe\\Acrobat 9.0\\Acrobat\\acrodist.exe"
    (strcat "/j \"C:/Program Files/Adobe/Acrobat 9.0/Acrobat/Settings/standard.joboptions\" "
      "/n /q /o \"" outname "\" \"" inname "\""))
)

[5hev]

OSIP, все просто.

По делу, последовательность такая (проверена мной по крайней мере):
1. Перед отправкой на печать нужно запускать следующие команды:

1.1. Создать указатель на объект PDFCreator.clsPDFCreator;
1.2. Применить cStart с опцией /NoProcessingAtStartup;
1.3. Задать опции для подобъекта cOption, а именно сохранять ли файл автоматически, или выводить диалоговое окно и проч.
// См. опции UseAutosave, UseAutosaveDirectory, AutosaveDirectory, AutosaveFilename, AutosaveFormat. //
1.4. cClearCache.

2. Посылать на креэйтор с помощью PlotToDevice.
3. После печати передать указателю на объект PDFCreator.clsPDFCreator свойство cPrinterStop в значении True, т.к. документы по умолчанию стоят в очереди при программной печати.

[OSIP]

Сообщение от 5hev[ru] OSIP, Ну а так, по делу, последовательность такая (проверена мной по крайней мере): 1. Перед отправкой на печать нужно запускать следующие команды: 1.1. Создать указатель на объект PDFCreator.clsPDFCreator; 1.2. Применить cStart с опцией /NoProcessingAtStartup; 1.3. Задать опции для подобъекта cOption, а именно сохранять ли файл автоматически, или выводить диалоговое окно и проч. // См. опции UseAutosave, UseAutosaveDirectory, AutosaveDirectory, AutosaveFilename, AutosaveFormat. // 1.4. cClearCache. 2. Посылать на креэйтор с помощью PlotToDevice. 3. После печати передать указателю на объект PDFCreator.clsPDFCreator свойство cPrinterStop в значении True, т.к. документы по умолчанию стоят в очереди при программной печати.

Просто я и на Lisp и на VB пишу!
Все эти пункты выполняются, но почему то ничего не выходит
Ладно, буду пилить дальше, может что нибудь напилю! =)

[OSIP]

Что то ничего не пилится =(

вот полный код модуля на лиспе:

Код:

[Выделить все]

 
 
(vl-load-com)

(defun MTMDGETPLOTSTYLE( / attvalues)
  (setq attvalues (totpdmgetattvalues (totpdmgetobjid (totpdmgetverid))))
	(caddr (assoc "100000001300000" attvalues))
);defun

;-----------------------------------------------------------
; печать через Acrobat Distiller
(defun MTMDDISTPDF(inname outname)
  (startapp "C:\\Program Files\\Adobe\\Acrobat 9.0\\Acrobat\\acrodist.exe"
    (strcat "/j \"C:/Program Files/Adobe/Acrobat 9.0/Acrobat/Settings/standard.joboptions\" "
      "/n /q /o \"" outname "\" \"" inname "\""))
);defun

;-----------------------------------------------------------
; печать через PDFCreator
(defun MTMDPDFCreator(inname outname)
	(setq *com-pdfc* (vlax-get-or-create-object "PDFCreator.clsPDFCreator"))
	(vlax-invoke-method *com-pdfc* "cStart" "/NoProcessingAtStartup" :vlax-false)
	(vlax-put-property *com-pdfc* "cOption" "UseAutosave" (vlax-make-variant 1))
	(vlax-put-property *com-pdfc* "cOption" "UseAutosaveDirectory" (vlax-make-variant 1))
	(vlax-put-property *com-pdfc* "cOption" "AutosaveDirectory" (vlax-make-variant <outname>))
	(vlax-put-property *com-pdfc* "cOption" "AutosaveFilename" (vlax-make-variant <outname>))
	(vlax-put-property *com-pdfc* "cOption" "AutosaveFormat" (vlax-make-variant 0))
;????	(vlax-invoke-method *com-pdfc* "cClearCache" :vlax-false)
  	(command "_PlotToDevice")
;  (startapp "C:\\Program Files\\PDFCreator\\PDFCreator.exe"
;    (strcat "/j \"C:/Program Files/PDFCreator/useroptions.ini\" "
;      "/n /q /o \"" outname "\" \"" inname "\""))
);defun

;-----------------------------------------------------------
(defun MTMDPLOTLAYOUT(DeviceName PaperSize PlotStyle FileName / pw ph orient)
  (setq orient (vla-get-PlotRotation (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-Acad-Object)))))
  (command "_-PLOT" "y" "" DeviceName PaperSize "m" (if (= orient 1) "l" "p") "n" "e" "1" "c" "y" PlotStyle "y" "n" "n" "n" "y" FileName "n" "y")
;  (vla-GetPaperSize (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-Acad-Object))) 'pw 'ph) 
;  (command "_-PLOT" "y" "" DeviceName PaperSize "m" (if (> pw ph) "l" "p") "n" "e" "f" "c" "y" PlotStyle "y" "n" "n" "n" "y" FileName "n" "y")
;  (command "_-PLOT" "y" "" DeviceName PaperSize "m" "l" "n" "e" "f" "c" "y" PlotStyle "y" "n" "n" "n" "y" FileName "y" "n")
;  (command "_-PLOT" "y" "" DeviceName PaperSize "m" "l" "n" "e" "f" "c" "y" PlotStyle "y" "n" "n" "n" "y" FileName "y" "y")
);defun

;-----------------------------------------------------------
;(PLOTALLPDF "Adobe PDF" "A3" "C.ctb" "D:/001015RK.pdf")
(defun PLOTALLPDF(device papersize plotstyle pdfname / outfolder psname adoc layout pltname lcount i f layouts)
  (setq outfolder (vl-string-right-trim "/\\" (vl-filename-directory pdfname)))
  (setq psname (strcat outfolder "/" "runex.plt"))
  (setq adoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (setq layouts (vla-get-Layouts adoc))
  (setq lcount (vla-get-Count layouts))
  (setq i 0)
  (setq f (open psname "w"))
  (write-line "/prun { /mysave save def" f)
  (write-line "dup = flush" f)
  (write-line "RunFile" f)
  (write-line "clear cleardictstack" f)
  (write-line "mysave restore" f)
  (write-line "} def" f)
  (repeat (1- lcount)
    (setq i (1+ i))
    (vlax-for item layouts (if (= (vla-get-Taborder item) i) (vla-put-ActiveLayout adoc item)))
    (setq layout (vla-get-ActiveLayout adoc))
    (setq pltname (strcat outfolder "/" (vl-filename-base (getvar "DWGNAME")) "-" (vla-get-Name layout) ".PLT"))
    (MTMDPLOTLAYOUT device papersize plotstyle pltname)
    (write-line (strcat "(" pltname ") prun") f)
  )
  (close f)

;	выбор программы для печати
;	(if (= "PDFCreator" device) (MTMDPDFCreator psname pdfname) (MTMDDISTPDF psname pdfname) )
  
  (MTMDDISTPDF psname pdfname)

  ;(vl-file-delete psfile)
  (princ)
);defun

;-----------------------------------------------------------
(defun C:MTMDTESTPLOT()
;	(PLOTALLPDF "Adobe PDF.pc3" "A3" (MTMDGETPLOTSTYLE) "D:/testplot.pdf")
	(PLOTALLPDF "Adobe PDF.pc3" "A3" "E.ctb" "D:/testplot.pdf")
);defun

;-----------------------------------------------------------
(defun C:MTMDPLOTPDF()  
	(PLOTALLPDF (getString T "\nDevice name: ")
	            (getString T "\nPaper size: ")
		    (getString T "\nPlot style: ")
		    (getString T "\nFile name: ")
	  )
);defun
;-----------------------------------------------------------

(princ)

может кто то ошибку увидит, я не сомневаюсь, что она там есть!

[Кулик Алексей aka kpblc]

OSIP, а вот теперь объясни разницу между #22 и #23.
---
Пока я просматривал код, ты изменил #22. Ай молодца...

[ilya_kaz]

Не знаю, поможет ли...

Делал как-то на Delphi программку, которая автоматом перебирает интернет-страницы и печатает их в pdf-файлы через PDFCreator.
Имена файлов задаются из программы автоматически.

Толкового описания функций принтера нигде не нашел - так методом тыка и делал.
Вроде работало.

Во вложении - фрагменты той программки (печать из procedure TMainForm.ExportWebToPdf).

[pan]

Сообщение от Кулик Алексей aka kpblc Цитата: Сообщение от pan PDFCreator глючный Сильное заявление. Аргументировать можно?

Проблемы, как правило, возникают со сложными чертежами, содержащими растры, OLE, поля и т.д.
Пример сейчас затрудняюсь предоставить, если снова попадется, выложу.

[ShaggyDoc]

PDFCreator глючный

Не глючней других PDF-принтеров. Есть проблемы со специфичными файлами - некоторые лучше печатает PDFCreator, некоторые - DoPDF. А иногда наоборот.

Если же программировать с PDFCreator, то надо ознакомиться с содержимым его папки в ProgramFiles - там масса примеров. Собственно печать выполняет gsdll32.dll.

Кроме того, есть исходники - всё, включая DeveloperTool, TLBs и прочее.

[5hev]

OSIP,
1. Закомментирован cClearCache (для порядку)
2. Нет такой команды _PlottoDevice, есть такой метод
3. (setq pltname (strcat outfolder "/" (vl-filename-base (getvar "DWGNAME")) "-" (vla-get-Name layout) ".PLT"))
4. Нет вызова MTMDPDFCreator! Непонято что там за переменная в <скобках>, их быть не должно!

[Sirius2w]

Вопрос немного не в тему разгоревшейся дискуссии но зато очень важный
Итак имеем: 1) несколько чертежей разного формата, например 12 шт А4, затем 4 шт А3, 8 шт А1 и 20 шт. А4.
2) часть чертежей выполнены в автокаде и уже распечатаны PDF Creatorом каждый чччертеж (простите заиккаюсь) распечатан в отдельный PDF файл соответственно
3) остальная часть - пояснительные записки и спeцификации которые выполнены в экселе и ворде тоже распечатаны но уже всего в двух многостраничных файлах PDF с листами одинакового формата (один файл с листами А4, другой с листами А3)

Необходимо все соединить в один PDF в строгом порядке (пользовательском) с сохранением размеров и ориентации всех исходных листов как это сделать?
Сейчас получается - в ККкреаторе забиваю несколько исходных ПДФ, объединяю, но они все приводятся к одному виду - к листам А4


Ответ - не собирать разные PDF в одну кучу, а открывать исходные файлы, начинать печать через PDF однако в диалоговом окне нажимаем кнопку "подождать собрание" далее уже в окне PDF Креатора объединяем все задания в одну задачу и вуаля - все как нужно.
Спасибо за то что помогли разобраться

[Alexeipost]

1. В 2011 акаде можно всё распечатать в один пдф файл.
2. Собрать все можно с помощью программки AdolixSplitMergePDF.

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

[JohnSmith]

Для сшивки используем на работе полностью бесплатную программу PDF binder

[bargool]

я в своё время тоже утилитку сделал для простеньких операций с пдф.
Спец. странички для утилиты не создавал, по-этому просто ссылка на архив
На всякий случай ссылка на downloads проекта, мало ли я когда-нибудь её обновлю, тогда ссылка выше будет не актуальна.
Я так понимаю, подобных программ - легион

[Largo GT]

А как в PDFCreator напечатать не стандартный лист например A4x3 (297x630)??

[Apollo]

Largo GT, смотри скрин

[Largo GT]

Сообщение от Apollo смотри скрин

Спасибо !