DCL урок на примере.

DCL урок на примере. · 02.11.2011, 09:39

Здравствуйте.
прошу Вас дать урок по созданию DCL и запуску его
Пример:

Код:

 (defun c:test()
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (vl-cmdf "_.osnap" "_none")
  (setq X (getreal "\nВведите значение X: "))
  (setq Y (getreal "\nВведите значение Y: "))
  (setq ......)
  (setq ......)
  (setq ......)
  (defun dtr (a)    ;функция
    .....
    .....
    )
   (setq ......)
   (setq ......)
  (setq a (getreal "\nВведите значение a: "))
  (setq b (getreal "\nВведите значение b: "))
  (setq ....)
  (setq ....)
  (setq c (getreal "\nВведите значение с: "))
  (setq d (getreal "\nВведите значение d: "))
  (setq ....)
  (setq ....)
  (setq f (getreal "\nВведите значение f: "))
  (setq e (getreal "\nВведите значение e: "))
  (setq ....)
  (setq ....)
  ;различные вычисления
  ....
  ....
  ....
  );kонец lisp

Что знаю сам:
DCL

Код:

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

 test: dialog{label="тест";
:edit_box{label="Введите значение X:";}
:edit_box{label="Введите значение Y:";}
:edit_box{label="Введите значение a:";}
:edit_box{label="Введите значение b:";}
:edit_box{label="Введите значение c:";}
:edit_box{label="Введите значение d:";}
:edit_box{label="Введите значение e:";}
:edit_box{label="Введите значение f:";}
ok_button;
}

как дальше пока нет, вот и у Вас прошу урока.
Как запрос в лиспе разместить?
Что необходимо еще ввести в DCL?
Как потом сам DCL запустить? Так же как создаешь кнопку для Lisp ^C^C_?

спс

Makswell · 02.11.2011, 09:56

http://web2.airmail.net/terrycad/Tut.../MyDialogs.htm

Pavel_GP · 02.11.2011, 10:01

Цитата:

Сообщение от Makswell

http://web2.airmail.net/terrycad/Tut.../MyDialogs.htm

спс попробую разобраться.

Do$ · 02.11.2011, 12:06

Цитата:

Сообщение от Pavel_GP

Как потом сам DCL запустить? Так же как создаешь кнопку для Lisp ^C^C_?

Можно посмотреть внешний вид диалога в редакторе VLIDE (встроенный в AutoCAD LISP-редактор). Как - см. скрин.

Pavel_GP · 02.11.2011, 13:05

Допустим DCL написан, Lisp тоже.
Дальше что? как запустить? Запустить Lisp и появится окно диалога?

Кулик Алексей aka kpblc · 02.11.2011, 13:10

В справке, load_dialog, start_dialog, unload_dialog.

Pavel_GP · 02.11.2011, 13:33

Снова к примеру, подставил для себя из примера http://web2.airmail.net/terrycad/Tut.../MyDialogs.htm

test.lsp

