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