[WhiteShark]

Доброго времени.
Хочу зациклить получение списка по ключу. То есть выбрал к примеру объект. Получил о нем данные в виде списка. Далее в полученном списке по ключу (вернее по паре (ключ.имя)) получил следующий объект и его данные в виде списка и так далее. Написал такую функцию. Но как то она не работает. Помогите пажалста. Первый раз ввожу 666 в качестве ключа, чтобы попасть на выделение объекта. Во второй раз и следующие - уже интересующие ключи.

Код:

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

(defun alist (m)
    (setq m (getint "\nKey? "))
    (cond     ((= m 666) (cdr (assoc 1 (entget (car (entsel)) '("*")))) (setq m -1))
    (entget (cdr (assoc m (alist (m))))) (princ "\n") (princ alist))
)

Просьба переименовать тему в "Рекурсивное.."

[Дима_]

как-то так, ошибки и пр. сам лови

Код:

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

 (defun c:getkey()
((lambda (frec) (frec (entget (car (entsel)))))
 (lambda (lst)
   (princ lst)
   (frec (entget (cdr (assoc (getint "\n\n Key: ") lst)))))))

[WhiteShark]

Отлично! Спасибо! То, что требовалось! А что без лямбды никак?

[Дима_]

Почему никак - как, только даю гарантию - код станет для Вас еще более непонятным, либо с кривыми костылями типа Ваших трех шестерок.

[WhiteShark]

Прошу прощения за глупый вопрос может быть но вот тут (frec (entget (car (entsel))) как бы идет присвоение frec? Если это правильно, то почему нет чего то типа setq? Или тут допустимо опускать его?

[gomer]

Сообщение от WhiteShark вот тут (frec (entget (car (entsel))) как бы идет присвоение frec?

ни какое тут не присваивание

Код:

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

 (defun c:getkey ( / key lst)
  (princ (setq lst (entget (car (entsel))))) 
  (while (setq key (getint "\n\n Key: "))
    (princ (setq lst (entget (cdr (assoc key lst)))))))

вот настоящее присваивание, ка видно по количеству кода, разница не большая, зато по понятности итерация намного впереди =)

[Дима_]

Сообщение от gomer зато по понятности итерация намного впереди =)

Да вся эта "непонятность" из-за того что "в школе на программировании" только как а=а+1 объяснили, вся прелесть в том, что если ( ... / x y z ...) будет хотя-бы с десяток, то вся функция перед тем так появится "от и до" будет 3 раза в vlide переписанна - я с удовольствием посмотрел-бы на того, кто готов с лекгостью такой сложности функцию (не знакомую, либо подобную вчера написанной, естественно), на "понятном" императиве с первого раза выдать.

[WhiteShark]

Дима_, код от gomer, мне понятен. Но вот ваш просто ломает мой мозг ) По крайней мере рушит понимание лямбда вызовов и функций. А так же я не понимаю, каким образом оно все таки циклится? Не могли бы немного прокомментировать хотя бы первую строку?
Вот это - это вызов без передачи аргументов или нет?
((lambda (frec) (frec (entget (car (entsel))))) И в выделенном месте frec это функция от того что вернет (entget (car (entsel))) ?

Ну и все таки в соответствии с идеей о рекурсии есть какая то реализация? Моя идея была такова: функция alist всегда возвращает список, а единственное, что меняется это параметр по которому происходит поиск (ключ). Вот я и попробовал сделать так. Чувствую, что коряво и можно как то элегантней, но я только учусь и не знаю как. Лиспа к сожалению в школе не проходил. В чем у меня ошибка не могли бы тоже подсказать?

[VVA]

WhiteShark, Почитай Уроки создания рекурсивных функций от Евгения Елпанова

[Дима_]

Код:

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

 (defun c:getkey() ;объявление функции getkey
((lambda (frec) ; определяем имя функции
   (frec (entget (car (entsel))))); применяем свежеопределенную функцию к DXF списку от выбранного примитива
 (lambda (lst); создаем функцю (которую мы во второй строке определяем как frec) от 1 аргумента
   (princ lst); распечатываем этот аргумент
   (frec (entget (cdr (assoc (getint "\n\n Key: ") lst)))))));рекурсивно запускаем сами себя от dxf списка
   ;полученного по запрошенному ключу

По крайней мере рушит понимание лямбда вызовов и функций.

Боюсь у Вас с этим знанием было не все так хорошо.