[ivan55]

Добрый день уважаемые программисты, нужна ваша помощь.
У меня есть диалоговое окно, в нем две колонки в которые я записываю координаты,
мне нужно объединить два списка в один что бы получился список координат.
Файлы диалогового окна во вложении.dlg.zip
Буду очень благодарен за помощь.

[Alan]

ЛабаЛаторка?
Ты так и не ответил на мой вопрос.
Появилась свободная минутка...
Пришлось открыть текст. Ну для Лабы сложновато.

Тогда возникает вопрос:
"Ты хочешь изучать Лисп или тебе надо этот чей-то текст для практического применения в своей работе?"

Или нужно только это?

Сообщение от ivan55 мне нужно объединить два списка в один что бы получился список координат.

Для простого слияния списков служит стандартная функция Lisp append
Например, (append '(0 1 2 3 4) '(10 11 12 13 14))
вернёт (0 1 2 3 4 10 11 12 13 14)
Если хочешь получить список точечных пар. воспользуйся функцией cons
Например,

Код:

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

 (setq sps1 '(0 1 2 3 4 5)
      sps2 '(10 11 12 13 14 15)
      sps3 nil
      i	   0
) ;_ конец setq
(while (nth i sps1)
  (setq sps3 (cons (cons (nth i sps1) (nth i sps2))sps3)
	i (1+ i)))
  (setq sps3 (reverse sps3))

вернёт
((0 . 10) (1 . 11) (2 . 12) (3 . 13) (4 . 14) (5 . 15))
Где-то так