DWG to PDF через PDFCreator

DWG to PDF через PDFCreator · 21.12.2011, 15:07

Всем привет!
В общем есть программа на лиспе, которая переводит (с помощью Адоб Дистиллера) из 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 "\""))
)

Кулик Алексей aka kpblc · 21.12.2011, 16:17

Используй печать на принтер PDFCreator.

Alexeipost · 22.12.2011, 06:22

В 2011 всё гораздо проще. Печать или публикация в PDF и сидишь балдеешь!

OSIP · 22.12.2011, 07:45

Цитата:

Сообщение от Кулик Алексей aka kpblc

Используй печать на принтер PDFCreator.

Дак всё равно всё упирается в эти настройки PDFCreator!
У меня через VBA вызывается PDFCreator, если один лайаут в dwg-шке, но имя и директория для сохранения не хотят автоматом прописываться, прописывается имя файла dwg, а не то, которое я ему хочу присвоить!

А если dwg имеет несколько лайаутов, то уже вызывается прога на лиспе, которая всё клеет, но там вообще какая то муть в которой разобраться не могу!
Такая схема нужна потому, что перед печатью, чертеж немного редактируется!
Т.е. вызываем автокад, открываем чертеж, вносим изменения, потом отправляем его печататься!
Вот такой дурдом!
Пытался что нибудь разведать на сайте PDFCreatora, но там ничего умного не подсказали, вообще ничего не написали

Psyakrev · 22.12.2011, 08:44

О боже. В PDF Creator же можно штатными методами задать путь автосохранения и шаблон имени для созданных файлов.
Чего в конечном итоге вы хотите добиться?

OSIP · 22.12.2011, 08:49

Цитата:

Сообщение от Psyakrev

О боже. В PDF Creator же можно штатными методами задать путь автосохранения и шаблон имени для созданных файлов.
Чего в конечном итоге вы хотите добиться?

У меня путь задается пользователем! И файл PDF должен сохранятся именно туда, куда хочет пользователь! А имя PDFCreator тоже должен брать то, которое задаст пользователь!
Только это всё пользователь указывает до того как файл попадает в обработку!
Мне нужно, в VBA скрипте подправить, чтобы PDFCreator принимал указанную директорию для сохранения и имя файла!
А в Lisp, мне надо вызвать PDFCreator и передать ему эти же параметры (имя и директорию)!

Profan · 22.12.2011, 08:53

Да пусть этот пользователь пользуется стандартными методами вывода на печать. А Lisp и VBA в топку.

OSIP · 22.12.2011, 08:59

Цитата:

Сообщение от Profan

Да пусть этот пользователь пользуется стандартными методами вывода на печать. А Lisp и VBA в топку.

Нельзя! Через VBA вызывается автокад, а в нем в чертеж автоматом вносятся изменения!
И процесс полностью автоматизирован!
Это всё работает на Distillere, но просят переделать на PDFCreator!

5hev · 22.12.2011, 11:02

OSIP,
Запуск:

Код:

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

 (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 <sPath>))

OSIP · 22.12.2011, 11:30

Цитата:

Сообщение от 5hev[ru]

OSIP,
Запуск:

Код:

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

 (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 <sPath>))

Спасибо! Сейчас попробую! Надеюсь получится!

OSIP · 26.12.2011, 08:23

Что то у меня на выхлопе pdf-ки не получилось

dyr · 26.12.2011, 09:08

Меня doPDF устраивает.

OSIP · 26.12.2011, 09:35

Цитата:

Сообщение от dyr

Меня doPDF устраивает.

Ты его программно или ручками вызываешь?

dyr · 26.12.2011, 10:33

Виртуальный принтер. Печать у файл с расширением .pdf.

OSIP · 26.12.2011, 11:39

Цитата:

Сообщение от dyr

Виртуальный принтер. Печать у файл с расширением .pdf.

Про виртуальный принтер я знаю! Даже знаю как он работает и как им пользоваться!
Только мне сейчас необходимо запрограммировать те действия, которые пользователь выполняет вручную(т.е. вызывает виртуальный принтер и т.д.)
Пользователь в приложение добавляет список файлов, которые он хочет конвертировать в PDF, выбирает настройки и нажимает кнопку!
А скрипты и программка на Лиспе открывает АвтоКАД, добавляет изменения в чертеж и отправляет на виртуальный принтер!
Всё автоматом и красиво! Ловкость рук и никакого обмана! =)

