[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 "\""))
)

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

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

[Alexeipost]

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

[OSIP]

Сообщение от Кулик Алексей aka kpblc Используй печать на принтер PDFCreator.

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

[Psyakrev]

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

[OSIP]

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

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

[Profan]

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

[OSIP]

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

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

[5hev]

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]

Сообщение от 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]

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

[dyr]

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

[OSIP]

Сообщение от dyr Меня doPDF устраивает.

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

[dyr]

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

[OSIP]

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

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

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

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

[5hev]

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

[OSIP]

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

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

[pan]

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

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

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

Сообщение от pan PDFCreator глючный

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

[OSIP]

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

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