也发一个我写的一个LISP调用进度条源码

小龙龙

1. static int ads_progress1(void)
   
2. {
   
3.   //----- Remove the following line if you do not expect any argument for this ADS function
   
4.   struct resbuf *rb =acedGetArgs () ;
   
5.   // TODO: add your code here
   
6.   if (rb == NULL)
   
7.   {
   
8.    acdbFail("参数太少");
   
9.    acedRetVoid();
   
10.    return RTERROR;
    
11.   }
    
12.   char *str;
    
13.   if (rb->restype == RTSTR)
    
14.   {
    
15.    str = rb->resval.rstring;
    
16.   }
    
17.   else
    
18.   {
    
19.    acdbFail("参数错误");
    
20.    acedRetVoid();
    
21.    return RTERROR;
    
22.   }
    
23.   rb = rb->rbnext;
    
24.   if (rb == NULL)
    
25.   {
    
26.    acdbFail("参数太少");
    
27.    acedRetVoid();
    
28.    return RTERROR;
    
29.   }
    
30.   long maxs,mins;
    
31.   if (rb->restype == RTLONG)
    
32.   {
    
33.    mins = rb->resval.rlong;
    
34.   }
    
35.   else if(rb->restype == RTSHORT)
    
36.   {
    
37.    mins = rb->resval.rint;
    
38.   }
    
39.   else
    
40.   {
    
41.    acdbFail("参数错误");
    
42.    acedRetVoid();
    
43.    return RTERROR;
    
44.   }
    
45.   rb = rb->rbnext;
    
46.   if (rb == NULL)
    
47.   {
    
48.    acdbFail("参数太少");
    
49.    acedRetVoid();
    
50.    return RTERROR;
    
51.   }
    
52.   if (rb->restype == RTLONG)
    
53.   {
    
54.    maxs = rb->resval.rlong;
    
55.   }
    
56.   else if(rb->restype == RTSHORT)
    
57.   {
    
58.    maxs = rb->resval.rint;
    
59.   }
    
60.   else
    
61.   {
    
62.    acdbFail("参数错误");
    
63.    acedRetVoid();
    
64.    return RTERROR;
    
65.   }
    
66.   if (rb->rbnext !=NULL)
    
67.   {
    
68.    acdbFail("参数太多");
    
69.    acedRetVoid();
    
70.    return RTERROR;
    
71.   }
    
72.   acedSetStatusBarProgressMeter(str,mins,maxs);
    
73.   acedRetVoid();
    
74.   return RTNORM;
    
75.   // TODO: Replace the following line by your returned value if any
    
76.   acedRetVoid () ;
    
77.   return (RSRSLT) ;
    
78. }

