[kserg]

Проблема:
инвертируются битовые изображения из bmp-файлов, вставленных в dwg.
Наблюдается в AutoCAD 2016 и AutoCAD 2017.

Подскажите, что делать ? (совет пересохранить bmp как tif и подгрузить вместо bmp -> tif - не подходит)
В AutoCAD 2015 все было нормально.
Спасибо.

В приложении (архив) - пример.

[baksconstructor]

Сохранить bmp с качеством 24-бит и с новым именем.

[Oleg T]

Не знаю, в чем тут дело, но у меня такое бывало и в других dwg-кадах.
В растровых просмотровщиках BMP из примера - нормальный, зато Easy Trace, которым я пользуюсь, выдает при его открытии черный фон.
То есть я в подобных случаях в нем же инвертировал обратно.
Попробуйте заменить файл приложенным.

[baksconstructor]

Короче всё проще - нужно внедрить рисунок в файл, решает проблему и не нужно таскать его рядом.
Вставка - Объект - Создать из файла

[kserg]

К сожалению, все это не катит...

Нам присылают подоснову со всем тряхомудьем (и с bmp) и мы с етим живем (работаем с внешними ссылками).
Через день, два, неделю, месяц... пришлют опять, с изменениями...

Открывали приложенный файл-пример в AutoCAD 2008 ... - ... 2015. Все было нормально.
А в 2016, 2017 - нет.

Брали файлик AdImaging.dll из комплекта 2015-го и подсовывали 2016-му и 2017-му - тогда все в порядке.
Но это же не решение....

[kp+]

Сообщение от kserg Брали файлик AdImaging.dll из комплекта 2015-го и подсовывали 2016-му и 2017-му - тогда все в порядке. Но это же не решение....

Почему же не решение? Другие глюки вылазят? А решать вопрос по сути должен сам Автодеск, путем выпуска сервис-паков.

[Александр Ривилис]

kserg
У меня всё это воспроизводится. Отправил в Autodesk как баг. Может подскажут какое-нибудь решение.

[trir]

блин, это же дико удобно!
мы, кстати, подоснову в tiff'ах, пакетно пережимаем, а то много места занимает...

[kserg]

Александр Ривилис

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

[Александр Ривилис]

Сообщение от kserg Брали файлик AdImaging.dll из комплекта 2015-го и подсовывали 2016-му и 2017-му - тогда все в порядке. Но это же не решение....

Если это работает, то пока это единственное реальное решение. Ничего другого пока Autodesk не предлагает, если не считать ручную замену BMP на TIF.

[kserg]

Александр Ривилис

Спасибо.

PS. Если кому надо, во этот AdImaging.dll (из комплекта 2015-го)

[Oleg T]

Сообщение от Александр Ривилис Ничего другого пока Autodesk не предлагает, если не считать ручную замену BMP на TIF.

Гораздо проще инвертировать проблемные файлы BMP и пересохранить.
На скрине:
слева - так бесплатный векторизатор Easy Trace открывает выложенный в теме файл,
справа - его копию, которую я открыл в обычном Paint, изменил цветовой режим сначала на цветной, затем на монохром и пересохранил
(в самом Easy Trace достаточно произвести инверсию 1 раз).
(может, кому пригодится такое решение).

[Александр Ривилис]

Сообщение от Oleg T Гораздо проще инвертировать проблемные файлы BMP и пересохранить.

Для того, чтобы в очередной версии AutoCAD (или после выпуска обновления исправляющего этот баг) они снова оказались инвертированными?
А если с этим чертежом нужно работать пользователям с разными версиями AutoCAD (не только 2016 и 2017), в том числе и с теми, в которых эти bmp сейчас нормально выглядят (2013, 2014, 2015)?

[Александр Ривилис]

Сообщение от kserg Александр Ривилис Спасибо. PS. Если кому надо, во этот AdImaging.dll (из комплекта 2015-го)

Эта версия только для x86. Я приложил и для x86 и для x64. По поводу работоспособности в AutoCAD 2017 есть большие сомнения, так как для его создания использована другая версия Visual Studio. Возможно в чем-то другом выйдет боком. А вот в AutoCAD 2016 скорее всего проблем быть не должно.

[Oleg T]

