Причуды AutoCAD 2017

[Балиев]

Написать программу которая будет изменять текущий каталог после старта AutoCAD?

Я имею в виду штатную загрузку AutoCAD. Описываемый мной случай отказа функции open касается именно штатной загрузки. А программно и бабушку дедушкой переопределить можно.

В любом случае у меня это не воспроизводится ни в русской, ни в английской версии.

ОК, вопрос закрыт.

[Александр Ривилис]

Заодно проверил по поводу (open "tmp.txt" "w"):

[Балиев]

Странно... А настройки у тебя "заводские" или что-то менял?
В любом случае, 4-го мая появлюсь на работе и попробую понять что не так...

[Александр Ривилис]

А настройки у тебя "заводские" или что-то менял?

"Заводские". Для чистоты эксперимента создал новый профиль и сбросил его. Результат тот же.

[Балиев]

Я скинул все установки, даже миграцию профиля не стал делать, но, к сожалению, все то же самое - при запуске с указанием файла функция "open" не работает. Проверил еще и на виртуальной машине - то же самое.

[Александр Ривилис]

Нужно понять с каким  каталогом пытается работать функция (open). Ты пытаешься открывать файл на запись. Соотвественно должны выполняться два условия:
1) каталог, в котором файл создаётся, должен существовать.
2) должны быть права на запись в этот каталог.
Запусти под Администратором, у которого есть права на запись в любой каталог.

[Балиев]

Если в функции "open" указать полный путь к файлу, то открывает... Что бы это значило? Нет каталога "по-умолчанию"?  Но в твоем случае, похоже, есть...

[Александр Ривилис]

Что бы это значило? Нет каталога "по-умолчанию"?

Скорее нет прав на запись в этот каталог. Возможно это каталог с самим acad.exe, на который права на запись есть только у Администратора (я запускаю под административными правами).

[Александр Ривилис]

Кстати, возможны еще варианты, когда будет ошибка (open "tmp.txt" "w"):
1) Этот файл "tmp.txt" уже есть и он открыт другой программой.
2) Этот файл "tmp.txt" уже есть и у него атрибут "read-only".
Впрочем у меня получилось так:

Код: [Выделить]

Command: (setq f (open "tmp.txt" "w")) #<file "tmp.txt">
Command: (close f) nil
Command: (findfile "tmp.txt") "C:\\Users\\Rivilis-AN\\Documents\\tmp.txt"И это действительно именно тот только что созданный файл.

[Балиев]

я запускаю под административными правами

А как ты запускаешь под админом AutoCAD с указанием файла?

[Александр Ривилис]

А как ты запускаешь под админом AutoCAD с указанием файла?

Просто работаю под пользователем с правами Администратора.
Но это уже оффтоп, не имеющий никакого отношения к теме.

[Балиев]

Просто работаю под пользователем с правами Администратора.

Я тоже. Так что это не решение...

[Александр Ривилис]

Я тоже. Так что это не решение...

Решение - указывать правильный полный путь к файлу.

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

Off-Topic: показать

В порядке оффтопа: насколько я помню, можно проверить файл на режим ReadOnly через lisp с помощью vl-file-systime. Мой вариант, если интересно (написан очень давно, лет 7 назад):

Код - Auto/Visual Lisp [Выбрать]

1. (defun _kpblc-is-file-read-only (file-name / file_hangle res)
2.                                 ;|
3. *    Проверяет, является ли файл "read-only". Возвращает t, если да. Проверки
4. * наличия файла не выполняется.
5. *    Параметры вызова:
6. *  file-name  полное имя файла, с путем.
7. (_kpblc-is-file-read-only "Z:\\КТО transit\\Разное\\Устройство молниезащиты.dwg")
8. |;
9.   (and file-name
10.        (findfile file-name)
11.        (or (not (vl-file-systime file-name))
12.            ((lambda (/ svr obj res)
13.               (setq svr (vlax-get-or-create-object "Scripting.FileSystemObject")
14.                     obj (vlax-invoke-method svr 'getfile file-name)
15.                     res (vlax-get-property obj 'attributes)
16.                     ) ;_ end of setq
17.               (vlax-release-object obj)
18.               (vlax-release-object svr)
19.               (setq obj nil
20.                     svr nil
21.                     ) ;_ end of setq
22.               (/= (* 2 (/ res 2)) res)
23.               ) ;_ end of lambda
24.             )
25.            ) ;_ end of or
26.        ) ;_ end of and
27.   ) ;_ end of defun

[Балиев]

Решение - указывать правильный полный путь к файлу.

В том смысле, что это работает - да. Но, если для AutoCAD'а определено понятие "каталог по умолчанию", то это не решение, а "костыль". По-моему, существование или несуществование в AutoCAD'е каталога по умолчанию вопрос важный не только в связи с работоспособностью функции "open".