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

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

Выполни свой код построчно и покажи результаты каждой строи в командной строке AutoCAD.
Особенно интересует значение str5, str6 и myfile

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

Один момент.

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

Command: (load "C:/Users/Pashin.Evgeniy/Desktop/write lisp.lsp")
nil

О мой бог! Файл появился!




Александр Наумович, их тут уже штук 6 лежит...Значит код срабатывал, а я просто не увидел их  в толпе остальных файлов...
Ну кто я после этого?


Итого:

Код - 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)

Так как мне нужно вместо "." в переменной sdate установить "__", то код будет:

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

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

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

И что это было???

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

И что это было???

Ну, кроме моей слепоты ничего и не было! Вы не представляете как мне сейчас стыдно.