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

Автор Тема: Создание лог-файла для LISP  (Прочитано 11560 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Создание лог-файла для LISP
« Ответ #15 : 24-11-2015, 11:22:44 »
Выполни свой код построчно и покажи результаты каждой строи в командной строке AutoCAD.
Особенно интересует значение str5, str6 и myfile
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн Пашин ЕвгенийАвтор темы

  • ADN PRO
  • *
  • Сообщений: 662
  • Карма: 12
  • Skype: pashin.evgeniy
Re: Создание лог-файла для LISP
« Ответ #16 : 24-11-2015, 11:27:27 »
Один момент.

Оффлайн Пашин ЕвгенийАвтор темы

  • ADN PRO
  • *
  • Сообщений: 662
  • Карма: 12
  • Skype: pashin.evgeniy
Re: Создание лог-файла для LISP
« Ответ #17 : 24-11-2015, 11:30:08 »
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)
« Последнее редактирование: 24-11-2015, 12:56:51 от Пашин Евгений »

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Создание лог-файла для LISP
« Ответ #18 : 24-11-2015, 11:32:39 »
И что это было???
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн Пашин ЕвгенийАвтор темы

  • ADN PRO
  • *
  • Сообщений: 662
  • Карма: 12
  • Skype: pashin.evgeniy
Re: Создание лог-файла для LISP
« Ответ #19 : 24-11-2015, 11:35:46 »
И что это было???

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