Код:

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

 (defun c:test (/ dcl.id)
  (princ "\ntest")(princ)
  ; Set Default Variables
  (if (not *test@);Unique global variable name to store dialog info
    (setq *test@ (list nil "" "" ""))
  );if
  (setq Edit1$ (nth 1 *test@)
        Edit2$ (nth 2 *test@)
        Edit3$ (nth 3 *test@)
    Edit4$ (nth 4 *test@)
  );setq
  ; Load Dialog
  (setq Dcl_Id% (load_dialog "D:\\Program Files\\Autodesk\\AutoCAD Civil 3D 2012\\Lisp\\test.dcl"))
  (new_dialog "test" Dcl_Id%)
  ; Set Dialog Initial Settings
  (set_tile "Title" "test")
  (set_tile "Text1" "Введите x:")
  (set_tile "Edit1" Edit1$)
  (set_tile "Text2" "Введите y:")
  (set_tile "Edit2" Edit2$)
  (set_tile "Text3" "Введите a:")
  (set_tile "Edit3" Edit3$)
  (set_tile "Text4" "Введите b")
  (set_tile "Edit4" Edit4$)
  ; Dialog Actions
  (action_tile "Edit1" "(setq Edit1$ $value)")
  (action_tile "Edit2" "(check_editint \"Edit2$\")");*Included
  (action_tile "Edit3" "(check_editreal \"Edit3$\")");*Included
  (action_tile "Edit4" "(check_editreal \"Edit4$\")");*Included
  (setq Return# (start_dialog))
   ; Unload Dialog
  (unload_dialog Dcl_Id%)
  (setq *test@ (list nil Edit1$ Edit2$ Edit3$ Edit4$))
  (princ)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (vl-cmdf "_.osnap" "_none")
  (setq x (getreal "\nВведите x: "))
  (setq y (getreal "\nВведите y: "))
  (setq a (getreal "\nВведите a: "))
  (setq b (getreal "\nВведите b: "))
  (setq pxy (list x y))
  (setq pab (list a b))
  (vl-cmdf "_.Zoom" pxy pab "")
  (vl-cmdf "_.Limits" pxy pab "")
  (vl-cmdf "_.LWDISPLAY" 1)
  (vl-cmdf "_.LWeight" 0.15)
  (vl-cmdf "_.rectang" pxy pab)
    )

test.dcl

Код:

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

 test : dialog {
  key = "Title";
  label = "test";//Title$ from lsp file
  initial_focus = "Edit1";
  spacer;
  : row {//<
    fixed_width = true;
    : column {
      width = 50;
      fixed_width = true;
      spacer;
      : text {
        key = "Text1";
        label = "Введите x:";//Text1$ from lsp file
      }
    }
    : edit_box {
      key = "Edit1";//Edit1$ from lsp file
      edit_width = 9.;
      fixed_width = true;
    }
  }//>
  : row {//<
    fixed_width = true;
    : column {
      width = 50;
      fixed_width = true;
      spacer;
      : text {
        key = "Text2";
        label = "Введите y:";//Text2$ from lsp file
      }
    }
    : edit_box {
      key = "Edit2";//Edit2$ from lsp file
      edit_width = 9.;
      fixed_width = true;
    }
  }//>
  : row {//<
    fixed_width = true;
    : column {
      width = 50;
      fixed_width = true;
      spacer;
      : text {
        key = "Text3";
        label = "Введите a:";//Text3$ from lsp file
      }
    }
    : edit_box {
      key = "Edit3";//Edit3$ from lsp file
      edit_width = 9.;
      fixed_width = true;
    }
    }//>
  : row {//<
    fixed_width = true;
    : column {
      width = 50;
      fixed_width = true;
      spacer;
      : text {
        key = "Text4";
        label = "Введите b:";//Text4$ from lsp file
      }
    }
    : edit_box {
      key = "Edit4";//Edit4$ from lsp file
      edit_width = 9.;
      fixed_width = true;
    }
    }//>
  spacer;
  ok_only;
}//test

Где-то допускаю ошибку, потому что не запускается лисп (выдает ошибку test; ошибка: неверный тип аргумента: stringp nil), => не вылезает окно диалога...

Do$ · 02.11.2011, 13:51

Список *test@: (nil "" "" "")

Код:

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

(setq Edit1$ (nth 1 *test@)
       Edit2$ (nth 2 *test@)
       Edit3$ (nth 3 *test@)
   Edit4$ (nth 4 *test@) );setq

Edit4$ пытается получить значение пятого элемента списка, а список только из 4-х элементов. Следовательно, Edit4$=nil, (set_tile "Edit4" Edit4$) - ошибка.

Pavel_GP · 02.11.2011, 14:20

Спс.

я удалил строку set_tile "Edit4" Edit4$, правильно?

Идем дальше. построение происходит, как обычно по лиспу через командную строку. Диалогового окна нет (DCL) хм...?

Do$ · 02.11.2011, 15:34

А зачем в этом коде диалог вообще? Введенные в нем данные потом нигде не используются. Диалог должен появиться, но вылетит с ошибкой, если набрать значение для Y A или B, т.к. не определена функция check_editint. Вообще, проанализируйте код еще раз, что в нем и для чего делается...

Pavel_GP · 02.11.2011, 16:09

Я предполагал, что это код будет строить прямоугольник через диалоговое окно (по данным x y a b).
Должно происходить примерно так:
команда: TEST (команда для lisp)
;появляется окно DCL
ввожу данные для построения прямоугольника (4 точки)
потом работает функция построения прямоугольника.
все.

Do$ · 02.11.2011, 16:54

Ну тогда приведите код LISP в соответствие: уберите get- запросы, добавьте нужные присвоения переменным.

gomer · 02.11.2011, 17:42

Цитата:

Сообщение от Pavel_GP

Снова к примеру

Все это трахомудие (от начала и до конца) отправьте в топку, это не пример для подражания, ибо в ЭТОМ нарушены как минимум десяток правил построения диалоговых окон... неужели стандартной справкой нельзя воспользоваться, примером из туториала?????

Pavel_GP · 03.11.2011, 10:54

Создаю сам.
test.dcl

Код:

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

 test : dialog {label="Тест";
 :edit_box {label="X:"; key="xk";
 edit_width=12;
 edit_limit=24;}
 :edit_box {label="Y:"; key="yk";
 edit_width=12;
 edit_limit=24;}
 :edit_box {label="A:"; key="ak";
 edit_width=12;
 edit_limit=24;}
 :edit_box {label="B:"; key="bk";
 edit_width=12;
 edit_limit=24;}
:row{//label="Готово_Отмена";
      fixed_width=true; //Минимальная ширина по объектам внутри
      alignment = right;//Выровнен по правому краю
    :button{      //Левая кнопка
      key="bt_Accept";    //Имя кнопки в LISP-программе
      label="Готово";    //Надпись на кнопке
      is_default=true;    //Срабатывает, если нажат Enter
      is_cancel =false; //Срабатывает, если нажат Х в правом верхнем углу
      is_tab_stop = true;//Фокус переключается между кнопками клавишей Tab
      fixed_width = true;//Ширина кнопки - по ширине надписи
    }//конец кнопки bt_Accept
    :button{    //Правая кнопка
      key="bt_Cancel";    //Имя кнопки
      label="Отмена";  //Надпись на кнопке
      is_default=false;  //Не срабатывает, если нажат Enter
      is_cancel=true;  //Срабатывает, если нажат Х –крестик или Esc
      is_tab_stop = true;//Фокус переключается между кнопками клавишей Tab
      fixed_width = true;//Ширина кнопки - по ширине надписи.
    }//конец кнопки bt_Cancel
   }//конец Row
  }//конец диалога test

test.lsp

Код:

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

 (defun c:test (/ dcl.id)
 (setq dcl_id (load_dialog "D:\\Program Files\\Autodesk\\AutoCAD Civil 3D 2012\\Lisps\\test.dcl"))
(if (not (new_dialog "test" dcl_id)
    ); конец not
    (exit);если не обнаружен диалог - выход
); конец if
  (action_tile "xk" "(setq X (get_tile \"xk\"))")
  (action_tile "yk" "(setq Y (get_tile \"yk\"))")
  (action_tile "ak" "(setq A (get_tile \"ak\"))")
  (action_tile "bk" "(setq B (get_tile \"bk\"))")
  (start_dialog)        ;Показать Диалоговое окно
  (unload_dialog dcl_id)  ;Закрыть Диалоговое окно
(princ)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (vl-cmdf "_.osnap" "_none")
 (setq pxy (list X Y))
 (setq pab (list A B))
 (vl-cmdf "_.Zoom" pxy pab "")
 (vl-cmdf "_.Limits" pxy pab "")
 (vl-cmdf "_.LWDISPLAY" 1)
 (vl-cmdf "_.LWeight" 0.15)
 (vl-cmdf "_.rectang" pxy pab)
   )

Все вводится, но построений нет.
Пытаюсь разобраться, не получается =(
Подскажите где ошибка, в каком конкретно месте.
спс.

Кулик Алексей aka kpblc · 03.11.2011, 11:00

Pavel_GP, ты видел, чего напечатал? Заархивируй оба файла и приложи архив.

Pavel_GP · 03.11.2011, 11:08

да так русский переводит - через некоторое время все нормально станет. (нужно перезапустить страницу)

Кулик Алексей aka kpblc · 03.11.2011, 11:10

Замени (get_tile <...>) на $value и посмотри, что получится. Учти, что передаваться будут строки.

Pavel_GP · 03.11.2011, 11:23

(action_tile "xk" "(setq X $value)")
....
....

Выдает ошибку после ввода значений: Ошибка приложения: Неверный список объектов/точек.

Кулик Алексей aka kpblc · 03.11.2011, 11:39

Без проверок:

Код:

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

 (defun c:test (/ dcl_id x y a b)
  (setq dcl_id (load_dialog "D:\\Program Files\\Autodesk\\AutoCAD Civil 3D 2012\\Lisps\\test.dcl"))
  (if (not (new_dialog "test" dcl_id)
           ) ; конец not
    (exit) ;если не обнаружен диалог - выход
    )     ; конец if
  (action_tile "xk" "(setq X $value)")
  (action_tile "yk" "(setq Y $value)")
  (action_tile "ak" "(setq A $value)")
  (action_tile "bk" "(setq B $value)")
  (start_dialog) ;Показать Диалоговое окно
  (unload_dialog dcl_id) ;Закрыть Диалоговое окно
  (princ)
  (setvar "cmdecho" 0)
  (setq pxy (list x y))
  (setq pab (list a b))
  (vl-cmdf "_.Zoom" pxy pab "")
  (vl-cmdf "_.Limits" pxy pab "")
  (vl-cmdf "_.LWDISPLAY" 1)
  (vl-cmdf "_.LWeight" 0.15)
  (vl-cmdf "_.rectang" "_none" (mapcar (function atof) (list x y)) "_none" (mapcar (function atof) (list a b)))
  ) ;_ end of defun

Pavel_GP · 03.11.2011, 12:03

Спс. все строится.
Вопрос: Почему мы строим именно так, как в строке 21, при этом строки 15-18 не нужны.?
Разве построить прямоугольник по обычному пути нельзя? Используя
(setq pxy (list x y))
(setq pab (list a b))
(vl-cmdf "_.rectang" pxy pab) ?

dimitriy_popov · 03.11.2011, 12:12

Попробуй использовать "OpenDCL" - бесплатно и видешь что получается, плюс много возможностей.

mamuk · 03.11.2011, 12:32

в 21 строке происходит преобразование числа представленного строкой в вещественное число, если ты сделаешь тоже самое
в этой строке (setq pxy (list (atof x) (atof y))) то должно получится
еще необходимо учитывать опции команд
(vl-cmdf "_.rectang" "_none" pxy "_none" pab )

Pavel_GP · 03.11.2011, 13:20

mamuk
спс. Заработало=)
Я так понимаю функцию atof (преобразует строку в вещественное число). лучше использовать при построениях

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как сделать диалоговое окно, описанное в DCL файле и вызванное Lisp программой, немодальным?	E-degtyarev	LISP	9	28.05.2010 09:10
LISP, DCL - вывод числа в поле.	meisgreen	LISP	1	03.12.2007 10:16
DCL & UserForm VBA	Holon	Программирование	21	05.10.2007 01:37
диалог dcl мах. 132 символа???	Александер	Программирование	7	22.12.2006 13:47
Как связать toggle & radio button в DCL?	igorokmaster	Программирование	5	18.07.2005 11:28