[每日一码] 接受LISP参数，实现文本编辑框

admin

1. // (C) Copyright 2002-2005 by Autodesk, Inc.
2. //
3. // Permission to use, copy, modify, and distribute this software in
4. // object code form for any purpose and without fee is hereby granted,
5. // provided that the above copyright notice appears in all copies and
6. // that both that copyright notice and the limited warranty and
7. // restricted rights notice below appear in all supporting
8. // documentation.
9. //
10. // AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
11. // AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
12. // MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
13. // DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
14. // UNINTERRUPTED OR ERROR FREE.
15. //
16. // Use, duplication, or disclosure by the U.S. ** is subject to
17. // restrictions set forth in FAR 52.227-19 (Commercial Computer
18. // Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
19. // (Rights in Technical Data and Computer Software), as applicable.
20. //
22. //-----------------------------------------------------------------------------
23. //----- TextBox.cpp : Implementation of TextBox
24. //-----------------------------------------------------------------------------
25. #include "StdAfx.h"
26. #include "resource.h"
27. #include "TextBox.h"
29. //-----------------------------------------------------------------------------
30. IMPLEMENT采用DYNAMIC (TextBox, CAcUiDialog)
32. BEGIN采用MESSAGE采用MAP(TextBox, CAcUiDialog)
33.   ON采用MESSAGE(WM采用ACAD采用KEEPFOCUS, OnAcadKeepFocus)
34. END采用MESSAGE采用MAP()
36. //-----------------------------------------------------------------------------
37. TextBox::TextBox (CWnd *pParent /*=NULL*/, HINSTANCE hInstance /*=NULL*/)
38. : CAcUiDialog (TextBox::IDD, pParent, hInstance) , m采用editBoxString(采用T("")) , m采用labelString(采用T(""))
39. {
40. }
42. //-----------------------------------------------------------------------------
43. void TextBox::DoDataExchange (CDataExchange *pDX) {
44.   CAcUiDialog::DoDataExchange (pDX) ;
45.   DDX采用Text(pDX, IDC采用EDIT1, m采用editBoxString);
46.   DDX采用Text(pDX, IDC采用LABEL, m采用labelString);
47.   DDX采用Control(pDX, IDC采用EDIT1, m采用editControl);
48. }
50. //-----------------------------------------------------------------------------
51. //----- Needed for modeless dialogs to keep focus.
52. //----- Return FALSE to not keep the focus, return TRUE to keep the focus
53. LRESULT TextBox::OnAcadKeepFocus (WPARAM, LPARAM) {
54.   return (TRUE) ;
55. }
57. //
58. BOOL TextBox::OnInitDialog()
59. {
60.   CAcUiDialog::OnInitDialog();
62.   //set the caption
63.   SetWindowText(m采用caption);
65.   //set focus to the editbox
66.   m采用editControl.SetFocus();
67.   return FALSE;
68.   // return TRUE unless you set the focus to a control
69.   // EXCEPTION: OCX Property Pages should return FALSE
70. }
72. //-----------------------------------------------------------------------------
73. #pragma region //DlgTextBox
75. //(crptextbox "Title" "Label" "Default Text")
76. int DlgTextBox(void)
77. {
78.   LPCTSTR pszCaption;
79.   LPCTSTR pszLabel;
80.   LPCTSTR pszText;
82.   //get args from lisp
83.   struct resbuf *pArgs = acedGetArgs();
85.   if (pArgs == NULL)
86.     return acedRetNil();
88.   //get caption string
89.   if (pArgs->restype != RTSTR )
90. return acedRetNil();
92.   pszCaption = pArgs->resval.rstring;
94.   //get label string
95.   if ((pArgs = pArgs->rbnext) == NULL || pArgs->restype != RTSTR )
96.   return acedRetNil();
98.   pszLabel = pArgs->resval.rstring;
100.   //get the defaul text
101.   if ((pArgs = pArgs->rbnext) == NULL || pArgs->restype != RTSTR  )
102.     pszText = 采用T("");
103.   else
104.     pszText = pArgs->resval.rstring;
106.   ///////Dialog Stuff
107.   CAcExtensionModule objResOverride;
109.   TextBox dlg(CWnd::FromHandle(adsw采用acadMainWnd()));
111.   //
112.   dlg.m采用caption = pszCaption;
113.   dlg.m采用editBoxString = pszText;
114.   dlg.m采用labelString = pszLabel;
116.   int m采用dlgResult = dlg.DoModal();
118.   if ( m采用dlgResult != IDOK )
119.    return acedRetNil();
120.   else
121.     pszText = dlg.m采用editBoxString;
123.   //
124.   if ( 采用tcslen(pszText) == 0 )
125.     return acedRetNil();
127.   acedRetStr(pszText);
128.   return (RSRSLT) ;
129. }
130. #pragma endregion
132. #pragma region //DlgIntBox
134. //(crpintbox "Title" "Label" 12)
135. int DlgIntBox(void)
136. {
137.   LPCTSTR pszCaption;
138.   LPCTSTR pszLabel;
139.   LPCTSTR pszIntText;
140.   ACHAR buf[256] = {0};
142.   int iInt;
144.   //
145.   struct resbuf *pArgs = acedGetArgs() ;
147.   if (pArgs == NULL)
148.     return acedRetNil();
150.   //
151.   if (pArgs->restype != RTSTR )
152.    return acedRetNil();
153.   else
154.     pszCaption = pArgs->resval.rstring;
156.   //
157.   if ((pArgs = pArgs->rbnext) == NULL || pArgs->restype != RTSTR )
158.     return acedRetNil();
159.   else
160.     pszLabel = pArgs->resval.rstring;
162.   //
163.   if ((pArgs = pArgs->rbnext) != NULL )
164.   {
165.     if (pArgs->restype == RTSHORT)
166.       pszIntText = 采用itot(pArgs->resval.rint , buf, 10);
167.     else if (pArgs->restype == RTLONG)
168.       pszIntText = 采用itot(pArgs->resval.rlong ,buf, 10);
169.     else if (pArgs->restype == RTREAL)
170.       pszIntText = 采用itot((int)pArgs->resval.rreal , buf, 10);
171.     else
172.       pszIntText = 采用T("");
173.   }
174.   else
175.   {
176.     pszIntText = 采用T("");
177.   }
179.   ///////Dialog Stuff
180.   CAcExtensionModule objResOverride;
182.   //
183.   TextBox dlg(CWnd::FromHandle(adsw采用acadMainWnd()));
185.   //
186.   dlg.m采用caption = pszCaption;
187.   dlg.m采用labelString = pszLabel;
188.   dlg.m采用editBoxString = pszIntText;
190.   //
191.   int m采用dlgResult = dlg.DoModal();
193.   //
194.   if ( m采用dlgResult != IDOK )
195.    return acedRetNil();
196.   else
197.     pszIntText = dlg.m采用editBoxString;
199.   if ( 采用tcslen(pszIntText) == 0 )
200.     return acedRetNil();
202.   //
203.   iInt = 采用ttoi(pszIntText);
204.   //
205.   acedRetInt(iInt);
206.   return (RSRSLT) ;
207. }
208. #pragma endregion
210. #pragma region //DlgRealBox
211. //(crprealbox "Title" "Label" 12.23)
212. int DlgRealBox(void)
213. {
214.   LPCTSTR pszCaption;
215.   LPCTSTR pszLabel;
216.   LPCTSTR pszRealText;
217.   ACHAR buf[256];
219.   double dReal;
220.   //
221.   struct resbuf *pArgs = acedGetArgs() ;
223.   if (pArgs == NULL)
224.    return acedRetNil();
227.   //
228.   if (pArgs->restype != RTSTR )
229.    return acedRetNil();
231.   pszCaption =  pArgs->resval.rstring;
233.   //
234.   if ((pArgs = pArgs->rbnext) == NULL || pArgs->restype != RTSTR )
235.     return acedRetNil();
237.   pszLabel = pArgs->resval.rstring;
239.   //
240.   if ((pArgs = pArgs->rbnext) != NULL)
241.   {
242.     if (pArgs->restype == RTREAL )
243.       采用stprintf(buf , 采用T("%0.2f") , (double)pArgs->resval.rreal );
244.     else if (pArgs->restype == RTLONG)
245.       采用stprintf(buf, 采用T("%0.2f") ,  (double)pArgs->resval.rlong );
246.     else if (pArgs->restype == RTSHORT)
247.       采用stprintf( buf , 采用T("%0.2f") ,(double)pArgs->resval.rint );
248.     else
249.       buf[0] = '\0';
250.   }
251.   else
252.     buf[0] = '\0';
254.   pszRealText = buf;
256.   ///////Dialog Stuff
257.   CAcExtensionModule objResOverride;
259.   //
260.   TextBox dlg(CWnd::FromHandle(adsw采用acadMainWnd()));
262.   //
263.   dlg.m采用caption = pszCaption;
264.   dlg.m采用labelString = pszLabel;
265.   dlg.m采用editBoxString = pszRealText;
267.   //
268.   int m采用dlgResult = dlg.DoModal();
269.   if ( m采用dlgResult != IDOK )
270.    return acedRetNil();
271.   else
272.     pszRealText = dlg.m采用editBoxString;
274.   //
275.   if ( 采用tcslen(pszRealText) == 0 )
276.     return acedRetNil();
278.   //
279.   dReal = 采用tstof(pszRealText);
281.   //
282.   acedRetReal(dReal);
283.   return (RSRSLT) ;
284. }
285. #pragma endregion

复制代码