Сообщение от Александр Ривилис Для того, чтобы в очередной версии AutoCAD (или после выпуска обновления исправляющего этот баг) они снова оказались инвертированными? А если с этим чертежом нужно работать пользователям с разными версиями AutoCAD (не только 2016 и 2017), в том числе и с теми, в которых эти bmp сейчас нормально выглядят (2013, 2014, 2015)?

А как инвертированный файл из моего сообщения #3 отображается в версиях автокада 2014, 2015, 2016 и 2017? Одинаково или по-разному? Сам проверить не имею возможности, однако очень интересно.

[Александр Ривилис]

Сообщение от Oleg T А как инвертированный файл из моего сообщения #3 отображается в версиях автокада 2014, 2015, 2016 и 2017? Одинаково или по-разному? Сам проверить не имею возможности, однако очень интересно.

Вроде бы одинаково.

[Oleg T]

Сообщение от Александр Ривилис Вроде бы одинаково.

Спасибо. О чем я и пытался сказать. Что дело не только в автокадовских DLL, но и в исходном BMP.

[kserg]

Oleg T

Все это понятно и с Вашим файлом все в порядке (проверено в 2014, 2016, 2017)... Но дело в другом. Мы пересохраняли (Photoshop) в tif. Но стоило о таком способе (о пересохранении) заикнуться нашим проектировщиком - у них глаза как у кота на грядке и воплей немерено. не хватало еще что-либо сказать про Easy Trace - так вообще в обморок упадут...

Вот (добрые люди ткнули носом) более новые (проверено - все в порядке), чем выше упоминаемые dll
взято с https://knowledge.autodesk.com/suppo...ix.html?v=2013

Просьба к мэтрам-программистам: нельзя ли сделать на lisp маленькую програмульку, которая бы автоматом при ее запуске перезагружала вместо bmp - одноименные tif-файлы из того же месторасположения (а если из текущей папки, то без адреса). Спасибо.
У нас местами даже 2007-ой используется, а он валится на битовых bmp-файлах.

[trir]

уберите bmp, AutoCAD сам tif'ы подхватит
Мы на работе используем XnView или Gimp - там можно делать пакетно

[kserg]

trir

Проверено. Не подхватывает. Был вставлен, например, "a.bmp". Его убрали, подсунули "a.tif" - AutoCAD его проигнорировал...

Просьба к мэтрам-программистам остается в силе....

[kp+]

Сообщение от kserg Был вставлен, например, "a.bmp". Его убрали, подсунули "a.tif" - AutoCAD его проигнорировал...

Можно принудительно переименовать tif в bmp. Т.е. содержимое как tif, но расширение bmp.
Главное, чтобы имя и расширение файла с растром строго соответствовало заданному в чертеже, а с содержимым Акад сам разберется. По крайней мере, на своем 2010 так делал пару раз, прокатывало
Offtop: Только не кидайтесь тухлыми помидорами, что это не фен шуй.

[Oleg T]

Сообщение от kserg не хватало еще что-либо сказать про Easy Trace - так вообще в обморок упадут...

Offtop: Ну если они даже и стандартный Paint не знают.... "Народ надо менять"(с) )))

[kserg]

kp+

"...принудительно переименовать tif в bmp..."

Этот способ проверили. Все нормально.

[Fogel]

Просто из любопытства (ну, нету у меня новых версий): Инверсия происходит при включенной прозрачности и на черном фоне или есть зависимость от этих параметров? Так-то оно весьма логично если черное изображение превращается в белое и не пропадает на фоне экрана...

[kp+]

Offtop:

Сообщение от Oleg T "Народ надо менять"(с)

Другого народа у меня для вас нет [c]

[kserg]

Fogel

Никакой зависимости.... Просто она (инверсия) есть....

[VVA]

Без проверки. Попробуй эту команду
Замена

