передача данных из ARX в LISP (Страница 1 из 2)

нужно для оформление диалога на АРХ и забора из него даных для последующей обработки в Вижуал Лиспе

Если можно на простом примере один едит_контрол, в обжект_арх_команд создана команда, переменая присвоена едиту допустим m_l1 как теперь ее значение передать в Лисп. С уважением Олександр.

Под функцию lu18 написал такой код(в переменую mk в Лиспе запишется число 12, перед етим в лиспе ету переменую создал[вроде так понимаю то что наваял :))]), когда вызываю функцию в Лиспе выдается сообщение об ошибке  заголовок "Исключение в команде lu18ARX"
текст  "Необрабатываемое исключение 80000003 (80000003h) по адресу 7С901230h" Автокад руский 2008(руский - не русифицированый)
Помогите пожалуста разобратся что не так делаю.
С уважением Олександр, спасибо Александру Ревилису за отзыв(за трату своего времени).
// ----- ads_lu18 symbol (do not rename)
    static int ads_lu18(void)
    {
        //----- Remove the following line if you do not expect any argument for this ADS function
        //struct resbuf *pArgs =acedGetArgs () ;
        // TODO: add your code here
     struct resbuf *rd;
     int rc;
     const ACHAR  *mk;
     rd = acutBuildList(RTREAL, 12, 0);
     rc = acedPutSym(mk, rd);

Изменил как Вы написали, но в Лиспе переменой mk новое значения не присваивается. Немогу сообразить в чем дело.

// ----- ads_lu17 symbol (do not rename)
    static int ads_lu17(void)
    {
        //----- Remove the following line if you do not expect any argument for this ADS function
        //CAcModuleResourseOverride resOverride;
         struct resbuf *rd;
          const ACHAR  *mk;
         int  rc;
        rd = acutBuildList(RTREAL, 15, 0);
        rc = acedPutSym(_T("mk"), rd);
                    l17dlg dlg;
            dlg.DoModal();
        return (RSRSLT) ;
    }
ето в Лиспе
(setq mk 1)
(arxload "D:\\Proekt\\l17\\Win32\\Debug\\l17.arx" "hhh")
(lu17)
так и 1 не меняется

У тебя какая-то халтура. Проверил:

  // ----- ads_set_mk symbol (do not rename)
  static int ads_set_mk(void)
  {
    double mk = 12.0;
    resbuf *rb = acutBuildList(RTREAL,mk,0);
    acedPutSym(_T("mk"),rb);
    acutRelRb(rb);
    acedRetReal(mk);
    return (RSRSLT) ;
  }

И вызов:

Command: (set_mk) 12.0
Command: !mk 12.0
Command: (setq mk 1) 1
Command: (set_mk)
12.0
Command: !mk
12.0

Огромнейшее Человеческое спасибо Вы спасли меня, а дело вот в чем проверил
если вместо мк поставить число Вот так то тогда не работает, точнее не меняет в лиспе мк.
resbuf *rb = acutBuildList(RTREAL,12,0);
    acedPutSym(_T("mk"),rb);
    acutRelRb(rb);
а вот ета строчка все спасает
double mk = 12.0;
ну и соответсвено перепреоделение
resbuf *rb = acutBuildList(RTREAL,mk,0);

Но вот новый вопрос, извините за назойливось пишу такой код, m_l1 ето переменая типа доубле которая описивает поле едит_контрол, ну думаю теперь и сам разберусь как с етдита передать в переменую мк но не тут то было, Кад снова выдает сообщение
Необрабатываемое исключение 80000003 (80000003h) по адресу 7С901230h
double m_l1; написал потому что компилятор выдавал незнает такой переменои, хотя я ее описал когда додавал ее к поле едит_контрол.
    static int ads_lu17(void)
    {
l17dlg dlg;
            dlg.DoModal();
  double m_l1;
double mk=m_l1;
    resbuf *rb = acutBuildList(RTREAL,mk,0);
    acedPutSym(_T("mk"),rb);
    acutRelRb(rb);

> Олександр
1) Посеял:

CAcModuleResourseOverride resOverride;

2) Переменная m_l1 находится в классе l17dlg, и если она описана как public, то из функции ads_lu17 ты можешь к ней обращаться через dlg.m_l1
3) В каком месте происходит необрабатываемое исключение? Диалог на экране появляется?

До диалог появлялся так как вызов идет сперва а ошибка выбивала после нажатия на кнопку ок,
а когда диалог был на екране он работал, я в нем написал 2 числа мнодатся и виводятся в з едит.

А почему Вы книг не пишете, например в соавторстве с Полещуком у Вас опыта хватает и примеров, хорошие были бы книги

так точно описка с буквой с, все заработало
и извенения за невнимательность
Вы сберегли мне уйму времени,и спасли мою бакалаврскую работу. Еще раз спасибоооооооооооооооооо!!!