Lisp. как создать список со всеми аттрибутами("ATTRIB") на чертеже ?

Composter · 20.12.2011, 22:52

Подскажите ,как создать список в котором будут все атрибуты чертежа?

Дима_ · 21.12.2011, 01:10

Вариантов много - вот 1:

Код:

 (defun all-attrib()
  ((lambda (frec) (frec (entnext)))
   (lambda (ent)
     (if ent
         (if (= (cdr (assoc 0 (entget ent))) "ATTRIB")
             (cons ent (frec (entnext ent)))
             (frec (entnext ent)))))))

Composter · 21.12.2011, 01:23

что то у меня не выходит автокад пишет
Hard error occurred ***
internal stack limit reached (simulated)

Дима_ · 21.12.2011, 01:45

Эх - видать многовато их для рекурсии автолиспа - разворачивать надо - вариант 2:

Код:

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

 (defun all-attrib( / lst ent)
 (SETQ ent (entnext))
 (while ent
   (if (= (cdr (assoc 0 (entget ent))) "ATTRIB")
       (SETQ lst (cons ent lst)))
   (SETQ ent (entnext ent)))
 (reverse lst))

Олег (jr.) · 21.12.2011, 02:13

Цитата:

Сообщение от Дима_

Эх - видать многовато их для рекурсии автолиспа - разворачивать надо - вариант 2:

Извини к твоему коду не относится, респект

Composter · 22.12.2011, 03:49

со вторым вариантом все работает.спасибо

20.12.2011, 22:52		#1
Lisp. как создать список со всеми аттрибутами("ATTRIB") на чертеже ? Composter Отопление и вентиляция Москва Регистрация: 31.10.2008 Сообщений: 445 Подскажите ,как создать список в котором будут все атрибуты чертежа?
Просмотров: 1884

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Отслеживание таблиц на чертеже [программно]	TwoZero	Программирование	15	13.05.2024 09:51
SW 2009. Как создать такой вид на чертеже	Anvil	SolidWorks	3	06.01.2009 15:57
Получить список блоков в чертеже	DonVik	Программирование	6	27.08.2008 15:08
как получить список всех видов в чертеже	Димас	Программирование	12	22.02.2006 02:29