[LiSa]

Имеется файл dwg с несколькими растрами. Если скинуть в одну папку файл чертежа и растры, то подцепляются только некоторые из растров. Пробовала через Reference Manager скинуть все пути и потом заново перепрописать. Ситуация не изменилась. Прилагаю файл с растрами. Спасибо.

[sertor]

Нужно открыть диспетчер внешних ссылок (команда СС) и с помощью вкладки "найден в ..." повторно подгрузить растры.

[LiSa]

Согласна, можно. Но это очень долго. Это только часть файла. А если растров 100 штук...

[Alan]

Сообщение от LiSa Но это очень долго. Это только часть файла. А если растров 100 штук...

Осмелюсь предположить, что изображения вставлялись с абсолютными путями...
Программно переделать их на относительные

[LiSa]

Сообщение от Alan Осмелюсь предположить, что изображения вставлялись с абсолютными путями... Программно переделать их на относительные

Тоже самое находит только некоторые растры.

[sertor]

Сообщение от LiSa находит только некоторые растры

Обратите внимание, в окне "диспетчера ссылок", статус растра, который на экране не виден - "на найден". Следовательно путь к нему не прописан.

[LiSa]

Сообщение от sertor статус растра, который на экране не виден - "на найден". Следовательно путь к нему не прописан.

Да, вопросики. Т.е. получается, что путь не прописывается? А почему вообще мы должны его перепрописывать?
Help:
В случае, если вместе со внешней ссылкой не сохранена информация о пути, программа предпринимает поиск. Он происходит в следующем порядке.

Текущая папка главного чертежа
Пути поиска файлов проекта, заданные на вкладке "Файлы" в диалоговом окне "Параметры" или с помощью системной переменной PROJECTNAME
Пути поиска вспомогательных файлов, заданные на вкладке "Файлы" диалогового окна "Параметры"
Рабочая папка, заданная в ярлыке приложения Windows

Дело в том, что в 2002 версии AutoCad все растры подцепляются без перепрописывания пути к файлу. Просто из одной папки. Все прекрасно работает.
Может виновата какая-либо системная переменная?

[cancercat]

LiSa, а Вы не пробовали воспользоваться командой _eTransmit? (По русски - формкомплект). Автоматически формируется архив, который переносится в другую папку (на другой компьютер) со всеми изображениями. Там распаковываем - и вуаля! Всё работает. Я сам так делаю. Или у Вас растры в строго определённом месте должны лежать? Тогда ой - перепрописывать вручную...

[LiSa]

Сообщение от cancercat Вы не пробовали воспользоваться командой _eTransmit? (По русски - формкомплект)

