[Arraders]

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

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

А сам pdf из разряда "совсем секретно, перед прочтением сжечь"?

[Arraders]

Проект от заказчика, не сканированный, сохраненный в пдф из автокада

[trir]

открой блокнотом и посмотри что внутри pdf'а

[baksconstructor]

Для Arraders

Сообщение от Кулик Алексей aka kpblc А сам pdf из разряда "совсем секретно, перед прочтением сжечь"?

Перевод на русский :
Приложите файл .pdf к сообщению.

[kp+]

Сообщение от Arraders Проект от заказчика, не сканированный, сохраненный в пдф из автокада

Если "распечатка" была сделана с видового экрана в режиме тонирования - может быть и растр.

[Profan]

Возможен еще вариант, при котором растр вставлен в DWG и распечатан в файл PDF.

[Arraders]

вот вложение.

[kp+]

Проект от заказчика, не сканированный, сохраненный в пдф из автокада

Сообщение от Arraders вот вложение.

Врет заказчег. Это растр. Причем не "распечатанный" с векторного чертежа, а именно сканированный.

[Arraders]

я лично видел у авторского надзора этот чертеж в автокаде. Штамп был в пространстве листа. Сам план в модели. Но они нам не дают, т.к. жмотят.

[baksconstructor]

Может пригодится...

[kp+]

Автоматическая векторизация - бессмысленная и беспощадная

[Profan]

Сообщение от baksconstructor Может пригодится.

Такая кривая хрень (векторизация) не может пригодится.
ProgeCAD, который давно работает с PDF, извлек из этого файла PDF растровый файл формата TIF с изображением подосновы с топографией. Формат TIF является стандартным для сканеров. Но и в самом AutoCAD'е можно экспортировать чертеж в растр, потом вставить этот растр в DWG и распечатать в файл PDF.

[baksconstructor]

Сообщение от kp+ Векторизация - бессмысленная и беспощадная

Она самая.

Сообщение от Profan Такая кривая хрень (векторизация) не может пригодится.

Я весь проект только по фотографиям делал, а если бы хоть такое дали - только спасибо сказал бы и сделал быстрее в 2 раза.

[allar8]

Всем доброго времени суток.
Люди добрые подскажите пожалуйста. Не знаете случаем - может кто-то уже тут придумал ПАКЕТНЫЙ "Импорт PDF в качестве объектов". Т.е. стандартная данная КРАСИВАЯ автокадовская команда может только по одной страничке конвертировать PDF, а хотелось бы выбрать все вставленные странички PDF и в одно нажатие кнопки конвертнуть сразу все странички, а не протыкивать каждую страничку). Заранее всем спасибо!

[VitalyAF]

Пробуйте сначала у авторов PDF найти.
Читал где-то год назад, что последние версии Adobe Illustrator открывают много листовые PDF, вполне вероятно, что и конвертируют так же группой в DXF или DWG.
PS
Проверил, действительно открывает и сохраняет.

[allar8]

Сообщение от VitalyAF последние версии Adobe Illustrator

Енто конечно прекрасно, но интересует не Adobe Illustrator, а как это сделать в АutoCad.
Знаю тут на форуме много талантливых людей, которые наверняка придумали какой-нибудь лисп или макрос или другое программное решение, но я пока не нашел).
А может поэтому и не нашел, что еще не придумали. Вот и решил спросить - вдруг кто знает или видел или придумал)

[VitalyAF]

Сообщение от allar8 ... но интересует не Adobe Illustrator, а как это сделать в АutoCad.

Т.е. они в Autocad как-то уже загружены? Или вам надо именно пакетом загрузить PDF... ?
Тогда только костыли какие-нить, например Dotsoft Toolpac

[allar8]

Сообщение от VitalyAF Т.е. они в Autocad как-то уже загружены? Или вам надо именно пакетом загрузить PDF... ?

Совершенно верно - PDF уже вставлен в AutoCad. Стандартная команда "_pdfimport" может только по одной странице преобразовывать, а хотелось бы сразу все.
Думаю, что для рук программиста не представит сложности создать какой-нибудь лисп с использованием стандартной команды "_pdfimport" - как я понимаю тут просто нужно организовать цикл какой-то.
Для данной команды прописал макрос в одно нажатие, с целью исключения диалога - следующим образом ^C^C_pdfimport В У;. Но это все равно - только для преобразования одной страницы
Дополню примером файл DWG с вставленными PDF страницами, которые надо преобразовать в одно нажатие (см. вложение)

[VitalyAF]

Для тестирования...
И даже платные есть

