ADN Club > AutoLisp / VisualLISP и DCL
Нужна помощь в написании ЛИСПА
Горняк:
Всем добрый вечер.
Попробовал написать ЛИСП с диалоговым окном.
Смысл лиспа в том, что бы с диалогового окна нажав на определенную кнопку запускались нужные Excel файлы.
Но не чего не получилась :-[
Вот какой диалог я написал:
--- Код - INI [Выбрать] ---Sludge:dialog {label="Объёмы ШЛАМА"; :column{:boxed_column { :button {key="decade";label="Декада";} :button {key="month";label="Месяц";} :button {key="quarter";label="Квартал";} } :boxed_row{ok_cancel; } }}И ЛИСП к нему:
--- Код - Auto/Visual Lisp [Выбрать] ---(defun C:Sludge() (setq dcl_id (load_dialog "Sludge.dcl")) (if (not (new_dialog "Sludge" dcl_id)) (progn (alert "Sludge.dcl")(exit) )) (action_tile "decade" "(doButton 1)") (action_tile "month" "(doButton 2)") (action_tile "quarter" "(doButton 3)") (action_tile "cancel" "(done_dialog)") (start_dialog) (princ)) (defun doButton(a) (cond ((= a 1)(command "_START" "EXCEL.EXE")) ((= a 2)(command "_START" "EXCEL.EXE")) ((= a 3)(command "_START" "EXCEL.EXE")) ))Кому не сложно помогите написать лисп, я думаю что для многих и Вас это довольно примитивная задача :)
Александр Ривилис:
Горняк,
Приветствую на форуме!
Обрати внимание на правило форматирования кода у нас на форуме (ссылка у меня в подписи).
Александр Ривилис:
Горняк,
И что не так с кодом?
Вообще-то у нас на форуме только подсказывают как правильно писать, а не пишут за другого.
Горняк:
Александр Ривилис,
Спасибо за приветствие :)
Горняк:
Александр Ривилис,
Я не силен в программировании, Вы это уже поняли по написанию лиспа.
А код я не правильно написал вот он и не работает нужным образом.
Если Вас не затруднит, проконсультировать меня, мне нужен:
1. Код программы который связывает dcl окно с lsp (на примере моего безобразия :) )
2. Код программы после команды (start_dialog), который запускал нужный мне Excel файл (так же на примере моего безобразия :) )
Навигация
Перейти к полной версии