Да, eTransmit формирует комплект только из найденных внешних ссылок.:-(
Не поверю, что никто не сталкивался.

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

Если попробовать программно:

Код:

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

 (vl-load-com)

(defun c:find-img (/                           adoc                        _kpblc-conv-string-to-list
                   _kpblc-ent-modify-autoregen _kpblc-conv-ent-to-ename    vl-browsefiles-in-directory-nested
                   dict                        paths                       exts
                   )

  (defun _kpblc-conv-ent-to-ename (ent_value /)
                                  ;|
*    Функция преобразования полученного значения в ename
*    Параметры вызова:
*	ent_value	значение, которое надо преобразовать в примитив. Может
*			быть именем примитива, vla-указателем или просто
*			списком.
*			Если не принадлежит ни одному из указанных типов,
*			возвращается nil
*    Примеры вызова:
(_kpblc-conv-ent-to-ename (entlast))
(_kpblc-conv-ent-to-ename (vlax-ename->vla-object (entlast)))
|;
    ;; "_kpblc-conv-ent-to-ename")
    (cond
      ((= (type ent_value) 'vla-object)
       (vlax-vla-object->ename ent_value)
       )
      ((= (type ent_value) 'ename) ent_value)
          ;((= (type ent_value) 'str) (handent ent_value))
      ((= (type ent_value) 'list) (cdr (assoc -1 ent_value)))
      (t nil)
      ) ;_ end of cond
    ) ;_ end of defun

  (defun _kpblc-ent-modify-autoregen (ent bit value ext_regen / ent_list old_dxf new_dxf layer_dxf70)
                                     ;|
*    Функция модификации указанного бита примитива
*    Параметры вызова:
*	entity	- примитив, полученный через (entsel), (entlast) etc
*	bit	- dxf-код, значение которого надо установить
*	value	- новое значение
*	regen	- выполнять или нет регенерацию примитива сразу. t/ nil
*    Примеры вызова:
(_kpblc-ent-modify-autoregen (entlast) 8 "0" t)	; перенести последний примитив на слой 0
(_kpblc-ent-modify-autoregen (entsel) 62 10 nil)	; установить выбранному примитиву цвет 10
*    Возвращаемое значение:
*	примитив с модифицированным dxf-списком. Примитив перерисовывается в
* зависимости от значения ключа ext_regen
|;
    (setq ent (_kpblc-conv-ent-to-ename ent))
    (if (not
          (and
            (or
              (= (strcase (cdr (assoc 0 (entget ent))) nil) "STYLE")
              (= (strcase (cdr (assoc 0 (entget ent))) nil) "DIMSTYLE")
              (= (strcase (cdr (assoc 0 (entget ent))) nil) "LAYER")
              ) ;_ end of or 
            (= bit 100)
            ) ;_ end of and 
          ) ;_ end of not 
      (progn
        (setq ent_list (entget ent)
              new_dxf  (cons bit
                             (if (and (= bit 62) (= (type value) 'str))
                               (if (= (strcase value) "BYLAYER")
                                 256
                                 0
                                 ) ;_ end of if 
                               value
                               ) ;_ end of if 
                             ) ;_ end of cons 
              ) ;_ end of setq 
        (if (not (equal new_dxf (setq old_dxf (assoc bit ent_list))))
          (progn
            (entmod (if old_dxf
          ;(_KPBLC-LIST-ADD-OR-SUBST ent_list bit (cdr new_dxf))
                      (subst new_dxf old_dxf ent_list)
                      (append ent_list (list new_dxf))
                      ) ;_ end of if 
                    ) ;_ end of entmod
            (if ent_regen
              (entupd ent)
              (redraw ent)
              ) ;_ end of if
            ) ;_ end of progn 
          ) ;_ end of if 
        ) ;_ end of progn 
      ) ;_ end of if 
    ent
    ) ;_ end of defun

  (defun _kpblc-conv-string-to-list (string separator / i)
                                    ;|
*    Функция разбора строки. Возвращает список либо точечную пару.
*    Параметры вызова:
*	string		разбираемая строка
*	separator	символ, используемый в качестве разделителя частей
*    Примеры вызова:
(_kpblc-conv-string-to-list "1;2;3;4;5;6" ";")	;'(1 2 3 4 5 6)
(_kpblc-conv-string-to-list "1;2" ";")		;'(1 2)
*    За основу взяты уроки Евгения Елпанова по рекурсиям
|;
    (cond
      ((= string "") nil)
      ((vl-string-search separator string)
       ((lambda (/ pos res)
          (while (setq pos (vl-string-search separator string))
            (setq res    (cons (substr string 1 pos) res)
                  string (substr string (+ (strlen separator) 1 pos))
                  ) ;_ end of setq
            ) ;_ end of while
          (reverse (cons string res))
          ) ;_ end of lambda
        )
       )
      (t (list string))
      ) ;_ end of cond
    ) ;_ end of defun


  (defun vl-browsefiles-in-directory-nested (path mask)
;;;    Функция возвращает список файлов указанной маски, находящихся в
;;; заданном каталоге
;;;    Параметры вызова:
;;;	path	путь к корневому каталогу. nil недопустим
;;;  	mask	маска имени файла. nil или список недопустим
;;;    Примеры вызова:
    ;|
(vl-browsefiles-in-directory-nested "c:\\documents" "*.dwg")
|;
    (apply (function append)
           (cons (if (vl-directory-files path mask)
                   (mapcar (function (lambda (x) (strcat (vl-string-right-trim "\\" path) "\\" x)) ;_ end of lambda
                                     ) ;_ end of function
                           (vl-directory-files path mask)
                           ) ;_ end of mapcar
                   ) ;_ if
                 (mapcar (function
                           (lambda (x)
                             (vl-browsefiles-in-directory-nested (strcat (vl-string-right-trim "\\" path) "\\" x) mask) ;_ end of vl-browsefiles-in-directory-nested
                             ) ;_ end of lambda
                           ) ;_ end of function
                         (vl-remove ".." (vl-remove "." (vl-directory-files path nil -1))) ;_ end of vl-remove
                         ) ;_ mapcar
                 ) ;_ cons
           ) ;_ end of apply
    ) ;_ end of defun

  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (setq paths (mapcar
                (function
                  (lambda (x)
                    (vl-string-right-trim "\\" x)
                    ) ;_ end of lambda
                  ) ;_ end of function
                (cons (getvar "dwgprefix") (_kpblc-conv-string-to-list (vl-string-trim ";" (getenv "ACAD")) ";"))
                ) ;_ end of mapcar
        exts  '("tif" "tiff" "png" "bmp" "jpg" "jpeg")
        ) ;_ end of setq
  (if (setq dict (dictsearch (namedobjdict) "ACAD_IMAGE_DICT"))
    (foreach img (mapcar (function cdr) (vl-remove-if-not (function (lambda (x) (= (car x) 350))) dict))
      (if (and (not (findfile (setq img_file (cdr (assoc 1 (entget img))))))
               (setq img_file (vl-filename-base img_file))
               (setq img_file
                      (car (vl-remove
                             nil
                             (apply (function append)
                                    (mapcar
                                      (function
                                        (lambda (path)
                                          (apply (function append)
                                                 (mapcar
                                                   (function
                                                     (lambda (ext)
                                                       (vl-browsefiles-in-directory-nested path (strcat img_file "." ext))
                                                       ) ;_ end of lambda
                                                     ) ;_ end of function
                                                   exts
                                                   ) ;_ end of mapcar
                                                 ) ;_ end of apply
                                          ) ;_ end of lambda
                                        ) ;_ end of function
                                      paths
                                      ) ;_ end of mapcar
                                    ) ;_ end of apply
                             ) ;_ end of vl-remove
                           ) ;_ end of car
                     ) ;_ end of setq
               ) ;_ end of and
        (_kpblc-ent-modify-autoregen
          img
          1
          (strcat (vl-filename-base img_file) (vl-filename-extension img_file))
          t
          ) ;_ end of _kpblc-ent-modify-autoregen
        ) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of if
  (vla-regen adoc acactiveviewport)
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Жду критики

[LiSa]

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

Код работает. Мерси!

[sasha_lif]

Файлы не качал, но как LISa, тоже всю жизнь думал, что достаточно кинуть рисунки в одну папку вместе с акадовским чертежом для подгрузки в чертеж. Что это неправда?

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

В данном конкретном случае - не совсем: в данных о растрах почему-то не сохранилось расширение файла. Это одна из причин проблем. Но что ее породило - не знаю.

[sertor]

Всем доброго времени суток. У меня возникла такая проблема. При вставке изображения вместо растра вставляется одноцветный прямоугольник. В свойствах- "показ изображения" => "да". Растр расположен в одной папке с чертежом. Да, кстати, в поле чертежа вместо "штурвала" тоже подобный прямоугольник.(AutoCAD Civil 3D 2012+Raster Design). Спасибо.

[sertor]

Сообщение от sertor При вставке изображения вместо растра вставляется одноцветный прямоугольник. В свойствах- "показ изображения" => "да". Растр расположен в одной папке с чертежом. Да, кстати, в поле чертежа вместо "штурвала" тоже подобный прямоугольник.(AutoCAD Civil 3D 2012+Raster Design). Спасибо.

Всем доброго времени суток. Нашел решение своей проблемы. Может кому-то будет полезно. Переустановил аналогичную программу с SP2 (не спрашивайте почему не установил отдельно SP, есть на то причина). Все стало на свои места. Но мне ведь этого не достаточно, хотелось выяснить из за чего это происходит. Так вот, как оказалось, всему виной включенное "аппаратное ускорение". При выключенном - все нормально. Отпишитесь у кого Civil 2012 и присутствует ли подобный баг. Спасибо.