Сообщество программистов Autodesk в СНГ

ADN Club => AutoLisp / VisualLISP и DCL => Тема начата: Горняк от 22-12-2020, 20:15:35

Название: Нужна помощь в написании ЛИСПА
Отправлено: Горняк от 22-12-2020, 20:15:35
Всем добрый вечер.
Попробовал написать ЛИСП с диалоговым окном.
Смысл лиспа в том, что бы с диалогового окна нажав на определенную кнопку запускались нужные 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. )
Кому не сложно помогите написать лисп, я думаю что для многих и Вас это довольно примитивная задача :)
Название: Re: Нужна помощь в написании ЛИСПА
Отправлено: Александр Ривилис от 22-12-2020, 21:26:55
Горняк,
Приветствую на форуме!
Обрати внимание на правило форматирования кода у нас на форуме (ссылка у меня в подписи).
Название: Re: Нужна помощь в написании ЛИСПА
Отправлено: Александр Ривилис от 22-12-2020, 21:27:35
Горняк,
И что не так с кодом?
Вообще-то у нас на форуме только подсказывают как правильно писать, а не пишут за другого.
Название: Re: Нужна помощь в написании ЛИСПА
Отправлено: Горняк от 23-12-2020, 01:34:26
Александр Ривилис,
Спасибо за приветствие :)
Название: Re: Нужна помощь в написании ЛИСПА
Отправлено: Горняк от 23-12-2020, 01:44:34
Александр Ривилис,
Я не силен в программировании, Вы это уже поняли по написанию лиспа.
А код я не правильно написал вот он и не работает нужным образом.
Если Вас не затруднит, проконсультировать меня, мне нужен:
1. Код программы который связывает dcl окно с lsp (на примере моего безобразия   :) )
2. Код программы после команды (start_dialog), который запускал нужный мне Excel файл (так же на примере моего безобразия   :) )
Название: Re: Нужна помощь в написании ЛИСПА
Отправлено: Александр Ривилис от 23-12-2020, 11:42:22
Горняк,
Ну как минимум вместо:
Код - Auto/Visual Lisp [Выбрать]
  1. (command "_START" "EXCEL.EXE")
должно быть:
Код - Auto/Visual Lisp [Выбрать]
  1. (startapp "excel.exe" "\"полный_путь_к_xls(x)_файлу\"")