Только у меня задача, заменить виртуальный принтер Adobe на бесплатный PDFCreator

Вариантов больше нет?
Никто не автоматизировал такие процессы?

5hev · 26.12.2011, 16:59

OSIP, я не писал тебе законченного решения, окстись =)
Чтобы на "выхлопе" получить PDF, нужно много еще чего дописать. А что - написано черным по белому в COM-мануале к креэйтеру. Просто скопируй оттуда, и приведи к нужному тебе синтаксису.

OSIP · 27.12.2011, 08:01

Цитата:

Сообщение от 5hev[ru]

OSIP, я не писал тебе законченного решения, окстись =)
Чтобы на "выхлопе" получить PDF, нужно много еще чего дописать. А что - написано черным по белому в COM-мануале к креэйтеру. Просто скопируй оттуда, и приведи к нужному тебе синтаксису.

Я и не говорю, что Вы мне дали готовое решение! Просто я с VB мало работал, а с COM-объектами в VB ещё меньше!
Я немного поковырялся в коде, подправил! но у меня не получилось, поэтому и прошу ещё немножко мне подсказать! =)

pan · 27.12.2011, 08:52

Цитата:

Сообщение от OSIP

...Только у меня задача, заменить виртуальный принтер Adobe на бесплатный PDFCreator...

PDFCreator глючный. Чем вас не устраивает бесплатный автодесковский DWG to PDF?

Кулик Алексей aka kpblc · 27.12.2011, 09:01

Цитата:

Сообщение от pan

PDFCreator глючный

Сильное заявление. Аргументировать можно?

OSIP · 27.12.2011, 09:07

Цитата:

Сообщение от Кулик Алексей aka kpblc

Сильное заявление. Аргументировать можно?

Ну, я бы не сказал, что он сильно глючный! Но в некоторой степени соглашусь, он немного сложноват для автоматизированной системы ))) Куча настроек, в которых черт ногу сломит!

5hev · 27.12.2011, 15:06

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 · 27.12.2011, 15:22

Цитата:

Сообщение от 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 · 11.01.2012, 08:52

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

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

Код:

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

 
 
(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 · 11.01.2012, 08:55

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

ilya_kaz · 11.01.2012, 13:32

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

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

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

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

pan · 11.01.2012, 13:57

Цитата:

Сообщение от Кулик Алексей aka kpblc

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

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

ShaggyDoc · 11.01.2012, 20:12

Цитата:

PDFCreator глючный

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

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

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

5hev · 13.01.2012, 19:22

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

Sirius2w · 25.07.2012, 15:49

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

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

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

Alexeipost · 26.07.2012, 08:48

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

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

JohnSmith · 26.07.2012, 08:55

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

bargool · 26.07.2012, 09:55

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

Largo GT · 12.02.2013, 13:30

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

Apollo · 12.02.2013, 13:37

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

Largo GT · 12.02.2013, 19:32

Цитата:

Сообщение от Apollo

смотри скрин

Спасибо !

21.12.2011, 15:07		#1
DWG to PDF через PDFCreator OSIP Тюмень Регистрация: 21.12.2011 Сообщений: 39 Всем привет! В общем есть программа на лиспе, которая переводит (с помощью Адоб Дистиллера) из 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 "\"")) )
Просмотров: 15600

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Публикация dwg в pdf постранично	Sharnir	AutoCAD	30	20.09.2022 12:06
Проблемма с DWG TrueView 2010 при экспорте DWG в PDF	aponom	AutoCAD	5	04.01.2015 00:25
Помогите перевести файл DWG в формат PDF	tomicos	AutoCAD	5	21.09.2011 12:59
Линии при конвертации из DWG в PDF теряют свойства	klava_lesnaya	AutoCAD	7	13.06.2010 11:59
фаилы формата dwg (формат Autocad) в формат pdf	Zilot	AutoCAD	4	02.12.2003 03:02