Код:

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

 (defun c:PDFIMPORT+ (/ file n c d)
(and
(setq file (getfiled "PDF for Import" "" "pdf" 8))
(setq c (getint "\nHow many pages from 1 to ?: "))
(setq d (getreal "\nDistance for inserting multiple pages (X-Axis): "))
(setq n 0)
(repeat c (command "_.-PDFIMPORT" "" file (1+ n) "_non" (list (* n d) 0 0) 1 0)(setq n (1+ n)))
)
(princ)
)

Код:

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

 (defun c:PDF ()
  (setq fname (getfiled "Select PDF to Insert" (getvar 'dwgprefix) "pdf" 0))
  (setq ipoint (getpoint "select insertion point"))
  (setq pagenum 1)
  (setq pagetotal 15) ; is there a system variable that can give me the actual number?
  (while (< pagenum pagetotal)
    (setq catchit (vl-catch-all-apply '(lambda () (command "-pdfattach" fname pagenum ipoint 1 0 ))))
    (if (vl-catch-all-error-p catchit) (setq pagenum pagetotal) (setq pagenum (+ pagenum 1))) ; apparently no more pages is not an error
    (setq ipoint (list (car ipoint) (- (cadr ipoint) 8.5)))
  ) ;while
) ;PDF

Код:

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

 (defun GetPdfPageCount (FileName / File TextItem TypePages Count)
  (if (setq File (open FileName "r"))
    (progn
      (while (and (not Count) (setq TextItem (read-line File)))
	(if (wcmatch TextItem "/Type /Pages*")
          (setq TypePages T)
          (if (wcmatch TextItem "/Count [0-9]*")
            (setq Count (atoi (substr TextItem 7)))
          )
        )
      )
      (setq File (close File))
    )
  )
  Count
)

[allar8]

Сообщение от VitalyAF Код:

Большое спасибо!
Даже лучше чем я себе это представлял!
Даже дистанцию можно задать. Просто супер!

[VitalyAF]

На посошок...

PS
Сильно-то не обольщайтесь, _pdfimport, пытаясь конвертировать в вектор всякую всячину сильно капризничает...!

Код:

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

 (vl-load-com)
;change sheet number, no error checking
(defun c:csn ( / pdf n)
(setq pdf (vlax-ename->vla-object(car(entsel))))
(setq n (getint "\nSheet number: "))
(if n
(vla-put-itemname pdf (itoa n))
)
(vla-update pdf)
(princ)
)

[allar8]

Огромное спасибо!
Но как я понял рабочий код это только первый из сообщения 20
Но вдруг интересно мое мнение).
Честно говоря диалог по выбору файла тут для меня избыточен, т.к. я уже вставил листы PDF в автокад. Т.е. достаточно просто выбрать уже вставленные листы PDF в автокаде, нажать на кнопку и все выбранные листы преобразуются.
Но согласен, что вставка PDF c дистанцией очень нужная штука тоже. Как понял второй код из сообщения 20 что то подобное должен делать, но у меня вставлялось вертикально и непонятно как тут с дистанцией дела.
3-ий код из сообщения 20 как понял это функция автоматического определения числа страниц в PDF, но пока не разобрался как ее применить
Ну а код из сообщения 22 не понял, что делает.
Но все равно огромное спасибо!

----- добавлено через ~4 мин. -----

Сообщение от VitalyAF Сильно-то не обольщайтесь, _pdfimport, пытаясь конвертировать в вектор всякую всячину сильно капризничает...!

Эт я знаю. Но я часто имею дело с нормальными векторными PDF, поэтому _pdfimport для меня просто спасение
Ну а в общем да, согласен - где-то тут увидел убойный совет - использовать программу хангри стьюдент)))

[VitalyAF]

Сообщение от allar8 Ну а код из сообщения 22 не понял, что делает.

Прикрепил, а потом стал код читать... ))
А Dotsoft Toolpac чем не понравился, там много всего кроме pdfimport?

[allar8]

Сообщение от VitalyAF А Dotsoft Toolpac чем не понравился

Не знаю, что это, Но спасибо за совет посмотрю может быть.
Но честно говоря, первый код из поста 20 покрыл по сути все мои потребности). Огромное спасибо еще раз!
С платной

Сообщение от VitalyAF И даже платные есть

я был тоже знаком - пользовался. Но все это избыточно для меня)

[baksconstructor]

Сообщение от allar8 ПАКЕТНЫЙ "Импорт PDF в качестве объектов"

Посмотри в гугле - АвтоИмпортCAD, возможно поможет.

[roaa]

Ну и я до кучи с DCL. Припоздал правда маленько