(if (=(logand pat 1) 1);_Растры (progn (princ "\n===== Image =====") (setq sset nil sset (ssget "_X" '((0 . "IMAGE")))) (if sset (setq item_list (mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex sset))))) (setq item_list nil)) (mapcar '(lambda(img / ipath) (setq ipath (vla-get-ImageFile img)) (setq ipath (strcase(strcat (VL-FILENAME-BASE ipath)(VL-FILENAME-EXTENSION ipath)))) (if (and (member ipath files)(vlax-write-enabled-p img))(progn (princ "\nМеняем ")(princ(vla-get-ImageFile img))(princ "->") (setq ipath (strcat to "\\" ipath)) (vla-put-ImageFile img ipath) (princ ipath)))) item_list)))

на

(if (=(logand pat 1) 1);_Растры (progn (princ "\n===== Image =====") (setq sset nil sset (ssget "_X" '((0 . "IMAGE")))) (if sset (setq item_list (mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex sset))))) (setq item_list nil)) (mapcar '(lambda(img / ipath) (setq ipath (vla-get-ImageFile img)) (setq ipath (strcase(strcat (VL-FILENAME-BASE ipath) ".TIF" ))) (if (and (member ipath files)(vlax-write-enabled-p img))(progn (princ "\nМеняем ")(princ(vla-get-ImageFile img))(princ "->") (setq ipath (strcat to "\\" ipath)) (vla-put-ImageFile img ipath) (princ ipath)))) item_list)))

[kserg]

VVA

Заменил. По сути, как я понял, там требовалась лишь заменить в команде "MIP_CHPATH"
(VL-FILENAME-EXTENSION ipath)
на
".TIF"

Однако, отбросив рассмотрение некоторых прочих нюансов, отмечу результат работы команды:

Команда: MIP_CHPATH
Изменить путь [Растры/внСсылки/Все/Отмена] <Все> : ввел "Р"
...диал.окно "Укажите целевую папку....": указал папку с файлами dwg и bmp,tif
неверный тип аргумента: stringp nil
Команда:

А в папке были файлы из примера, в частности: w_bmp.bmp и добавленный туда w_bmp.tif

[VVA]

Сообщение от kserg А в папке были файлы из примера, в частности: w_bmp.bmp и добавленный туда w_bmp.tif

kserg, Обновил команды по ссылке Акад2006-пропадают внешние ссылки. Добавил новую команду MIP_CHPATHTIF

MIP_CHPATHTIF - изменение абсолютного (сохраненного) пути растров и вн.ссылок. Для растров, если в указанной папке есть tif файл, то меняется и расширение, если нет, то расширение растра остается прежним, т.е. работа аналогична команде MIP_CHPATH

[kserg]

VVA

Спасибо, MIP_CHPATHTIF - работает.

Но есть вопрос-с намеком на предложение...
Команда сообщала о замене на ...tif не только относительно bmp-файлов, но и относительно tif (меняем tif на tif ????).

Команда: MIP_CHPATHTIF
Изменить путь [Растры/внСсылки/Все/Отмена] <Все> : вводим "Р"
....................
===== Image =====
Меняем w_bmp.bmp->E:\_BMP-TIF\W_BMP.TIF
Меняем w_tif.tif->E:\_BMP-TIF\W_TIF.TIF
Выполняется регенерация модели.
Команда:

Может стоит ввести крохотный анализ, типа если и так он tif, то и ладно... чего менять то ? значит пропускаем, о чем и сообщать для меня (нас) команде тоже нет смысла...

Еще раз спасибо.

[kserg]

Наткнулись на некий "косяк" в работе команды MIP_CHPATHTIF.

Например, есть в текущей папке файлы w_bmp.bmp и w_bmp.tif.
Поменяли имя tif-файла на -w_bmp.tif, и как результат, сообщение команды:
Меняем w_bmp.bmp->E:\_BMP-TIF\-W_BMP.TIF

Поменяли имя tif-файла на _w_bmp.tif... аналогично:
Меняем w_bmp.bmp->E:\_BMP-TIF\_W_BMP.TIF

Или команда игнорирует такие знаки как, например, "-" и "_" ?

----- добавлено через ~10 мин. -----
Хммм.........Дальше - больше....

Поменяли имя tif-файла на 77w_bmp.tif... всё то же самое:
Меняем w_bmp.bmp->E:\_BMP-TIF\77W_BMP.TIF

Выходит, если рядом с bmp-файлом есть какой-либо tif-файл, имя которого похоже на имя bmp-файла - произойдет замена ?
Беда. У нас часто встречаются растровые файлы с похожими именами.

[petrvv]

прошу прощения за мой английский, это пойдет? :

Код:

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

 (setq nym_img 0 dwg_pref (getvar "dwgprefix"))
(vl-cmdf "_.UNDO" "_M")
(princ "\nСсылки BMP-растров:")
(vlax-for vkl
 (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
 (vlax-for object (vla-get-block vkl)
  (cond
   ((and (eq (vla-get-objectname object) "AcDbRasterImage")
     (setq pth_bmp (vla-get-imagefile object)))
    (setq fld_img (vl-filename-directory pth_bmp) baz_bmp (vl-filename-base pth_bmp)
     typ_img (strcase (vl-filename-extension pth_bmp)))
    (cond
     ((and (= typ_img ".BMP") (findfile (strcat dwg_pref baz_bmp typ_img)))
      (setq pth_tif (strcat baz_bmp ".tif") pth_tif (if (findfile pth_tif) pth_tif nil)))
     ((and (= typ_img ".BMP") (/= fld_img "") (findfile pth_bmp))
      (setq pth_tif (strcat fld_img "\\" baz_bmp ".tif") pth_tif (if (findfile pth_tif) pth_tif nil)))
     ((and (= typ_img ".BMP") (= fld_img "") (setq pth_bmp (findfile pth_bmp)))
      (setq fld_img (vl-filename-directory pth_bmp)
       pth_tif (strcat fld_img "\\" baz_bmp ".tif") pth_tif (if (findfile pth_tif) pth_tif nil)))
     (t nil))
    (cond (pth_tif (print) (princ (strcat "       " (vla-get-name object)))
     (vla-put-imagefile object pth_tif) (setq nym_img (1+ nym_img))) (t nil))
    (setq fld_img nil baz_bmp nil typ_img nil pth_tif nil)) (t nil))))
(cond ((> nym_img 0) (vl-cmdf "_REGENALL")
  (princ (strcat "\n   (в кол-ве = " (itoa nym_img) ") заменены на TIF")))
 (t (princ "\nнечего/нечем заменять")))
(setq pth_bmp nil dwg_pref nil pth_tif nil nym_img nil)
(princ)

[kserg]

petrvv

Спасибо, это пойдет. Попробовали, косяков не наблюдалось..... А в команду это можно оформить ? Например, "BMP-TIF".

[petrvv]

Чуть подкорректировал код в посте 32.
В команду будет попоздже.

[petrvv]

Команда BMP_TIF

Код:

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

 (defun C:BMP_TIF ( / nym_img dwg_pref pth_bmp fld_img baz_bmp typ_img pth_tif)
  (setq nym_img 0 dwg_pref (getvar "dwgprefix"))
  (vl-cmdf "_.UNDO" "_M")
  (princ "\nСсылки BMP-растров:")
  (vlax-for vkl
    (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
    (vlax-for object (vla-get-block vkl)
      (cond
        ((and (eq (vla-get-objectname object) "AcDbRasterImage")
            (setq pth_bmp (vla-get-imagefile object))
         )
         (setq fld_img (vl-filename-directory pth_bmp)
               baz_bmp (vl-filename-base pth_bmp)
               typ_img (strcase (vl-filename-extension pth_bmp)))
         (cond
           ((and (= typ_img ".BMP")
              (findfile (strcat dwg_pref baz_bmp typ_img))
            )
            (setq pth_tif (strcat baz_bmp ".tif")
                  pth_tif (if (findfile pth_tif) pth_tif nil))
           )
           ((and (= typ_img ".BMP") (/= fld_img "") (findfile pth_bmp)
            )
            (setq pth_tif (strcat fld_img "\\" baz_bmp ".tif")
                  pth_tif (if (findfile pth_tif) pth_tif nil))
           )
           ((and (= typ_img ".BMP") (= fld_img "")
              (setq pth_bmp (findfile pth_bmp))
            )
            (setq fld_img (vl-filename-directory pth_bmp)
                  pth_tif (strcat fld_img "\\" baz_bmp ".tif")
                  pth_tif (if (findfile pth_tif) pth_tif nil))
           )
           (t nil)
         )
         (cond
           (pth_tif
             (print) (princ (strcat "       " (vla-get-name object)))
             (vla-put-imagefile object pth_tif)
             (setq nym_img (1+ nym_img))
           )
           (t nil)
         )
        )
        (t nil)
      )
    )
  )
  (cond
   ((> nym_img 0) (vl-cmdf "_REGENALL")
    (princ (strcat "\n   (в кол-ве = " (itoa nym_img) ") заменены на TIF")))
   (t (princ "\nнечего/нечем заменять"))
  )
  (princ)
)

(princ "\nкоманда BMP_TIF загружена")
(princ)