[zeichner]

Мне нужно в диалоговом окне ввести значине типа 01.02.03-1.
Подскажите, как ввести/передать в лисп это текстовое значение. Если в текстовом поле число, то все без проблем, а с текстом уже запарился.

[gomer]

покажи свой код, тогда можно будет подсказать, что не так

[zeichner]

В DCL-файле стандартное текстовое окно:

:edit_box
{
label ="WR";
key ="wr";
alignment = centered;
edit_width = 8;
fixed_width_font = true;
} // edit_box

В Лиспе функция

(action_tile "WR" "(setq asd $value)")

дальше по тексту идет построение и в нужные места должен вписываться текст, который вводится в диалоге.
Проблема в том, что если ввожу число, то после выполнения :
(action_tile "WR" "(setq asd (atoi $value))") в переменной asd находится введенное число. А с текстом так не получается.
Я, конечно извернулся, разбил текст на части, ввожу вместо одного значения 4 цифры, затем обрабатываю их (теревожу в текс и соединяю), но это как-то очень коряво. Хотелось бы иметь в диалоговом окне одно поле.

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

Убери atoi.

[gomer]

Сообщение от zeichner (action_tile "WR" "(setq asd (atoi $value))") в переменной asd находится введенное число. А с текстом так не получается.

конечно не получается, это же текст, а не число! atof отрезает справа все ненужное так, например
(atof "пол ботинка") возвратит 0.0, так как цифр не обнаружила
(atof "0.5 ботинка") возвратит 0.5, так как в строке есть "0.5"
(atof "0,5 ботинка") возвратит 0.0, так как разделитель для atof - точка, обнаруженное число 0
и т.д.
Если вам нужно вводить однотипные наименования, лучше их сгруппировать в список
ну и как правильно крыс заметил, если вам нужна строка то ее в число не нужно преобразовывать

[zeichner]

Вы невнимательно прочитали, то, что я писал. Я и ввожу без "atoi".

(action_tile "WR" "(setq asd $value)")

Но почему-то значение в переменную не передается.

Всем спасибо. Нашел ошибку. Как всегда все элементарно. В DCL key маленькими буквами, а в лиспе большими.

[gomer]

Сообщение от zeichner Всем спасибо. Нашел ошибку. Как всегда все элементарно. В DCL key маленькими буквами, а в лиспе большими.

хм, действительно, невнимательно прочитали