[Zaghim]

Друзья, есть динамический блок. Имя его Truba. Когда вставляю кучу блоков, имена их становятся не труба, а *U232 и тому подобные. Каким образом вытащить программно его истинное имя?

[Лиспер]

Сейчас проверить быстродействие не могу, но тем не менее (как вариант)

Код:

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

 (defun _dwgru-get-block-name (ent)
  (if (vlax-property-available-p
        (setq ent (vlax-ename->vla-object ent))
        'effectivename
        ) ;_ end of vlax-property-available-p
    (vla-get-effectivename ent)
    (vla-get-name ent)
    ) ;_ end of if
  ) ;_ end of defun

[VVA]

Do$, Блоки с именем *U# не обязательно динамические. Это могут быть и обычные, т.е vla-get-EffectiveName вернет ошибку

[Do$]

Свойство EffectiveName есть у любого блока, а не только динамического,
поэтому достаточно такого будет:

Код:

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

 (defun blk-get-name-vla (ent)
  ;;(blk-get-name-vla (car (entsel)))
  (vla-get-EffectiveName (vlax-ename->vla-object ent))
) ;_ end of defun

И кратко и работет быстро

[Лиспер]

Сообщение от Do$ Свойство EffectiveName есть у любого блока, а не только динамического,

Осталось запустить код на AutoCAD 2005 И получить сурьезный облом

[VVA]

Сообщение от Do$ Как показала практика, наличие 360 группы в entget-листе вставки блока не является достаточным условием для того, что в тех недрах, куда мы этим лиспом залазим, окажется имя блока... Так что, Владимир, Ваша функция из #17 для динамического блока, который еще не подвергался изменениям, имя не находит и выдет ошибку

Обновлен код в #17

Сообщение от Do$ В общем, по моим наблюдениям, самым "быстрым" оказался такой код:

Новые наблюдения

Код:

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

 
(BenchMark
             '(
                  (get-block-name (entlast)) ;_ post #17
                  (blk-get-name-mix (entlast)) ;_post #20
                  (blk-get-name-vla (entlast)) ;_post #23
              )
 )

Benchmarking ..................Elapsed milliseconds / relative speed for 32768 iteration(s): (GET-BLOCK-NAME (ENTLAST)).......1297 / 1.90 <fastest> (BLK-GET-NAME-MIX (ENTLAST)).....1297 / 1.90 (BLK-GET-NAME-VLA (ENTLAST)).....2469 / 1.00 <slowest>

[Do$]

Только диву даюсь: каким образом можно было докопаться до такого решения?
Я, кстати, когда тестировал, проверял на трех разных блоках:
- обычный "статический"
- динамический, только что вставленный
- динамический, у которого значения параметров менялись после вставки
Результаты были сильно разные...

[Walkmax]

А есть ли возможность в код представленный тут http://www.jefferypsanders.com/autolisp_AttInc.html добавить возможность работы с дин.блоками?

[Лиспер]

А чем штатные варианты не устраивают?

[Walkmax]

Если-бы был достойный груз знаний по данной теме может и устроили-бы, но увы ...
Данный код очень помогает, но вот есть один нюанс ...

[Do$]

А есть ли возможность в код представленный тут http://www.jefferypsanders.com/autolisp_AttInc.html добавить возможность работы с дин.блоками?

Мне кажется, что с такими вопросами лучше в отдельную тему. Но раз уж тут начали обсуждать...

Сообщение от Лиспер А чем штатные варианты не устраивают?

А что, есть такое?

[Лиспер]

Насколько я понял (код не анализировал), это фактически замена стандартной команды _attedit. Или нет? Если нет, дома погляжу еще разок...

[Do$]

Вроде бы, это автоматический нумератор атрибутов (наподобие экспрессовского TCOUNT, только для атрибутов блока).

[Walkmax]

Функционал следующий:
В чертёж ставм блок с атрибутами
Вызов команды
На запрос указать блок для дальнейших операций указываем нужный блок
В появившемся окне доступны операции выбора атрибутов, определения начального значения нумерации, направление нумерации
Далее если блок не *U, каждый следующий клик мышкой в чертеже ставит ранее указанный блок, с нумерацией в теге указанного атрибута, с ранее указанного стартового значения, в ранее указанном направлении.

Но вот весь вопрос в том, что данный код не работает с *U-именоваными блоками

[TararykovDG]

Сообщение от Walkmax А есть ли возможность в код представленный тут http://www.jefferypsanders.com/autolisp_AttInc.html добавить возможность работы с дин.блоками?

Попробуй так

[Walkmax]

Сообщение от TararykovDG Попробуй так

Получается так
Команда: ATTINC

Select Block:
Gathering all blocks named *U16 .....

[TararykovDG]

Сообщение от Walkmax Получается так Команда: ATTINC Select Block: Gathering all blocks named *U16 .....

Walkmax, выложи чертеж на котором так получается (в версии не выше 2008 ACAD'а). Да, и кстати какой у Тебя ACAD.

[Walkmax]

Вот чертёж и блок в нём
Чертеж1.dwg

[TararykovDG]

Walkmax, судя по всему Ты не обновил свои файлы на те, которые я выложил в посте #34. На всякий случай выкладываю только lisp-файл. На Твоем чертеже у меня все отработало

[Walkmax]

Всё работает, после пинка
Спасибо

[Sanchev]

Сообщение от Do$ Свойство EffectiveName есть у любого блока, а не только динамического, поэтому достаточно такого будет: Код: [Выделить все] (defun blk-get-name-vla (ent) ;;(blk-get-name-vla (car (entsel))) (vla-get-EffectiveName (vlax-ename->vla-object ent)) ) ;_ end of defun И кратко и работет быстро

подскажите тупому начинающему, что является параметром функции blk-get-name-vla?