Нужна помощь в написании ЛИСПА

Автор Тема: Нужна помощь в написании ЛИСПА  (Прочитано 2106 раз)

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

Оффлайн ГорнякАвтор темы

  • ADN OPEN
  • Сообщений: 3
  • Карма: 0
Всем добрый вечер.
Попробовал написать ЛИСП с диалоговым окном.
Смысл лиспа в том, что бы с диалогового окна нажав на определенную кнопку запускались нужные Excel файлы.
Но не чего не получилась :-[
Вот какой диалог я написал:
Код - INI [Выбрать]
  1. Sludge:dialog {label="Объёмы ШЛАМА";
  2.    :column{:boxed_column        {
  3.         :button {key="decade";label="Декада";}
  4.         :button {key="month";label="Месяц";}
  5.         :button {key="quarter";label="Квартал";}
  6.                                 }
  7.   :boxed_row{ok_cancel; }
  8.              }
  9. }
И ЛИСП к нему:
Код - Auto/Visual Lisp [Выбрать]
  1. (defun C:Sludge()
  2.   (setq dcl_id (load_dialog "Sludge.dcl"))
  3.   (if (not (new_dialog "Sludge" dcl_id))
  4.        (progn
  5.      (alert "Sludge.dcl")(exit)
  6.    )
  7. )
  8.   (action_tile "decade" "(doButton 1)")
  9.   (action_tile "month" "(doButton 2)")
  10.   (action_tile "quarter" "(doButton 3)")
  11.   (action_tile "cancel" "(done_dialog)")
  12.   (start_dialog)
  13.   (princ)
  14. )
  15.  
  16. (defun doButton(a)
  17.  (cond
  18.    ((= a 1)(command "_START" "EXCEL.EXE"))
  19.    ((= a 2)(command "_START" "EXCEL.EXE"))
  20.    ((= a 3)(command "_START" "EXCEL.EXE"))
  21.     )
  22. )
Кому не сложно помогите написать лисп, я думаю что для многих и Вас это довольно примитивная задача :)
« Последнее редактирование: 22-12-2020, 21:25:19 от Александр Ривилис »

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

  • Administrator
  • *****
  • Сообщений: 13177
  • Карма: 1701
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Нужна помощь в написании ЛИСПА
« Ответ #1 : 22-12-2020, 21:26:55 »
Горняк,
Приветствую на форуме!
Обрати внимание на правило форматирования кода у нас на форуме (ссылка у меня в подписи).
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

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

  • Administrator
  • *****
  • Сообщений: 13177
  • Карма: 1701
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Нужна помощь в написании ЛИСПА
« Ответ #2 : 22-12-2020, 21:27:35 »
Горняк,
И что не так с кодом?
Вообще-то у нас на форуме только подсказывают как правильно писать, а не пишут за другого.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн ГорнякАвтор темы

  • ADN OPEN
  • Сообщений: 3
  • Карма: 0
Re: Нужна помощь в написании ЛИСПА
« Ответ #3 : 23-12-2020, 01:34:26 »
Александр Ривилис,
Спасибо за приветствие :)

Оффлайн ГорнякАвтор темы

  • ADN OPEN
  • Сообщений: 3
  • Карма: 0
Re: Нужна помощь в написании ЛИСПА
« Ответ #4 : 23-12-2020, 01:44:34 »
Александр Ривилис,
Я не силен в программировании, Вы это уже поняли по написанию лиспа.
А код я не правильно написал вот он и не работает нужным образом.
Если Вас не затруднит, проконсультировать меня, мне нужен:
1. Код программы который связывает dcl окно с lsp (на примере моего безобразия   :) )
2. Код программы после команды (start_dialog), который запускал нужный мне Excel файл (так же на примере моего безобразия   :) )

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

  • Administrator
  • *****
  • Сообщений: 13177
  • Карма: 1701
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Нужна помощь в написании ЛИСПА
« Ответ #5 : 23-12-2020, 11:42:22 »
Горняк,
Ну как минимум вместо:
Код - Auto/Visual Lisp [Выбрать]
  1. (command "_START" "EXCEL.EXE")
должно быть:
Код - Auto/Visual Lisp [Выбрать]
  1. (startapp "excel.exe" "\"полный_путь_к_xls(x)_файлу\"")
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение