[Zaghim]

Скажите, каким образом можно уйти на метку, выполнить там какие-либо действия и не возвращаться назад?

Допустим в такой конструкции
(alert "Ошибка")
(errexit)
.........

(defun errexit ()
..........
)

После завершения куска errexit программа автоматом вернется на ту строку, которая на нее ссылалась и продолжит выполнение команд ниже. А как сделать, что бы она не возвращалась?

[VVA]

Вызови ф-ции (exit) или (quit)

[E-degtyarev]

Вызови ф-ции (exit) или (quit)

А эти функции абсолютно идентичны или между ними есть какое-то различие?

[VVA]

Если различие и есть, то мне о нем неизвестно.

[Zaghim]

Выход понятно. Но мне нужно остаться на той метке и там работать дальше... потому что после строки, которая вызывает этот кусок дальше идут команды, а мне нужно что бы они не выполнялись.

[VVA]

используй cond while if. Попробуй изменить алгоритм.

[E-degtyarev]

Насколько мне известно в Автолиспе перехода типа GO TO -> Label не существует.
Я объединяю группы "команд", а точнее стандартных функций в функции, а затем (if (...) (первая функция) (вторая функция)) и т.п.

[Дима_]

Сообщение от E-degtyarev Насколько мне известно в Автолиспе перехода типа GO TO -> Label не существует.

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

[ShaggyDoc]

Сообщение от VVA Если различие и есть, то мне о нем неизвестно.

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

Мне так каааэтся.

И слава богу...

Правильно, Дима_. Так их, с "метками".

[Zaghim]

Ок. Тогда вопрос поставлю по-другому. Вот у вас программа, она что-то чертит. Вы задали точки, она по ним отрисовала. Но, допустим, вам не понравилось как она нарисовала, вы хотите отменить (стереть) начерченное и вернуться в начало программы на задание исходных точек. Как быть? По ходу программы, как было выше, случилась у меня ошибка, я все стираю и хочу вернуться к началу программы. Вроде просто, указал метку и пошел в начало, а ведь программа отработает сначала, а потом вернется туда, где была ошибка...

[Дима_]

Как программа поняла что "случилась у меня ошибка"?
p.s. погугли (или например википедия) что такое рекурсия и лямбда функции. Посмотри коды с этого форума, большинство вопросов отпадет само собой.

[VVA]

Сообщение от Zaghim Но, допустим, вам не понравилось как она нарисовала, вы хотите отменить (стереть) начерченное и вернуться в начало программы на задание исходных точек. Как быть?

Стереть - не правильно. Правильно - отменить [undo] (как это делается,например, в команде отрезок [line])
Для этого есть специальная команда _UNDO и ее опции. Например _Undo _Mark и _Undo _Back. А так же переменная UNDOMARKS. Пример программы с их использованием

[Zaghim]

VVA: Вопрос не в том, как я буду делать - стирать или отменять, это мое дело, для меня разницы никакой.
Дима: Ок, спасибо, посмотрю.

[Disney]

Zaghim, посмотри Ctrl+Z в процессе выполнения функции. Как?

[Zaghim]

Да как все стереть (отменить) - это я реализовал, и, по-другому. Вопрос в том, как бы после стерания всего свалить на начало)

[Дима_]

вызвать функцию "начало"
p.s. я серьезно

(функция "запрос данных")
(функция "рисование")
(функция "проверка на ошибку")
(функция "откат рисования")

(ФУНКЦИЯ НАЧАЛО
(запрос данных)
(функция рисования)
(if (проверка на ошибку)
((откат рисования) (НАЧАЛО));действия при ошибке
(ЗДЕСЬ ДЕЙСТВИЯ ЕСЛИ НЕТ ОШИБКИ (НАПРМЕР НИЧЕГО - ВЫХОД));действия если нет ошибки
);конец if
);конец НАЧАЛО

[Zaghim]

)) А когда завершится функция начало, ты вернешься в откат рисования, сразу за меткой перехода на начало! ... т.е. твоя программа отработает, а потом дорисует (если дорисует) с того момента, когда уходил на начало...

[Дима_]

посмотри еще раз повнимательней - после вызова начало ничего нет - выход

[Zaghim]

У меня немножко другой случай...но в общем-то я разобрался... Только работает криво, иногда нормально делается откат иногда выдается такая ошибка, не знаешь, что она значит?
error: stream is closed: #<FILE internal>

[Дима_]

пишешь в закрытый файл
по поводу отката см. пункт 12