[solo123]

Как зациклить ввод данных так, чтобы каждый следующий ввод имел другую переменную например n2 вместо n1,n3 вместо n2, и тд.
количество циклов бесконечно до ввода(< 5>) [стоп]
( DEFUN c:zik ( / n1 )
(vl-load-com)
(setq n1 (getint " Введите направление (<1>) [прямо/право/лево/назад/стоп]: ")))

[Дима_]

(while (= n1 5)....)

[Disney]

вообще вот так

Код:

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

 (setq i 0)
(initget
  1
  "1-прямо 2-право 3-лево 4-назад 5-стоп _1 2 3 4 5"
)
(while (/= (setq temp
		  (getkword
		    "Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>: "
		  )
	   )
	   "5"
       )
  (set (read (strcat "n" (itoa (setq i (1+ i)))))
       (atoi temp)
  )
  (initget
    1
    "1-прямо 2-право 3-лево 4-назад 5-стоп _1 2 3 4 5"
  )
)

Но так ни кто не делает, лучше заносить значения в список

Код:

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

 (initget
  1
  "1-прямо 2-право 3-лево 4-назад 5-стоп _1 2 3 4 5"
)
(while (/= (setq temp
		  (getkword
		    "Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>: "
		  )
	   )
	   "5"
       )
  (setq k-list (cons temp k-list))
  (initget
    1
    "1-прямо 2-право 3-лево 4-назад 5-стоп _1 2 3 4 5"
  )
)

[solo123]

Большое спасибо! Особенно Disney , без Вашей помощи ещёбы сидел и тупил.

[gomer]

Сообщение от Disney Но так ни кто не делает, лучше заносить значения в список

Код:

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

 (setq
	DirectionList '()
	optns (list "ПРямо" "ВПраво" "ВЛево" "Назад" "Конем" "Слоном" "НеЗнаю" "КудаПодальше" "СТоп")
	def   (last optns)
	split (lambda (y) (strcat (car optns) (apply 'strcat (mapcar '(lambda (x) (strcat y x)) (cdr optns))))))
(while (/= def (progn (initget (split " "))
						 (setq CurrentDirection (cond ((getkword (strcat "\nУкажите направление [" (split "/") "] <" def ">: " )))
													  (def)))))
  (setq DirectionList (append DirectionList (list (vl-position CurrentDirection (reverse (cdr (reverse optns)))))))
)

[Дима_]

Offtop: Когда я вижу вызываемую в цикле конструкцию наподобие (setq k-list (cons temp k-list)) - у меня приливает адриналин - рекурсия по ней "плачет".

[Disney]

Дима_, так ты не стесняйся, пиши...
Глядишь и нас потихоньку научишь\приучишь, а то логику кем-то написанной рекурсии я понимаю, а самому написать ума не хватает

[Дима_]

Сообщение от Disney а то логику кем-то написанной рекурсии я понимаю, а самому написать ума не хватает

Код:

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

 ((lambda (f-rec get-key) (f-rec (get-key)))
 (lambda (x)
   (if (not(= x "5")) (cons x (f-rec (get-key)))))
 (lambda ()
   (initget 1 "1-прямо 2-право 3-лево 4-назад 5-стоп _1 2 3 4 5")
   (getkword "Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>:")))

Offtop: осторожно она (логика) затягивает

[gomer]

Сообщение от Дима_ осторожно она (логика) затягивает