static int ads_progress1(void)<br /> {<br />   //----- Remove the following line if you do not expect any argument for this ADS function<br />   struct resbuf *rb =acedGetArgs () ;<br />   // TODO: add your code here<br />   if (rb == NULL)<br />   {<br />    acdbFail("参数太少");<br />    acedRetVoid();<br />    return RTERROR;<br />   }<br />   char *str;<br />   if (rb->restype == RTSTR)<br />   {<br />    str = rb->resval.rstring;<br />   }<br />   else<br />   {<br />    acdbFail("参数错误");<br />    acedRetVoid();<br />    return RTERROR;<br />   }<br />   rb = rb->rbnext;<br />   if (rb == NULL)<br />   {<br />    acdbFail("参数太少");<br />    acedRetVoid();<br />    return RTERROR;<br />   }<br />   long maxs,mins;<br />   if (rb->restype == RTLONG)<br />   {<br />    mins = rb->resval.rlong;<br />   }<br />   else if(rb->restype == RTSHORT)<br />   {<br />    mins = rb->resval.rint;<br />   }<br />   else <br />   {<br />    acdbFail("参数错误");<br />    acedRetVoid();<br />    return RTERROR;<br />   }<br />   rb = rb->rbnext;<br />   if (rb == NULL)<br />   {<br />    acdbFail("参数太少");<br />    acedRetVoid();<br />    return RTERROR;<br />   } <br />   if (rb->restype == RTLONG)<br />   {<br />    maxs = rb->resval.rlong;<br />   }<br />   else if(rb->restype == RTSHORT)<br />   {<br />    maxs = rb->resval.rint;<br />   }<br />   else <br />   {<br />    acdbFail("参数错误");<br />    acedRetVoid();<br />    return RTERROR;<br />   }<br />   if (rb->rbnext !=NULL)<br />   {<br />    acdbFail("参数太多");<br />    acedRetVoid();<br />    return RTERROR;<br />   }<br />   acedSetStatusBarProgressMeter(str,mins,maxs);<br />   acedRetVoid();<br />   return RTNORM;<br />   // TODO: Replace the following line by your returned value if any<br />   acedRetVoid () ;<br />   return (RSRSLT) ;<br /> }

1. static int ads_progress2(void)
   
2. {
   
3.   //----- Remove the following line if you do not expect any argument for this ADS function
   
4.   struct resbuf *rb =acedGetArgs () ;
   
5.   // TODO: add your code here
   
6.   if (rb == NULL)
   
7.   {
   
8.    acdbFail("参数太少");
   
9.    acedRetVoid();
   
10.    return RTERROR;
    
11.   }
    
12.   long maxs,mins;
    
13.   if (rb->restype == RTLONG)
    
14.   {
    
15.    mins = rb->resval.rlong;
    
16.   }
    
17.   else if(rb->restype == RTSHORT)
    
18.   {
    
19.    mins = rb->resval.rint;
    
20.   }
    
21.   else
    
22.   {
    
23.    acdbFail("参数错误");
    
24.    acedRetVoid();
    
25.    return RTERROR;
    
26.   }
    
27.   
    
28.   if (rb->rbnext !=NULL)
    
29.   {
    
30.    acdbFail("参数太多");
    
31.    acedRetVoid();
    
32.    return RTERROR;
    
33.   }
    
34.   acedSetStatusBarProgressMeterPos(mins);
    
35.   acedRetVoid();
    
36.   return RTNORM;
    
37.   // TODO: Replace the following line by your returned value if any
    
38.   acedRetVoid () ;
    
39.   return (RSRSLT) ;
    
40. }
    
41. // ----- ads_progress3 symbol (do not rename)
    
42. static int ads_progress3(void)
    
43. {
    
44.   //----- Remove the following line if you do not expect any argument for this ADS function
    
45.   struct resbuf *pArgs =acedGetArgs () ;
    
46.   // TODO: add your code here
    
47.         acedRestoreStatusBar();
    
48.   // TODO: Replace the following line by your returned value if any
    
49.   acedRetVoid () ;
    
50.   return (RSRSLT) ;
    
51. }
    

static int ads_progress2(void)<br /> {<br />   //----- Remove the following line if you do not expect any argument for this ADS function<br />   struct resbuf *rb =acedGetArgs () ;<br />   // TODO: add your code here<br />   if (rb == NULL)<br />   {<br />    acdbFail("参数太少");<br />    acedRetVoid();<br />    return RTERROR;<br />   }<br />   long maxs,mins;<br />   if (rb->restype == RTLONG)<br />   {<br />    mins = rb->resval.rlong;<br />   }<br />   else if(rb->restype == RTSHORT)<br />   {<br />    mins = rb->resval.rint;<br />   }<br />   else <br />   {<br />    acdbFail("参数错误");<br />    acedRetVoid();<br />    return RTERROR;<br />   } <br />   <br />   if (rb->rbnext !=NULL)<br />   {<br />    acdbFail("参数太多");<br />    acedRetVoid();<br />    return RTERROR;<br />   }<br />   acedSetStatusBarProgressMeterPos(mins);<br />   acedRetVoid();<br />   return RTNORM;<br />   // TODO: Replace the following line by your returned value if any<br />   acedRetVoid () ;<br />   return (RSRSLT) ;<br /> }<br /> // ----- ads_progress3 symbol (do not rename)<br /> static int ads_progress3(void)<br /> {<br />   //----- Remove the following line if you do not expect any argument for this ADS function<br />   struct resbuf *pArgs =acedGetArgs () ;<br />   // TODO: add your code here<br />         acedRestoreStatusBar();<br />   // TODO: Replace the following line by your returned value if any<br />   acedRetVoid () ;<br />   return (RSRSLT) ;<br /> }<br />