[swkx]

Подскажите, плиз, почему я иногда вижу предупреждение "Не удалось открыть файл test.txt" ?
В каких случаях автокад видит файл, но не может его открыть ?

Файл test.txt лежит в "Мои документы"

Код:

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

(setq filename "test.txt")
(if (findfile filename)
(if (not (setq fo (open filename "r")))
	(alert "Не удалось открыть файл test.txt")
); if
); if

[Кулик Алексей aka kpblc]

Кое-что об обработке ошибок я писал на autolisp.ru: http://autolisp.ru/2009/09/13/error-catch/

[swkx]

Алексей,

я эту статью помню, с переопределением функций в свое время так и не разобрался, но конструкция с использованием vl-catch-all-error-pr и vl-catch-all-apply у меня как-то прижилась и теперь я использую их при необходимости.

[gomer]

в начале
(setq olderr *error**error* filerr)
и
(setq *error*olderr)
в конце функции

[swkx]

Сообщение от gomer в начале (setq olderr *error**error* filerr) и (setq *error*olderr) в конце функции

Вот теперь всё понятно. Спасибо.