рекурсии это конечно хорошо, НО:
1. Забываем про эру ДОС: "1-..." - это моветон!
2. Перестаем игнорировать нули, они в лиспе много стоят!
3. (initget 1 ... <1>: Вообще бред...

зы... подправил #5

[Дима_]

initget и getkword - я бессовестно скопировал с Диснея - он просил логику показать - насчет 1... - моветон это отсутствие нормального гуя, а если пишешь на автолиспе - то тут без "мовитонирования" никак - привет от автодеск так сказать.
p.s. по факту целиком, дружелюбный пользователю - по сегодняшним меркам, проект на чистом лисп не напишешь.

[gomer]

Сообщение от Дима_ отсутствие нормального гуя

Тут гуй ни к чему, гуй уже в акад встроен с 2006 версии... хотя может юзеру и западло набирать две буквы вместо цифры... для цыфирей есть getint, но и он тут ни к селу ни к городу...
з.ы. по моему я пока рулю в #5

[ShaggyDoc]

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

это если с рекурсией

[Дима_]

Сообщение от gomer Тут гуй ни к чему, гуй уже в акад встроен с 2006 версии...

Но только не в автолисп - там все, сюдя по всему, на dcl закончилось.

Сообщение от gomer по моему я пока рулю в #5

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

это если с рекурсией

а что Вы хоть как на автолиспе немодальное окно напишете? Вот такое например:

[gomer]

Сообщение от Дима_ Но только не в автолисп - там все, сюдя по всему, на dcl закончилось.

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

Сообщение от Дима_ что мешает сразу "нужные" значения в список собирать

то что не зависит от пользователя, выполняется в любой последовательности не нарушающей логику программы...
#3 и #8 возвращает список реверсивный исходному: первое введенное действие оказывается последним в списке... преобразовывать все равно надо, с другой стороны ползователю не надо!!! помнить "коды" шагов и сопоставлять их с описанием... лишнее это, потому что это должна делать программа...
это и называется д.и. имхо

[Дима_]

Сообщение от gomer #3 и #8 возвращает список реверсивный исходному: первое введенное действие оказывается последним в списке...

а давайте #8 запустить попробуем:

Код:

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

Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>:1-прямо
Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>:2-право
Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>:3-лево
Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>:4-назад
Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>:5-стоп
("1" "2" "3" "4")

и что мы видим? а если нужно вместо "1" вставлять - "прямо" так это ИХМО и надо делать при составлении списка - а не лишний раз прогонять.

[gomer]

Сообщение от Дима_ а давайте #8 запустить попробуем:

э, мдя, согласен... сорри... хотел написать "кажется" но отвлекся... никак не врублюсь в рекурсии
("1" "2" "3" "4") все равно нужно обрабатывать...
Дима_, ваш код, возможно, можно еще оптимизировать т.к. f-rec встречается дважды (или нет... если я не прав)

[Disney]

Сообщение от gomer 1. Забываем про эру ДОС: "1-..." - это моветон! 2. Перестаем игнорировать нули, они в лиспе много стоят!

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

Сообщение от gomer 3. (initget 1 ... <1>: Вообще бред...

Конечно бред , но я же не бью себя в грудь, что я великий программист, зато я отличный геодезист!
initget 1 - лень было пустой ввод обрабатывать
<1> - а это как Дима отмазался "я бессовестно скопировал с solo123"

Сообщение от gomer никак не врублюсь в рекурсии

А я врубился
вот Димина функция, только по Евгению Елпанову, через defun

Код:

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

 (defun rec-f (key)
  (if (not (= key "5"))
    (cons
      (atoi key)
      (rec-f
	(get_key)
      )
    )
  )
)
(defun get_key ()
       (initget
	"1-прямо 2-право 3-лево 4-назад 5-стоп _1 2 3 4 5"
       )
  (cond
    ((getkword
       "Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>: "
     )
    )
    ("1")
  )
)

;;;вызов функции
;;;(rec-f
;;;  (get_key)
;;;)

[VH_]

Антоним к слову "назад" - не "прямо", а "вперед".

[gomer]

Сообщение от Disney А я врубился

в квадратных скобках должно быть 5 не потакайте афтару пишите правильно

[ShaggyDoc]

Вообще-то для выбора направления (1-прямо/2-право/3-лево/4-назад) не надо задавать столько ключевых слов и делать getkword.

Смысл "следующего" направления есть, когда известно предыдущее. Чтобы повернуть вправо, влево и т.д. достаточно запросить одну точку. В зависимости от того, где указана точка, программа должна сообразить, в какую сторону поворачивать.