Создание лог-файла для LISP

[Пашин Евгений]

Доброе утро!

Подскажите как грамотно создать лог-файл для LISP-функции, в котором должна быть информация:

Название файла должно содержать в себе Имя компьютера и дату в формате __ДДММГГГГ_ЧЧММСС, то есть Имя_компьютера__ДДММГГГ_ЧЧММСС.txt.
Внутри файла:
1) Дата: ДД-ММ-ГГГГ
2) Имя пользователя: #####
3) Имя компьютера: #####
4) Начало функции: ЧЧ:ММ:СС
5) Имя функции: «Вставка стандартного блока»
6) Конец функции: ЧЧ:ММ:СС

Буду признателен за помощь.

Цель: генерировать лог-файл для LISP - функции.


Что я делаю не так?

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

1. (setq str1 "Дата создания:"); как определить?
2. (setq str2 "Имя компьютера:"); как определить?
3. (setq str3 "Имя пользователя:"); как определить?
4. (setq str4 "Начало:"); как определить?
5. (setq str5 (strcat str2 "__" str1 "_" str4)); имя файла
6. (setq str6 (strcat "\\server-1\SAPR_report\" str5 ".txt")); полный путь к файлу
7. (setq myFile (open str6 "w"))
8. (write-line str1 myFile)
9. (write-line str2 myFile)
10. (write-line str3 myFile)
11. (write-line str4 myFile)
12. (close myFile)

[Владимир Шу]

Посмотрите тут: http://adn-cis.org/forum/index.php?topic=2580.0 , возможно появиться пара идей как получить имя компьютера и имя пользователя.

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

Command: (setq comp (getenv "COMPUTERNAME")) "RIVILISAN"
Command: (setq user (getenv "USERNAME")) "Rivilis-AN"
Command: (setq sdate (rtos (getvar "CDATE") 2 6)) "20151124.082957"

Думаю, что этой информации предостаточно.

[Пашин Евгений]

Думаю, что этой информации предостаточно.

Увы, Александр Наумович, не достаточно!

Lisp-функция не работает:

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

1. (setq username (getenv "username"))
2. (setq copname (getenv "computername"))
3. (setq sdate (rtos (getvar "CDATE") 2 6))
4. (setq str5 (strcat copname "__" sdate))
5. (setq str6 (strcat "\\server-1\SAPR_report\" str5 ".txt"))
6. (setq myFile (open str6 "w"))
7. (write-line username myFile)
8. (write-line copname myFile)
9. (close myFile)

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

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

Lisp-функция не работает:

Кто не работает? Куда не работает? Какие сообщения выдаёт?

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

А это что за ерунда:

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

1. (setq str6 (strcat "\\server-1\SAPR_report\" str5 ".txt"))

В lisp обратные слэши (как и в C/C++/C#) нужно дублировать. Т.е.:

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

1. (setq str6 (strcat "\\\\server-1\\SAPR_report\\" str5 ".txt"))

[Пашин Евгений]

Кто не работает?

Я запускаю из lisp-редактора, но никакой реакции, кроме "'VLIDE" не получаю.

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

http://adn-cis.org/forum/index.php?topic=3233.msg13488#msg13488

[Пашин Евгений]

Запускаю построчно в командной строке Автокада - работает!

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

1. (setq username (getenv "username"))
2. (setq copname (getenv "computername"))
3. (setq sdate (rtos (getvar "CDATE") 2 6))
4. (setq str5 (strcat copname "__" sdate))
5. (setq str6 (strcat "\\\\server-1\\SAPR_report\\" str5 ".txt"))
6. (setq myFile (open str6 "w"))
7. (write-line username myFile)
8. (write-line copname myFile)
9. (close myFile); чем-то ему последняя строка не угодила

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

Запускаю построчно в командной строке Автокада - работает!

Так что еще нужно?

[Пашин Евгений]

Так что еще нужно?

Приношу извинения, только последняя строка не работает.

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

Приношу извинения, только последняя строка не работает.

Как это выглядит? Если последняя строка не сработает, то и файл не появится или он будет пустой.

[Пашин Евгений]

Как это выглядит? Если последняя строка не сработает, то и файл не появится или он будет пустой.

Выводит nil. А файла и нет вовсе. Я думал, что сначала он где-то в памяти формируется, и лишь потом сохраняется в указанной папке. Даже подумал, что с определенной задержкой это происходит. Видимо, нет.

Что мешает ему (lisp-коду) сохраниться?

; error: bad argument type: streamp nil

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

Если myfile равно nil то или путь к файлу ошибочный или нет прав на запись. Проверяй.

[Пашин Евгений]

нет прав на запись.

Запись у всех пользователей есть. Проверено! От каждого пользователя идет сохранения отчетов в эту папку.

путь к файлу ошибочный

Путь к папке 100% верный. Я же программно создаю в ней файлы.