[Zaghim]

Поискал на форуме, точного ничего не нашел.
Подскажите чайнику, как нужно создавать DCL и как его потом запустить (это самое важное). Ничего не пойму...везде сразу коды коды...а как и куда ничего нету...Что еще важней, как все запустить, если создавать окно в ObjectDCL.
Хотелось бы сделать окошко в котором был бы комбо бокс...в нем выбрав нужную деталь показывались бы 4 картинки с различными ее видами...к каждой картинке был бы прикреплен файл... и ткнув на картинку я мог бы вставить это в чертеж. Такое реально сделать?

E-degtyarev&Do$

Да какието радужные оболочки.

Здравствуйте.

Такой вопрос.Как осуществляется прикрепление некотрой созданной LISP программы к кнопке диалогового окна.Где можно про это почитать?

[Кулик Алексей aka kpblc]

Через action_tile

Ок.Спасибо.Учимся дальше.

[Zaghim]

Полещук рулит)))

Как выполнить закрытие д.окна с помощью "крестика" (в правом верхнем углу д.окна)?

[Кулик Алексей aka kpblc]

Ну, либо на него нажать, либо на кнопку [OK]. На крайний случай - (done_dialog).

Кулик Алексей aka kpblc

Так в томто и дело что крестик не работает.ОК выводит из окна.А вот как крестик активировать?

Добавлено.

А справка по Лиспу только на английском?

[Кулик Алексей aka kpblc]

Владимир Егорьев, покажи полный код - и dcl, и lsp для его активизации.
P.S. На данный момент справка по AutoLISP либо на английском, либо в печатном (ищи книги Полещука; но учиться по ним тяжело).

Две книги у меня Полищука.

Код:

[Выделить все]

np_forma_c: dialog {label="Ведомость ";
:row{label="Форма ведомости";
  :column{label="Нлмер позиции";
    :edit_box{key="kShir1";value="0";edit_width=3;}
  }//column
:spacer {height=1;}
  :column{label="Наименование";
    :edit_box{key="kShir2";value="0";edit_width=3;}
  }//column
:spacer {height=1;}
  :column{label="Шифр марки";
    :edit_box{key="kShir3";value="0";edit_width=3;}
  }//column
:spacer {height=1;}
  :column{label="Номер чертежа";
    :edit_box{key="kShir4";value="0";edit_width=3;}
  }//column
}//row
ok_button;
}//конец forma_c

Код:

[Выделить все]

(defun c:show_forma_c ( / dcl_id)
  (if (< (setq dcl_id (load_dialog "forma_c.DCL")) 1) (exit))
  (if (not (new_dialog "np_forma_c" dcl_id)) (exit))
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
);defun show_forma_c

[gomer]

ok_only;

[Кулик Алексей aka kpblc]

Уже нет сил на полноценную проверку, но, ИМХО: а где (action_tile) ?

gomer

У Полещука: ok_only-элемент в виде колонки из одного элемента с кнопкой OK

Кулик Алексей aka kpblc

Если ты к тому что у меня в принципи нет action_tile-то я просто пока до этого не дошёл.Я просто пока построил диалоговое окно без действий.Если ты про то что использовать action_tile в качестве воздействия на крестик-то я не знаю как это выполнить.Как я понимаю происходящее-то крестик это атрибут самого окна по умолчанию,и чтобы на этот крестик воздействовать должна быть команда,но я её не нашёл у Полещука. (Поправь если я заблуждаюсь)

[Кулик Алексей aka kpblc]

Владимир Егорьев, у тебя не прописано действие Cancel. Попробуй такой код:

Код:

[Выделить все]

 (defun show-form (/ file handle dcl_id dcl_res)
  (setq file   (strcat (vl-string-right-trim "\\" (getenv "TMP"))
                       "\\dlg.dcl"
                       ) ;_ end of strcat
        handle (open file "w")
        ) ;_ end of setq
  (foreach item '("np_forma_c: dialog {label=\"Âåäîìîñòü \";"
                  ":row{label=\"Ôîðìà âåäîìîñòè\";"
                  ":column{label=\"Íëìåð ïîçèöèè\";"
                  ":edit_box{key=\"kShir1\";value=\"0\";edit_width=3;}"
                  "}//column"
                  ":spacer {height=1;}"
                  ":column{label=\"Íàèìåíîâàíèå\";"
                  ":edit_box{key=\"kShir2\";value=\"0\";edit_width=3;}"
                  "}//column"
                  ":spacer {height=1;}"
                  ":column{label=\"Øèôð ìàðêè\";"
                  ":edit_box{key=\"kShir3\";value=\"0\";edit_width=3;}"
                  "}//column"
                  ":spacer {height=1;}"
                  ":column{label=\"Íîìåð ÷åðòåæà\";"
                  ":edit_box{key=\"kShir4\";value=\"0\";edit_width=3;}"
                  "}//column"
                  "}//row"
                  "ok_cancel;}"
                  )
    (write-line item handle)
    ) ;_ end of foreach
  (close handle)
  (setq dcl_id (load_dialog file))
  (new_dialog "np_forma_c" dcl_id)
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq dcl_res (start_dialog))
  (unload_dialog dcl_id)
  (princ)
  ) ;_ end of defun

[gomer]

Сообщение от Владимир Егорьев У Полещука

Алгоритм такой:
1. Меняешь ok_button; на ok_only (смотришь нажимается ли крестик)
2 Заменяешь (start_dialog) на (setq dcl_rt (start_dialog)) (смотришь что возвращает dcl_rt
3. Вместо ok_only используешь ok_cancel (жмешь все кнопки и крестик, смотришь переменную dcl_rt)

ой, kpblc меня опередил =)