[lima]

Здравствуйте, господа! Подскажите, пожалуйста, найти выход из следующей задачи!
Разрабатываю программу для построения прямоугольника из DCL.
Делаю временный выход из диалога, чтобы указать исходную точку. НО Н Е МОГУ ПОНЯТЬ, ПОЧЕМУ ТИП АРГУМЕНТА НЕВЕРНЫЙ: (setqDK (atof(get_tile“gp_d”)))
Но я заметил, что если строку (setq step (start_dialog)) расположить ниже строк присвоения (setq DK (atof (get_tile "gp_d"))) (setq S (atof (get_tile "gp_S"))) данная ошибка не выводится. Но, опять, но: здесь присваиваются значения по умолчанию, т.е. DK=0 и S=0 (вновь вводимые значения не присваиваются).
Имеется DCL:

Код:

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

  gp_5: dialog {
  label="Прямоугольник";
  : boxed_radio_column {
  :edit_box {label="Длина";key="gp_D";edit_with=6;}
  :edit_box {label="Ширина";key="gp_S";edit_width=6;} }
  : row {
  :button { label="построить"; key="Build"; width=8; action= "(done_dialog 3)";} }
  ok_button;
  }

и LSP

Код:

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

  (defun di ()
  (setq dcl_id (load_dialog "R5.dcl"))
  (if (null DK)(setq DK 0))
  (if (null S)(setq S 0))
  (setq step 2)
  (while (>= step 2)
  (if (null (new_dialog "gp_5" dcl_id)) (exit))
  (set_tile "gp_d" (rtos DK 2 5))
  (set_tile "gp_S" (rtos S 2 5))
  (setq step (start_dialog))
  (setq DK (atof (get_tile "gp_D"))) ;;;  ВОТ ЗДЕСЬ ВЫВОДИТ СООБЩЕНИЕ, ЧТО  atof (get_tile "gp_d") ИМЕЕТ НЕВЕРНЫЙ ТИП АРГУМЕНТА stringp: nil
  (setq S (atof (get_tile "gp_S")))
  (action_tile "accept" "(done_dialog 1)")
  (cond
  (= step 3)
  (prong 
  (setq p1 (getpoint))
  (setq p2  (list (+ (car p1) DK) )  (+ (cadr p1) S) ) )
  (command "_rectang" p1 p2)
  )                              ; progn end
  )                              ;cond end
  )                              ; while end
  (unload_dialog dcl_id)
  (princ)
  ) ; end defun

Огромное спасибо!!!

[Александр Ривилис]

А так:

Код:

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

(setq DK (atof (get_tile "gp_D")))

?

[lima]

В принципе так и есть, просто была опечатка в вопросе! Спасибо, исправил.