[Pavel_GP]

Здравствуйте.
прошу Вас дать урок по созданию 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_?

спс

[dimitriy_popov]

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

[mamuk]

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

[Pavel_GP]

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