ObjectARX创建供Lisp调用的非固定参数个数的函数

革天明

就像lisp中的+ - * / 这样的，不限定参数个数。

highflybird

贴一段代码给你参考：

1. int MyTest()
   
2. {
   
3.   struct resbuf *rb = acedGetArgs();
   
4.   double x=0;
   
5.   short rbType;
   
6.   while (rb!=NULL)
   
7.   {
   
8.     rbType =rb->restype;
   
9.     switch(rbType)
   
10.     {
    
11.     case RTSHORT:
    
12.       x+=rb->resval.rint;
    
13.       break;
    
14.     case RTLONG:
    
15.       x+=rb->resval.rlong;
    
16.       break;   
    
17.     case RTREAL:
    
18.       x+=rb->resval.rreal;
    
19.       break;
    
20.     default:
    
21.       acdbFail(_T("参数应当为实数!"));
    
22.       return RSERR;
    
23.     }
    
24.     rb=rb->rbnext;
    
25.   }
    
26.   acedRetReal(x);
    
27.   return RSRSLT;
    
28. }

int MyTest()<br /> {<br />   struct resbuf *rb = acedGetArgs();<br />   double x=0;<br />   short rbType;<br />   while (rb!=NULL)<br />   {<br />     rbType =rb->restype;<br />     switch(rbType)<br />     {<br />     case RTSHORT:<br />       x+=rb->resval.rint;<br />       break;<br />     case RTLONG:<br />       x+=rb->resval.rlong;<br />       break;    <br />     case RTREAL:<br />       x+=rb->resval.rreal;<br />       break;<br />     default:<br />       acdbFail(_T("参数应当为实数!"));<br />       return RSERR;<br />     }<br />     rb=rb->rbnext;<br />   } <br />   acedRetReal(x);<br />   return RSRSLT;<br /> }