[AndryGrey]

Добрый вечер!

При отладке программы вылезает ошибка error: too many arguments. Аргументы функции уже довел до минимума и использовал progn в теле if, но это не помогло. Подскажите где я ошибся?

И на всякий случай dcl файл с которым работает эта программа, но меню у меня загружается!

Код:

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

e_calc: dialog {label="Расчет параметров электрической группы";
  :row{label="";
:column{label="Вводимые данные";
  :edit_box{label="Мощность";key="kPower";value="1";edit_width=5;}
  :edit_box{label="Коэффициент мощности";key="kcos";value="1";edit_width=5;}
  :edit_box{label="Длина кабельной линии";key="klen";value="1";edit_width=5;}
}//column
spacer_1;
:column{label="Расчетные данные";
:concatenation{key="c1";
    :text_part{label="Расчетный ток: ";key="t1";}
    :text_part{label="";key="t2";}
  }//concatenation 
:concatenation{key="c2";
    :text_part{label="Падение напряжения: ";key="t3";}
    :text_part{label="";key="t4";}
  }//concatenation 
}//column
}//row
  :spacer{height=1;}
  :popup_list{label="Список сечений кабелей";key="list1";list="1.5\n2.5\n4\n6\n10\n16\n25\n35\n50\n70\n95";fixed_width_font=true;}
  :spacer{height=1;}
  :radio_row{label="Напряжение";key="k1";
      :radio_button{label="220В"; key="k11";value="1";}
      :radio_button{label="380В"; key="k12";value="0";}
  }
  :spacer{height=1;}
  ok_cancel;
}// конец e_calc

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

А сам код lsp что, сильно секретный?

[AndryGrey]

Сам код смотри во вложении файл ecal.lsp

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

Есть разница между

Код:

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

 (atoi atof (get_tile "k11"))

и

Код:

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

 (atoi (get_tile "k11"))

[AndryGrey]

Разница есть, но мне программа не выдает "bad argument type", а выдает "too many argument".
При исправлении этой ошибки программа делает и выводит расчеты?

[gomer]

просто убери atof

[AndryGrey]

Как я и предполагал исправления данной ошибки не повлияло на проблему - программа по прежнему выдает errror: too many arguments.

[gomer]

Ищи ошибку в последней строке функции indat. точнее там 2 ошибки