[Nextk]

Здравствуйте.
Я использую функцию, взятую с этого форума.
Наверное, она вам известна. Она получает атрибуты.
Например так

Код:

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

(get-all-atts (car(entsel "\nSelect block:")))

а мне нужно получить атрибуты этой же функцией, но не по выделению мышкой, а по знанию того, что блок называется "testname", например. Как это сделать?
Спасибо за внимание, буду очень благодарен советам.

[NEDIS]

Сообщение от Лиспер Пример обработало примерно за секунду (AutoCAD 2008). --- Добавлено: давай файл с 200 / 2 000 / 20 000 блоками, попробую погонять. Если время найдется. --- Добавлено 2: Ради интересу можно добавить в файл "мусора" - сторонних блоков, которые вообще никакого отношения к задаче не имеют. И попробовать уже с ними.

Прикрепляю файлы на 200 и 2000 блоков
P.S. Там два вида блоков с 1 маркером и с 2 маркерами. Вызов функции:

Код:

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

(defun C:repole ( / )
	(repole-mark "SCS_kab_marker" "СЛОЙ1" "МАРКЕР1" 0.6)
	(repole-mark "SCS_kab_marker_2" "СЛОЙ1" "МАРКЕР1" 0.6)
	(repole-mark "SCS_kab_marker_2" "СЛОЙ2" "МАРКЕР2" 0.6)
)

[Лиспер]

Так а файла-то и нетутить...

[NEDIS]

Сообщение от Лиспер Так а файла-то и нетутить...

ой извиняюсь

Время обработки 200 шт около 15 сек

[Лиспер]

Да, алгоритм, выходит, не оптимальный. Но другого я придумать не смог. Компиляция в fas проблему быстродействия моего варианта, естественно, не решила. Сорри