CDW в PDF КОМПАС V14

[Sabahs]

Здесь библиотеку никто не выкладывал.

[KrissKross]

Добрый день!

Чего-то не выходит
подключить библиотеку

создал ключ

Код Выделить Развернуть

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\ASCON\KOMPAS-3D\Converters\Pdf2d]

Появился пункт в - сохранить как - pdf
но при самом сохранении - выскакивает ошибка - error 127

Регистрирую
"C:\Windows\Microsoft.NET\Framework64\v4.0.30319\regtlibv12.exe" "C:\Program Files (x86)\ASCON\KOMPAS-3D V13\Bin\Pdf2d.tlb"

Registration of C:\Program Files (x86)\ASCON\KOMPAS-3D V13\Bin\Pdf2d.tlb successful
т.е. прошла удачно

и ни чего не меняется
При вызове сохранить как pdf
выскакивает ошибка - error 127

[Sabahs]

Pdf2d.tlb - это библиотека типов реализованная в Pdf2d.dll, а не конвертер, его реализацию нужно самому писать.
http://forum.ascon.ru/index.php/topic,25301.msg186736.html#msg186736 - для чего нужен Pdf2d.tlb.
Примерный код реализации http://forum.ascon.ru/index.php/topic,25301.msg186749.html#msg186749
Можете добавить в папку C:\Program Files (x86)\ASCON\KOMPAS-3D V13\Bin\ прикреплённый файл pdf2d.dll (32х) от Компас V14 SP2, но не гарантирую, что будет работать.

[KrissKross]

To Sabahs

добавил (заменил) в папку C:\Program Files (x86)\ASCON\KOMPAS-3D V13\Bin\Pdf2d.dll
Все одно не работает

[Sabahs]

Попробуйте зарегистрировать pdf2d.dll.
regsvr32.exe pdf2d.dll
regsvr32.exe - находится в c:\Windows\System32\
После регистрации в реестре должен будет появиться ключ Pdf2d.

[KrissKross]

Не проходит

Пишет
не удалось загрузить модуль

[Sprinter500]

Добрый день! Давайте подведем итоги. Что нужно сделать чтобы все работало в 15-й версии? Прочитал тему, но не все понятно. Что там надо регистрировать? Или достаточно использовать следующий код?:

var
   newKompasAPI : IApplication;
   disp : IDispatch;
   pPdf2dParam : IPdf2dParam;
   Registry: TRegistry;
   pСonverter : IConverter;
    pСonverterPtr : IUnknown;
   path2 : string;
begin
Registry := TRegistry.Create;
Registry.RootKey := hkey_local_machine;
If Registry.OpenKeyReadOnly('SOFTWARE\ASCON\KOMPAS-3D\Converters\Pdf2d') then
path2 := Registry.ReadString('path');
disp := IDispatch( CreateKompasApplication );
  newKompasAPI := disp As IApplication;
   pСonverter := newKompasAPI.Converter[path2];
    pСonverterPtr := pСonverter.ConverterParameters(0);
    pPdf2dParam := pСonverterPtr as IPdf2dParam;
    pPdf2dParam.ColorType := 1;
    pСonverter.Convert('','C:\Users\Admin\Desktop\MyDraft.pdf',0,false)
end;

Я подключил Pdf2d, вставил приведенный выше код, НО почему то подчеркиваются:

   pPdf2dParam : IPdf2dParam;
   Registry: TRegistry;

как неизвестные. Что еще я не сделал?

P.S.    Pdf2d.dll позволяет только в 2D сохранять или 3D-модели тоже можно, так чтобы крутились?

[Sprinter500]

Так помощи не дождался . Разобрался сам - все заработало сохраняет в PDF. УРА!

Только вот не получается в цвете сохранять - только ч/б.
pPdf2dParam.ColorType не влияет. Какое значение и куда поставит, кто знает?

И вообще где можно почитать описание этих параметров (см. вложение):

[Sprinter500]

С цветом разобрался. Надо так:

pPdf2dParam.ColorType := 3;
pPdf2dParam.GrayScale:=false;

[rehscm]

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

смог проверить работоспособность только для х64 версии.
основная работа предполагалась с панели инструментов:
первая кнопка - для конвертирования текущего файла в пдф
вторая кнопка - для конвертирования папке (со всеми подпапками) в пдф
конвертируются cdw и spw остальное игнорируется

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

p.s. вложения прикрепить не удалось, поэтому прикреплю как ссылки:

win32: https://cloud.mail.ru/public/499b272129a8%2FPDF_1_win32.rtw

win64: https://cloud.mail.ru/public/9600b544e322%2FPDF_1_win64.rtw

[IgorRUtver]

Моя библиотека перестала конвертировать в pdf в компас V15. Хочу попробовать заменить прежний pdf2d.pas на полученный из pdf2d.tlb. Компас v15. Но не могу найти нормальный pdf2d.tlb. На моём пк он весит 4 кБ. Поделитесь нормальным файлом пожалуйста или подскажите где его достать.

[Алхимик]

Кто нить может поделится такой библиотекой?

Можно что то типа этого - Сохранение папки чертежей или комплекта в JPG одним кликом, но нужно сохранить большую кучу чертежей именно в формат ПДФ. Каждый файл .cdw .spw в отдельный ПДФ( доступ к возможностям 15 компаса, есть, но нужна автоматизация пересохранения.

[Sabahs]

Добавил в библиотеку и PDF.

[sanyabin]

Добавил в библиотеку и PDF.

проверил, в 13.0 х32 подключил х32 соответственно - ниче не происходит
проверил в 15.1 х64, подключил х64 соответственно - вроде работает, но подпапки не сохраняет, хотя птичка стоит

апд. .. подключил в 13 х86, наверное из-за этого и ничего не происходит?

апд.2 .. счетчик количества документов определяет правильно, но конвертирует только то, что в основной папке, в подпапки не заходит.
если переместить все чертежи в основную, то всё нормально получается.

[Sabahs]

В V13 конвертера PDF нет, по поводу сохранения из под папок гляну.

[Sabahs]

Исправил библиотеку при конвертировании в PDF.
Пробуйте.

[kastus]

Что-то ссылки нет...

[Sabahs]

Я пока удалил, ещё есть ошибка, просто приходится весь сервис за конвертер делать, он слепой, как дитя.

[Sabahs]

Исправил библиотеку при конвертировании в PDF.
Пробуйте.

[kastus]

Уродует многостраничный текстовый документ.