接受LISP参数，实现message box

ObjectARX

1. #include "StdAfx.h"
   
2. #include "MsgBox.h"
   
3. 
   
4. #pragma region //MsgBox
   
5. //(crpMsgBox "What the heck are you doing? " "Error" 5 4 )
   
6. int MsgBox(void)
   
7. {
   
8. 
   
9.   //
   
10.   int Button;
    
11.   int Icon;
    
12.   UINT ButtonF;
    
13.   UINT IconF;
    
14.   //
    
15.   struct resbuf *pArgs = acedGetArgs();
    
16. 
    
17.   if (pArgs == NULL)
    
18.     return acedRetNil();
    
19. 
    
20.   if (pArgs->restype != RTSTR )
    
21.     return acedRetNil();
    
22. 
    
23.   CString Text = pArgs->resval.rstring;
    
24. 
    
25.   if((pArgs = pArgs->rbnext) == NULL)
    
26.     return acedRetNil();
    
27. 
    
28.   if (pArgs->restype != RTSTR)
    
29.     return acedRetNil();
    
30. 
    
31.   CString Caption = pArgs->resval.rstring;
    
32. 
    
33.   if((pArgs = pArgs->rbnext) == NULL)
    
34.     return acedRetNil();
    
35. 
    
36.   if (pArgs->restype != RTSHORT)
    
37.     return acedRetNil();
    
38. 
    
39.   Button = (int)pArgs->resval.rint;
    
40.   switch (Button)
    
41.   {
    
42.   case 0:
    
43.     ButtonF = MB_OK;
    
44.     break;
    
45.   case 1:
    
46.     ButtonF = MB_OKCANCEL;
    
47.     break;
    
48.   case 2:
    
49.     ButtonF = MB_ABORTRETRYIGNORE;
    
50.     break;
    
51.   case 3:
    
52.     ButtonF = MB_YESNOCANCEL;
    
53.     break;
    
54.   case 4:
    
55.     ButtonF = MB_YESNO;
    
56.     break;
    
57.   case 5:
    
58.     ButtonF = MB_RETRYCANCEL;
    
59.     break;
    
60.   default:
    
61.     ButtonF = 0;
    
62.   }
    
63. 
    
64.   if((pArgs = pArgs->rbnext) == NULL)
    
65.     return acedRetNil();
    
66. 
    
67.   if (pArgs->restype != RTSHORT)
    
68.     return acedRetNil();
    
69. 
    
70.   Icon = (int)pArgs->resval.rint;
    
71.   Button = (UINT)pArgs->resval.rint;
    
72. 
    
73.   switch (Icon)
    
74.   {
    
75.   case 1:
    
76.     IconF = MB_ICONERROR;
    
77.     break;
    
78.   case 2:
    
79.     IconF = MB_ICONQUESTION;
    
80.     break;
    
81.   case 3:
    
82.     IconF = MB_ICONWARNING;
    
83.     break;
    
84.   case 4:
    
85.     IconF = MB_ICONINFORMATION;
    
86.     break;
    
87.   default:
    
88.     IconF = 0;
    
89.   }
    
90. 
    
91.   //
    
92.   HWND hwDocWnd = adsw_acadDocWnd();
    
93.   short res = MessageBox(hwDocWnd , Text , Caption ,  ButtonF | IconF);
    
94.   acedRetInt(res) ;
    
95.   return (RSRSLT) ;
    
96. }
    
97. #pragma endregion
    
98. 
    

#include "StdAfx.h"<br /> #include "MsgBox.h"<br /> <br /> #pragma region //MsgBox<br /> //(crpMsgBox "What the heck are you doing? " "Error" 5 4 )<br /> int MsgBox(void)<br /> {<br /> <br />   //<br />   int Button;<br />   int Icon;<br />   UINT ButtonF;<br />   UINT IconF;<br />   //<br />   struct resbuf *pArgs = acedGetArgs();<br /> <br />   if (pArgs == NULL)<br />     return acedRetNil();<br /> <br />   if (pArgs->restype != RTSTR )<br />     return acedRetNil();<br /> <br />   CString Text = pArgs->resval.rstring;<br /> <br />   if((pArgs = pArgs->rbnext) == NULL)<br />     return acedRetNil();<br /> <br />   if (pArgs->restype != RTSTR)<br />     return acedRetNil();<br /> <br />   CString Caption = pArgs->resval.rstring; <br /> <br />   if((pArgs = pArgs->rbnext) == NULL)<br />     return acedRetNil();<br /> <br />   if (pArgs->restype != RTSHORT)<br />     return acedRetNil();<br /> <br />   Button = (int)pArgs->resval.rint;<br />   switch (Button) <br />   { <br />   case 0:<br />     ButtonF = MB_OK;<br />     break;<br />   case 1:<br />     ButtonF = MB_OKCANCEL;<br />     break;<br />   case 2:<br />     ButtonF = MB_ABORTRETRYIGNORE;<br />     break;<br />   case 3:<br />     ButtonF = MB_YESNOCANCEL;<br />     break;<br />   case 4:<br />     ButtonF = MB_YESNO;<br />     break;<br />   case 5:<br />     ButtonF = MB_RETRYCANCEL;<br />     break;<br />   default: <br />     ButtonF = 0;<br />   }<br /> <br />   if((pArgs = pArgs->rbnext) == NULL)<br />     return acedRetNil();<br /> <br />   if (pArgs->restype != RTSHORT)<br />     return acedRetNil();<br /> <br />   Icon = (int)pArgs->resval.rint;<br />   Button = (UINT)pArgs->resval.rint;<br /> <br />   switch (Icon) <br />   { <br />   case 1:<br />     IconF = MB_ICONERROR;<br />     break;<br />   case 2:<br />     IconF = MB_ICONQUESTION;<br />     break;<br />   case 3:<br />     IconF = MB_ICONWARNING;<br />     break;<br />   case 4:<br />     IconF = MB_ICONINFORMATION;<br />     break;<br />   default: <br />     IconF = 0;<br />   }<br /> <br />   //<br />   HWND hwDocWnd = adsw_acadDocWnd();<br />   short res = MessageBox(hwDocWnd , Text , Caption ,  ButtonF | IconF);<br />   acedRetInt(res) ;<br />   return (RSRSLT) ;<br /> }<br /> #pragma endregion <br /> <br />

edata

感谢分享，alert增强版本。。。