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

Есть задача: для всех объектов всех внешних ссылок поменять принудительно цвет и вес линии. Это достаточно просто и решается "на ура". Но как сделать обратный ход? То есть восстановить исходный вид объектов? Задача усложняется тем, что примитивы далеко не обязательно имеют настройки ByLayer.
Попытки выполнить reload для описания ссылки эффекта не дали, в том числе и с предварительной выгрузкой файла ссылки. В то же время при открытии файла dwg AutoCAD восстанавливает цвета, вот и мне надо сделать аналогичное, но без перезапуска файла. Очень не хочу использовать ObjectDBX и последовательно читать все ссылки - слишком сложно, мне кажется. Нет ли решения попроще?
Спасибо.

[TararykovDG]

Кулик Алексей aka kpblc, в порядке бреда. Я так понял изменение цвета и веса линий и их последующее восстановление делается в течении одного сеанса работы с чертежом, потому как если нет, то как Ты сам сказал, после открытия все и так восстанавливается. К тому же, изменение Ты делаешь "на ура" программно, значит можно перед изменениями поставить (vla-startundomark actdoc) и после поставить (vla-endundomark actdoc), ну а потом откатить все изменения тем самым восстановив первоначальный вид

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

Не получится Сначала меняются настройки примитивов, потом пользователь работает, и только потом ему надо восстанавливать настройки - чтобы можно было оценить, как все выглядит при полноцветной подоснове. То есть "откат" не сработает по определению

[Pastor]

Это достаточно просто и решается "на ура"

А как именно?

[VVA]

Сообщение от Pastor А как именно?

Я думаю, что просто перебирая объекты ссылки в таблице описания блоков.

Кулик Алексей aka kpblc, в порядке бреда 2. Цвет и вес примитива все равно меняешь, в этот момент сохрани старые значения или в словаре или в РД примитива. Правда для восстановления потребуется повторный перебор примитивов

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

Спасибо, завтра попробую.

[Vova]

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

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

Vova, а кто сказал, что я меняю исходный чертеж?

Код:

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

 (vl-load-com)

(defun _dwgru-conv-xref-ent-to-color (color / adoc layer xref)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for item (vla-get-layers adoc)
    (setq layer (cons (list item
                            (mapcar
                              (function
                                (lambda (x / res)
                                  (setq res (vlax-get-property item (car x)))
                                  (vl-catch-all-apply
                                    (function
                                      (lambda ()
                                        (vlax-put-property item (car x) (cdr x))
                                        ) ;_ end of lambda
                                      ) ;_ end of function
                                    ) ;_ end of vl-catch-all-apply
                                  (cons (car x) res)
                                  ) ;_ end of lambda
                                ) ;_ end of function
                              (list (cons "lock" :vlax-false) (cons "freeze" :vlax-false))
                              ) ;_ end of mapcar
                            ) ;_ end of list
                      layer
                      ) ;_ end of cons
          ) ;_ end of setq
    ) ;_ end of vlax-for
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (or (not (vlax-property-available-p blk_def 'isxref))
            (equal (vla-get-isxref blk_def) :vlax-true)
            ) ;_ end of or
      (vlax-for ent blk_def
        (if (and (= (vla-get-objectname ent) acdbblockreference)
                 (vlax-property-available-p (setq xref (vla-item (vla-get-blocks adoc) (vla-get-name ent))) 'isxref)
                 (equal (vla-get-isxref xref) :vlax-true)
                 ) ;_ end of and
          (vla-put-color ent color)
          ) ;_ end of if
        ) ;_ end of vlax-for
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (vlax-property-available-p blk_def 'isxref)
             (equal (vla-get-isxref blk_def) :vlax-true)
             ) ;_ end of and
      (vlax-for ent blk_def
        (vl-catch-all-apply
          (function
            (lambda ()
              (vla-put-color ent color)
              ) ;_ end of lambda
            ) ;_ end of function
          ) ;_ end of vl-catch-all-apply
        ) ;_ end of vlax-for
      ) ;_ end of if
    ) ;_ end of vlax-for
  (foreach item layer
    (foreach prop (cdr item)
      (vl-catch-all-apply
        (function
          (lambda ()
            (vlax-put-property (car item) (car prop) (cdr prop))
            ) ;_ end of lambda
          ) ;_ end of function
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of foreach
    ) ;_ end of foreach
  (vla-regen adoc acallviewports)
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Пример вызова: (_dwgru-conv-xref-ent-to-color 3)
Вставляемая внешняя ссылка меняет свой вид только в текущем файле, ее состав не затрагивается. Можешь проверить.

[Oliver_88]

Удалить, открепить, снова вставить?прошу прощения если неправильно понял.

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

Внешняя ссылка может быть вставлена в несколько мест. Я пробовал выполнить для нее Unload, но эффект - нуль
P.S. Навалилось другой работы, так что проверить предложение VVA пока не получается
P.P.S. Подумал, что такое тоже вариант, но сопряжено с приличным количеством времени на регенерацию. Попробую, может, что адекватное и получится

[VVA]

Кулик Алексей aka kpblc, Насколько важно полностью поменять цвет внешней ссылки? Это я к тому, что твой код не учитывает:
1. mtext - может иметь форматирование цвета \C
2. перебирая примитивы внешней ссылки, ты наткнешня на блок, но пропустишь его атрибуты
3. в размерах цвет задается еще vla-put-ExtensionLineColor vla-put-TextColor vla-put-DimensionLineColor
4. Leader - vla-put-LeaderLineColor
5. Цвет мультилиний может задаваться в стиле и т.п.
Я этой темой начал заниматся здесь: Lisp colour change for all layers and blocks
Последний вариант перешел в BGTOOLS

BGCOLORXREF - Меняет цвет выбранных внешних ссылок (только в текушем сеансе)

Можешь посмотреть там ф-цию ChangeXrefAllObjectsColor. На данный момент там учтены все "сюрпризы" Автокада в части цвета.

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

Спасибо, обязательно возьму.

[Oliver_88]

Сообщение от Кулик Алексей aka kpblc Я пробовал выполнить для нее Unload, но эффект - нуль

Я имел ввиду Detach.

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

Я не уверен, но у меня ощущение, что придется восстанавливать все вхождения ссылки, с указанием углов поворота, нормалей, слоев, цветов и прочей требухи.
P.S. Прошу паузы, раньше пятницы никак не получается сесть за решение Как только что-то будет более-менее внятное, обязательно отпишусь.