[每日一码] 接受LISP参数，实现message box

admin

1. #include "StdAfx.h"
2. #include "MsgBox.h"
4. #pragma region //MsgBox
5. //(crpMsgBox "What the heck are you doing? " "Error" 5 4 )
6. int MsgBox(void)
7. {
9.   //
10.   int Button;
11.   int Icon;
12.   UINT ButtonF;
13.   UINT IconF;
14.   //
15.   struct resbuf *pArgs = acedGetArgs();
17.   if (pArgs == NULL)
18.     return acedRetNil();
20.   if (pArgs->restype != RTSTR )
21.     return acedRetNil();
23.   CString Text = pArgs->resval.rstring;
25.   if((pArgs = pArgs->rbnext) == NULL)
26.     return acedRetNil();
28.   if (pArgs->restype != RTSTR)
29.     return acedRetNil();
31.   CString Caption = pArgs->resval.rstring;
33.   if((pArgs = pArgs->rbnext) == NULL)
34.     return acedRetNil();
36.   if (pArgs->restype != RTSHORT)
37.     return acedRetNil();
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.   }
64.   if((pArgs = pArgs->rbnext) == NULL)
65.     return acedRetNil();
67.   if (pArgs->restype != RTSHORT)
68.     return acedRetNil();
70.   Icon = (int)pArgs->resval.rint;
71.   Button = (UINT)pArgs->resval.rint;
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.   }
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

复制代码