Сообщество программистов Autodesk в СНГ

ADN Club => ObjectARX => Тема начата: drunkwolfs от 05-03-2016, 12:21:56

Название: Получить несколько аргументов при вызове arx функции из LISP
Отправлено: drunkwolfs от 05-03-2016, 12:21:56
Как получить несколько аргументов при вызове arx функции из arx файла написанного на си++?
VS2010 Autocad2014 x64 ObjectARX2014 Win7

Вызываю из автокада функцию вот так
Код - Auto/Visual Lisp [Выбрать]
  1. (test 10 20)
Первый аргумент "10" принимается вот так:
Код - C++ [Выбрать]
  1. test_func(struct resbuf *first)
А как принять второй "20"?
Название: Re: Получить несколько аргументов при вызове arx функции из LISP
Отправлено: drunkwolfs от 05-03-2016, 14:39:56
Получилось. Сделал вот так
Код - C++ [Выбрать]
  1. testf(struct resbuf *rb)
  2. {
  3.     ads_real  x = (ads_real) rb->rbnext->resval.rint
  4. }

А как узнать сколько аргументов пришло?
Название: Re: Получить несколько аргументов при вызове arx функции из LISP
Отправлено: Александр Ривилис от 05-03-2016, 17:02:47
1. Всё вышенаписанное не имеет ничего общего с передачей аргументов из lisp в arx.
2. Прочитай у меня в подписи как следует форматировать код на форуме.
3. Вот пример кода:
Код - C++ [Выбрать]
  1. //-----------------------------------------------------------------------------
  2. //----- acrxEntryPoint.cpp
  3. //-----------------------------------------------------------------------------
  4. #include "StdAfx.h"
  5. #include "resource.h"
  6. //-----------------------------------------------------------------------------
  7. //----- ObjectARX EntryPoint
  8. class CTestLispApp : public AcRxArxApp {
  9. public:
  10.   CTestLispApp () : AcRxArxApp () {}
  11.   virtual AcRx::AppRetCode On_kInitAppMsg (void *pkt) {
  12.     AcRx::AppRetCode retCode =AcRxArxApp::On_kInitAppMsg (pkt) ;
  13.     return (retCode) ;
  14.   }
  15.   virtual AcRx::AppRetCode On_kUnloadAppMsg (void *pkt) {
  16.     AcRx::AppRetCode retCode =AcRxArxApp::On_kUnloadAppMsg (pkt) ;
  17.     return (retCode) ;
  18.   }
  19.  
  20.   virtual void RegisterServerComponents () {    }
  21.   //////////////////////////////////////////////////////////////////////////
  22.   //                 (SummArgs a1 a2 ... an)
  23.   // Суммируем все переданные аргументы. Возвращаем сумму
  24.   //////////////////////////////////////////////////////////////////////////
  25.   static int ads_SummArgs () {
  26.     double summ = 0.0;
  27.     resbuf *args = acedGetArgs();
  28.     resbuf *rb = args;
  29.     for (; rb; rb = rb->rbnext) {
  30.       if (rb->restype == RTREAL || rb->restype == RTANG)   {
  31.         summ += rb->resval.rreal;
  32.       } else if (rb->restype == RTSHORT) {
  33.         summ += rb->resval.rint;
  34.       }
  35.     }
  36.     acedRetReal(summ);
  37.     acutRelRb (args) ;
  38.     return (RTNORM) ;
  39.   }
  40. } ;
  41. //-----------------------------------------------------------------------------
  42. IMPLEMENT_ARX_ENTRYPOINT(CTestLispApp)
  43. ACED_ADSSYMBOL_ENTRY_AUTO(CTestLispApp, SummArgs, false)

Код: [Выделить]
Command: (summargs 1 2 3 4)
10.0

4. Чтобы узнать количество аргументов нужно пройтись до конца списка args и подсчитать все элементы. При этом следует учесть, что могут быть вложенные списки. В принципе из lisp в arx всё передаётся в виде одного списка, в котором содержатся последовательно все аргументы. У последнего resbuf в списке rbnext  == NULL.

Пару функций из моих загашников 20-летней давности:
Код - C++ [Выбрать]
  1. /*-----------------28/11/95 13:42-------------------
  2.                     LENGTH_LIST
  3.                   ----------------
  4.   Функция подсчитывает количество элементов списка
  5.  Если есть вложенные списки, то они также подсчитываются
  6.  c длиной 1.
  7.  Внимание:
  8.  Список указывается resbuf'ом следующим после RTLB
  9.  для этого списка
  10.  --------------------------------------------------*/
  11. int length_list(resbuf *start)
  12. {
  13.  
  14.  int i=0, count_par=0;
  15.  
  16.  do {
  17.  
  18.   if (start->restype == RTLB) count_par++;
  19.   if (start->restype == RTLE || start->restype == RTDOTE) count_par--;
  20.   if (count_par < 0) break;     // Завершающая скобка списка
  21.   if (count_par > 0) continue;  // Внутри вложенного списка
  22.   i++; // Увеличиваем счетчик числа элементов
  23.  
  24.  } while ((start = start->rbnext) != NULL);
  25.  
  26.  return i;
  27. }
  28. /*--------------------------------01/12/95 22:37----------------------------------
  29.                                     NEXT_PARAM
  30.                                   --------------
  31.     Функция пропускает текущий параметр в списке аргументов и возвращает
  32.     следующий параметр из списка параметров (первый resbuf данного элемента).
  33. --------------------------------------------------------------------------------*/
  34. resbuf *next_param (resbuf *prev)
  35. {
  36.   int count_par = 0;
  37.   resbuf  *next = NULL;
  38.  
  39.   if (prev->restype == RTLB) {
  40.     do {
  41.       if (prev->restype == RTLB) count_par++;
  42.       if (prev->restype == RTLE || prev->restype == RTDOTE) count_par--;
  43.       if (count_par) prev = prev->rbnext;
  44.             else     break;
  45.     } while (prev);
  46.  
  47.     if (prev && prev->rbnext) next = prev->rbnext;
  48.   }
  49.   else next = prev->rbnext;
  50.  
  51.   return next;
  52. }