[kserg]

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

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

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

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