[Shoorup]

Уважаемые знатоки!
Перед вами файл с блоком.
ФАЙЛ
В нем можно увидеть 8 атрибутов открыв редактор блоков. А если посмотреть в свойства, то их уже гораздо больше.
Внимание вопрос: Где они хранятся?

[Елпанов Евгений]

Код:

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

(vla-GetAttributes(vlax-ename->vla-object(car(entsel))))

[VVA]

Сообщение от Shoorup Внимание вопрос: Где они хранятся?

Они хранятся вместе с вхожнением блока (см. код #2). Команда _attsync не зря существует в Автокаде.
*** Добавлено
Командой _insert вставь рядышком еще один такой же блок и сравни атрибуты

[Shoorup]

Тогда не очень понимаю команду _attsync и как она работает.
Выдержка из справки:

Обновление вхождений блоков с учетом новых и измененных атрибутов из указанного определения блока. Предупреждение Команда АТРОБНОВИТЬ удаляет любое, внесенное командами АТРЕД или АТРЕДАКТ изменение формата или свойства. Она также удаляет любые дополнительные данные, связанные с блоком, и может повлиять на динамические блоки или блоки, созданные в приложениях сторонних разработчиков.

Атрибуты, которые не видны в редакторе блоков созданы программно. Это и есть эти дополнительные данные? В программе где используются эти блоки - все эти дополнительные данные используются. Но не могу понять как? Получается командой _attsync можно убить все эти эти дополнительные атрибуты и уложить прогу.
Елпанов Евгений, получил после кода надпись вида

Код:

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

#<variant 8201 ...>

Что это?

[VVA]

Shoorup, Почитай здесь со слов И списком здесь, казалось бы, и не пахнет.

Атрибуты, которые не видны в редакторе блоков созданы программно. Это и есть эти дополнительные данные?

Думаю что нет. Скорее всего имеются ввиду расширенные данные. Их можно посмотреть/создать программно или с помощью команд Express Tools XDATA и XDLIST

Получается командой _attsync можно убить все эти эти дополнительные атрибуты и уложить прогу.

[Елпанов Евгений]

Сообщение от Shoorup Елпанов Евгений, получил после кода надпись вида Код: [Выделить все] #<variant 8201 ...> Что это?

Это массив с объектами всех атрибутов.
Из лиспа, можно пройти по всем этим объектам и прочитать или изменить любые свойства...

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

Сообщение от VVA Думаю что нет. Скорее всего имеются ввиду расширенные данные. Их можно посмотреть/создать программно или с помощью команд Express Tools XDATA и XDLIST

Возможно речь идет и об этом, хотя я больше склоняюсь к тому что они говорят об аттрибутах (ATTRIB), которые были добавлены программно к вставке блока. Определения атрибутов (ATTDEF) для этих атрибутов могут и не быть в описании блока и в этом случае _ATTSYNC их из вставки блока просто удалит.

[Startrek]

Аттрибуты бывают видимые и невидимые - см. ниже. попробуй поэкспериментировать

Command entry: attdisp (or 'attdisp for transparent use)
Enter attribute visibility setting [Normal/ON/OFF] <current>:

The drawing is regenerated after you change the visibility unless REGENAUTO, which controls automatic regeneration, is off. The current visibility of attributes is stored in the ATTMODE system variable.

Normal
Retains the current visibility of each attribute. Visible attributes are displayed. Invisible attributes are not displayed.

On
Makes all attributes visible.

Off
Makes all attributes invisible.

[Shoorup]

Startrek, с attdisp я вчера уже побаловался.
VVA, статьи уже читаю. Очень красиво все написано. Думаю пора ознакомится с теорией, чтобы небыло дальнейших глупых вопросов.

[kp+]

Вопрос к гуру, может, не совсем по теме: возможно ли написать альтернативный вариант attsync "с человеческим лицом"?
Который, в частности, при добавлении атрибута в описание блока добавлял его во все вставленные экземпляры этого блока, но не сносил бы настройки остальных атрибутов во вставленных блоках.

[Shoorup]

Меня мучает еще один вопрос... Почему при пересохранении определения блока во всех вхождениях сбрасываются свойства для атрибутов?

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

Сообщение от Shoorup Меня мучает еще один вопрос... Почему при пересохранении определения блока во всех вхождениях сбрасываются свойства для атрибутов?

Внимательно прочитал то, что я написал?

[Shoorup]

Разобрался

[sbi]

Сообщение от Александр Ривилис Возможно речь идет и об этом, хотя я больше склоняюсь к тому что они говорят об аттрибутах (ATTRIB), которые были добавлены программно к вставке блока. Определения атрибутов (ATTDEF) для этих атрибутов могут и не быть в описании блока и в этом случае _ATTSYNC их из вставки блока просто удалит.

Спасибо! При применении _ATTSYNC команда удаляет последние изменение графа "Предриятие" меняет слой на прежний "Окно". Дальше ничего не проиходит. Приложение:

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

Ну этого и следовало бы ожидать.

[АлексЮстасу]

От иностранных товарищей достался блок с атрибутами, которые не видны в редакторе блоков. И при вставке нового такого блока их в блоке тоже не оказывается.
Как сделать эти атрибуты нормальными, обычными?

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

В файле присутствуют следы Civil, AutoCAD Architecture, но это неважно. Выполни _attsync и укажи на этот вставленный блок. "Отсутствующие" описания атрибутов будут удалены.
ИМХО: был вставлен "нормальный блок", а потом из него удалены вхождения "потерянных" атрибутов. И сохранены изменения в описание блока, но не выполнена синхронизация. По-моему, вручную ситуацию обратно не повернуть, только если лисп писать, по аналогии с тем, который делал Alaspher, добавляя атрибуты во вхождения блока...

[АлексЮстасу]

Сообщение от Кулик Алексей aka kpblc В файле присутствуют следы Civil, AutoCAD Architecture, но это неважно. Выполни _attsync и укажи на этот вставленный блок. "Отсутствующие" описания атрибутов будут удалены. ИМХО: был вставлен "нормальный блок", а потом из него удалены вхождения "потерянных" атрибутов. И сохранены изменения в описание блока, но не выполнена синхронизация. По-моему, вручную ситуацию обратно не повернуть, только если лисп писать, по аналогии с тем, который делал Alaspher, добавляя атрибуты во вхождения блока...

Мне нужно бы как раз не удалить атрибуты, а наоборот - сохранить эти атрибуты, как будто бы это блок с этими атрибутами. Тем более, что сейчас для пользователя так и есть.

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

Наконец-то дошли руки на "поковыряться". Наковырял, конечно, немногое, профессионалы быстренько разгромят код Но в данном конкретном случае (вроде бы) сработало...

Код:

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

 (vl-load-com)

(defun dwgru-copy-attr (/ adoc blk_ref blk_def ins att)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (= (type (setq blk_ref (vl-catch-all-apply
                               (function
                                 (lambda ()
                                   (car (entsel "\nSelect Block reference <Cancel> : "))
                                   ) ;_ end of lambda
                                 ) ;_ end of function
                               ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'ename
         ) ;_ end of =
    (progn
      (setq blk_ref (vlax-ename->vla-object blk_ref)
            blk_def (vla-item (vla-get-blocks adoc) (vla-get-effectivename blk_ref))
            ins     (vla-get-insertionpoint blk_ref)
            att     (vlax-safearray->list (vlax-variant-value (vla-getattributes blk_ref)))
            ) ;_ end of setq
      (vla-put-insertionpoint blk_ref (vlax-3d-point '(0. 0. 0.)))
      (foreach item att
        (vla-addattribute blk_def
                          (vla-get-height item)
                          acattributemodeverify
                          (vla-get-tagstring item)
                          (vla-get-insertionpoint item)
                          (vla-get-tagstring item)
                          (vla-get-textstring item)
                          ) ;_ end of vla-AddAttribute
        ) ;_ end of foreach
      (vla-put-insertionpoint blk_ref ins)
      (vla-update blk_ref)
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[АлексЮстасу]

Отлично! Сработала! Атрибуты восстановились.
Два соображения:
1. Восстановились все атрибуты, даже те, которые и так были. Т.е. некоторые начали двоиться.
2. Можно сразу присваивать восстанавливаемым атрибутам свойства текста, которые были у исходных "фантомных" атрибутов? Цвет, шрифт, высоту, привязку?