[ARX程序]：一个基于AutoCAD PDB对话框的综合应用程序，

sickman

2. [font=courier new]
   
3. //*******************************************************************
   
4. // 文件名称：Mydcl.cpp
   
5. //*******************************************************************
   
6. #include < stdio.h>
   
7. #include "adslib.h"
   
8. #include "rxdefs.h"
   
9. #include "adsdlg.h"
   
10. #include "string.h"
    
11. #include < stdlib.h>                                                   
    
12. 
    
13. #define ELEMENTS(array) (sizeof(array)/sizeof((array)[0]))
    
14. #define Cpoint(d, s) { d[X]=s[X]; d[Y]=s[Y]; d[Z]=s[Z];}               
    
15. #define Spoint(d, x,y,z) { d[X]=(x); d[Y]=(y); d[Z]=(z);}              
    
16. 
    
17. struct func_entry { char *func_name;
    
18.     int (*func) ();
    
19. };
    
20. 
    
21. int mydcl();
    
22. void set_size0();   
    
23. void CALLB size_list_cb(ads_callback_packet *cpkt);
    
24. void CALLB size_usr_cb(ads_callback_packet *cpkt);
    
25. void CALLB size_usr_accept_cb(ads_callback_packet *cpkt);
    
26. void CALLB size_accept_cb(ads_callback_packet *cpkt);
    
27. int draw_size(ads_point, int, int, short, short,
    
28.               char, char, ads_real);
    
29. int dofun();
    
30. int funcload();
    
31. 
    
32. static struct func_entry func_table[] = {
    
33.     {"c:MYDCL", mydcl},
    
34. };
    
35. ads_real scale;  //比例值
    
36. 
    
37. 
    
38. extern "C" AcRx::AppRetCode
    
39. acrxEntryPoint(AcRx::AppMsgCode msg, void* ptr)
    
40. {
    
41.     switch(msg) {
    
42.     case AcRx::kInitAppMsg:
    
43.         acrxUnlockApplication(ptr);
    
44.         break;
    
45.     case AcRx::kInvkSubrMsg:
    
46.         dofun();
    
47.         break;
    
48.     case AcRx::kLoadADSMsg:
    
49.         funcload();
    
50.     }
    
51.     return AcRx::kRetOK;
    
52. }
    
53. 
    
54. static int funcload()
    
55. {
    
56.     int i;
    
57.     for (i = 0; i <  ELEMENTS(func_table); i++) {
    
58.         if (!acedDefun(func_table[i].func_name, (short)i))
    
59.             return RTERROR;
    
60.     }
    
61.     return RTNORM;
    
62. }
    
63. 
    
64. static int dofun()
    
65. {
    
66.     int val;
    
67. 
    
68.     if ((val = acedGetFunCode()) <  0 || val >= ELEMENTS(func_table))
    
69.     {
    
70.         acdbFail("收到不存在的函数代码.");
    
71.         return RTERROR;
    
72.     }
    
73. 
    
74.     val = (*func_table[val].func)();
    
75. 
    
76.     return val;
    
77. }
    
78. 
    
79. int mydcl()
    
80. {
    
81.     set_size0();
    
82.     return RSRSLT;
    
83. }
    
84. 
    
85. //.................... 图7-2及图7-3的驱动程序 ....................
    
86. static struct size_list {   //图幅尺寸的数据结构
    
87.   char *name;   //图幅名称
    
88.   int hor;      //图纸水平长度
    
89.   int ver;      //图纸纵向长度
    
90.   short a;      //图框到图纸左边界距离
    
91.   short c;      //图框到图纸上,下,右边界距离
    
92. } size_list[] = {
    
93.   {"A0",1189,841,25,10},   //A0,A1,...幅面的尺寸
    
94.   {"A1",841,594,25,10},
    
95.   {"A2",594,420,25,10},
    
96.   {"A3",420,297,25,5},
    
97.   {"A4",210,297,25,5},
    
98.   {"A5",210,148,25,5},
    
99.   {"USR",1189,841,25,10},  //用户自定义幅面,在此借用A0,可动态修改     
    
100. };
     
101. #define SIZE_L 7      //常用图幅的数目
     
102. static int size=0;    //A0到USR共7种图幅的序号
     
103. static char style;    //图纸布置方式,1=正常(水平);0=转置(竖置)
     
104. static char head;     //标题栏,1=格式A(标准格式);0=格式B
     
105. ads_hdlg  hdlg,hdlg1;   //对话框handle,因需嵌套显示,故设为全局变量
     
106. int dcl_id;             //对话框文件标识字,理由同上
     
107. int dlg_status,dlg_status1;   //对话框显示状态标志,理由同上
     
108. char tbuf[80];      //全局性的自由变量
     
109. 
     
110. // *** 用于图幅及标题栏前置设定的主函数 ***
     
111. void set_size0()   
     
112. {
     
113.   ads_point pt_temp1={0,0,0};   //绘制图幅外边界时,左下角点坐标
     
114.   int i;
     
115.   struct resbuf rb;    //供存取AutoCAD系统变量之用
     
116. 
     
117.   if(ads_load_dialog("Mydcl.dcl", &dcl_id)!=RTNORM) {   
     
118.                                  //将对话框文件Mydcl.dcl调入内存
     
119.     acedAlert("装入Mydcl.dcl文件出错.");
     
120.     return;
     
121.   }
     
122.   if(ads_new_dialog("set_size0",dcl_id,(CLIENTFUNC)0,&hdlg)!=RTNORM) {
     
123.                                                 //显示对话框,图7-2
     
124.     acedAlert("显示set_size0对话框时出错.");
     
125.     ads_unload_dialog(dcl_id);  //卸载对话框文件
     
126.     return;
     
127.   }
     
128.   ads_action_tile(hdlg, "list", (CLIENTFUNC)size_list_cb);  
     
129.                   //将对话框中"list栏"与回调函数size_list_cb()相关联
     
130.   ads_action_tile(hdlg, "accept", (CLIENTFUNC)size_accept_cb);
     
131.                 //将对话框的"OK按钮"与回调函数size_accept_cb()相关联
     
132.   ads_action_tile(hdlg, "usr", (CLIENTFUNC)size_usr_cb);  
     
133.           //"usr"与函数size_usr_cb()相关联,实现用户自定义USR图幅尺寸
     
134.   ads_start_list(hdlg, "list", LIST_NEW, 0);
     
135.                              //初始化"list栏"中各项数据
     
136.   for (i=0;i< SIZE_L;++i) {
     
137.     sprintf(tbuf,"%s(%dX%d)",size_list[i].name,size_list[i].hor,
     
138.                   size_list[i].ver);
     
139.     ads_add_list(tbuf);  //向list栏加入表项
     
140.   }
     
141.   ads_end_list();   //表的初始化工作结束
     
142.   ads_set_tile(hdlg, "edit", size_list[size].name); //为"edit"赋初值
     
143.   sprintf(tbuf,"%d",size);
     
144.   ads_set_tile(hdlg,"list", tbuf);     //为"list"赋初值
     
145.   ads_start_dialog(hdlg, &dlg_status);   //与对话框进行交互
     
146.   ads_unload_dialog(dcl_id);    //当对话框关闭后，清理内存
     
147. 
     
148.   acedGetVar("DIASTAT",&rb);   
     
149.   if(rb.resval.rint==0) {
     
150.     acedRetVoid();    //直接返回AutoLISP,不回显nil
     
151.     return;      //CANCEL结束对话框,返回
     
152.   }
     
153.   acedGetVar("userr1",&rb);  //从系统变量userr1获取当前使用的比例值
     
154.   scale=rb.resval.rreal;
     
155.   if(scale==0.0) scale=1.0;
     
156.   acedCommand(RTSTR,"ERASE",RTSTR,"ALL",RTSTR,"",0);
     
157.                          //清屏后,调draw_size()函数绘图框和标题栏等
     
158.   if(draw_size(pt_temp1,size_list[size].hor,size_list[size].ver,
     
159.       size_list[size].a,size_list[size].c,style,head,scale)!=RTERROR)  
     
160.     acedCommand(RTSTR,"ZOOM",RTSTR,"ALL",0);
     
161.   acedRetVoid();   
     
162.   return;
     
163. }
     
164. 
     
165. // *** 图幅对话框"list"列表栏所对应的回调函数size_list_cb() ***
     
166. void CALLB size_list_cb(ads_callback_packet *cpkt)
     
167. {                                      
     
168.   if (cpkt->value == NULL || cpkt->value[0] == EOS)
     
169.       return ;
     
170.   ads_set_tile(cpkt->dialog,"edit",size_list[atoi(cpkt->value)].name);
     
171.                                     //用"list"中的比例值更新"edit"
     
172. }
     
173. 
     
174. // *** 图幅对话框"usr"所对应的回调函数size_usr_cb() ***
     
175. void CALLB size_usr_cb(ads_callback_packet *cpkt)
     
176. {
     
177.   short sht1,sht2;      //对话框中幻灯片的尺寸
     
178.   ads_set_tile(cpkt->dialog, "edit", size_list[SIZE_L-1].name);
     
179.                         //首先将主对话框中的"edit"一项用"USR"更新
     
180.   ads_new_dialog("set_size0_a", dcl_id, (CLIENTFUNC)0, &hdlg1);
     
181.                                            //显示子对话框,图7-3
     
182.   ads_action_tile(hdlg1, "accept", (CLIENTFUNC)size_usr_accept_cb);
     
183.   itoa(size_list[SIZE_L-1].hor,tbuf,10);
     
184.   ads_set_tile(hdlg1, "H", tbuf);
     
185.   itoa(size_list[SIZE_L-1].ver,tbuf,10);
     
186.   ads_set_tile(hdlg1, "V", tbuf);
     
187.   itoa(size_list[SIZE_L-1].a,tbuf,10);
     
188.   ads_set_tile(hdlg1, "a", tbuf);
     
189.   itoa(size_list[SIZE_L-1].c,tbuf,10);
     
190.   ads_set_tile(hdlg1, "c", tbuf);
     
191.                           //上面几行是用USR图幅原值初始化对话框各项
     
192.   ads_dimensions_tile(hdlg1,"image",&sht1,&sht2);    //显示幻灯片
     
193.   ads_start_image(hdlg1,"image");
     
194.   ads_slide_image(0,0,sht1,sht2,"set_size"); //幻灯片名为SET_SIZE.SLD
     
195.   ads_end_image();
     
196.   ads_start_dialog(hdlg1, &dlg_status1);    //与对话框进行交互
     
197.   ads_start_list(hdlg, "list", LIST_CHANGE, SIZE_L-1);
     
198.                             //改变主对话框"list栏"中USR图幅尺寸数字
     
199.   sprintf(tbuf,"%s(%dX%d)",size_list[SIZE_L-1].name,
     
200.                 size_list[SIZE_L-1].hor,size_list[SIZE_L-1].ver);
     
201.   ads_add_list(tbuf);
     
202.   ads_end_list();
     
203.   sprintf(tbuf,"%d",SIZE_L-1);
     
204.   ads_set_tile(hdlg,"list", tbuf); //将主对话框的光标置于"list"的USR
     
205. }
     
206. 
     
207. // *** 自定义图幅对话框"OK按钮"所对应的回调函数size_accept_a_cb() ***
     
208. void CALLB size_usr_accept_cb(ads_callback_packet *cpkt)
     
209. {            
     
210.   ads_get_tile(cpkt->dialog, "H", tbuf, MAX_TILE_STR);
     
211.   size_list[SIZE_L-1].hor=atoi(tbuf);
     
212.   ads_get_tile(cpkt->dialog, "V", tbuf, MAX_TILE_STR);
     
213.   size_list[SIZE_L-1].ver=atoi(tbuf);
     
214.   ads_get_tile(cpkt->dialog, "a", tbuf, MAX_TILE_STR);
     
215.   size_list[SIZE_L-1].a=atoi(tbuf);
     
216.   ads_get_tile(cpkt->dialog, "c", tbuf, MAX_TILE_STR);
     
217.   size_list[SIZE_L-1].c=atoi(tbuf);
     
218.             //获取各控件的值,送至结构变量size_list[]
     
219.   ads_done_dialog(cpkt->dialog,3);    //关闭子对话框
     
220. }
     
221. 
     
222. // *** 图幅对话框"OK按钮"所对应的回调函数size_accept_cb() ***
     
223. void CALLB size_accept_cb(ads_callback_packet *cpkt)
     
224. {
     
225.   int i;
     
226.   ads_get_tile(cpkt->dialog, "edit", tbuf, MAX_TILE_STR);
     
227.   for(i=0;i< SIZE_L;i++) {    //根据图幅名称,获取用户选定的图幅的序号
     
228.     if(stricmp(tbuf,size_list[i].name)==0) {
     
229.       size=i;
     
230.       break;
     
231.     }
     
232.   }
     
233.   if(i!=size) size=SIZE_L-1;
     
234.   if(size_list[size].hor< =25||size_list[size].ver< =10) {
     
235.     acedAlert("自定义尺寸有误.");
     
236.     return;
     
237.   }
     
238.   ads_get_tile(cpkt->dialog, "style", tbuf, MAX_TILE_STR);  
     
239.   style=tbuf[0];    //图纸布置方式
     
240.   ads_get_tile(cpkt->dialog, "head_a", tbuf, MAX_TILE_STR);  
     
241.   head=tbuf[0];     //标题栏格式
     
242.   ads_done_dialog(cpkt->dialog,1);   //正常关闭对话框
     
243. }
     
244. 
     
245. // *** 绘制图幅外边界,图框,标题栏 ***
     
246. int draw_size(ads_point pt_temp1, int hor, int ver, short a, short c,
     
247.               char style, char head, ads_real scale)
     
248. {      //传递参数依次为: 左下角点坐标,水平长度,纵向长度,至左边界距离,
     
249.        //           至其它三边的距离,图纸布置方式,标题栏格式,绘图比例
     
250.   ads_point pt0,pt1,pt2,pt3;
     
251.   int int1;
     
252.   char head_name[12];  //DWG格式标题栏图块名称
     
253.   ads_name ss,e0,e1;   //选择集和实体名称
     
254. 
     
255.   if(style!='1') {     //图纸转置90度
     
256.     int1=hor;
     
257.     hor=ver;
     
258.     ver=int1;
     
259.   }
     
260.   if(head=='1') strcpy(head_name,"head_a.dwg");   //标题栏格式A
     
261.   else strcpy(head_name,"head_b.dwg");       //标题栏格式B
     
262.   if(acedFindFile(head_name,tbuf)!=RTNORM) {  //在盘上查找标题栏图块
     
263.     sprintf(tbuf,"file < %s> not existed.",head_name);
     
264.     acedAlert(tbuf);
     
265.     return RTERROR;
     
266.   }
     
267.   
     
268.   Cpoint(pt0,pt_temp1);   //对图幅外边界四角点X,Y,Z坐标赋值
     
269.   Spoint(pt1,pt0[X]+hor,pt0[Y],0);
     
270.   Spoint(pt2,pt0[X]+hor,pt0[Y]+ver,0);
     
271.   Spoint(pt3,pt0[X],pt0[Y]+ver,0);
     
272. 
     
273.   acedCommand(RTSTR,"COLOR",RTSTR,"YELLOW",0);
     
274. 
     
275.   acedCommand(RTSTR,"LINE",RTPOINT,pt0,RTPOINT,pt1,0);  //画外边界线
     
276.   acdbEntLast(e0);    //为后续生成ss选择集而保存第一个实体的名称
     
277.   acedCommand(RTPOINT,pt2,RTPOINT,pt3,RTSTR,"C",0);
     
278.   Spoint(pt0,pt0[X]+a,pt0[Y]+c,0);
     
279.   Spoint(pt1,pt1[X]-c,pt1[Y]+c,0);
     
280.   Spoint(pt2,pt2[X]-c,pt2[Y]-c,0);
     
281.   Spoint(pt3,pt3[X]+a,pt3[Y]-c,0);
     
282. 
     
283.   acedCommand(RTSTR,"COLOR",RTSTR,"WHITE",0);
     
284. 
     
285.   acedCommand(RTSTR,"LINE",RTPOINT,pt0,RTPOINT,pt1,RTPOINT,pt2,
     
286.               RTPOINT,pt3,RTSTR,"C",0);        //绘图框线
     
287.   acedCommand(RTSTR,"LINE",RTPOINT,pt3,RTSTR,"@40< 0",RTSTR,"@12< -90",
     
288.               RTSTR,"@40< -180",RTSTR,"@12< 90",RTSTR,"",0);//绘图号区
     
289.   acedCommand(RTSTR,"INSERT",RTSTR,head_name,RT3DPOINT,pt1,
     
290.               RTSTR,"",RTSTR,"",RTSTR,"",0);     //插入标题栏图块
     
291.   acedCommand(RTSTR,"COLOR",RTSTR,"BYLAYER",0);
     
292.   acedSSAdd(NULL,NULL,ss);    //构造空的选择集ss
     
293.   do {     //生成包含所有新实体(图框,标题栏等)的选择集,送ss之中
     
294.     acedSSAdd(e0,ss,ss);
     
295.     acdbNameSet(e0,e1);
     
296.   } while(acdbEntNext(e1,e0)==RTNORM);
     
297.   acedCommand(RTSTR,"SCALE",RTPICKS,ss,RTSTR,"",RTPOINT,pt_temp1,
     
298.               RTREAL,1.0/scale,0);  //对图框和标题栏等进行反比例缩放
     
299.   acedSSFree(ss);   //释放选择集ss
     
300.   return RTNORM;
     
301. }
     
302. [/font]

[font=courier new]<br /> //*******************************************************************<br /> // 文件名称：Mydcl.cpp<br /> //*******************************************************************<br /> #include < stdio.h><br /> #include "adslib.h"<br /> #include "rxdefs.h"<br /> #include "adsdlg.h"<br /> #include "string.h"<br /> #include < stdlib.h>                                                    <br /> <br /> #define ELEMENTS(array) (sizeof(array)/sizeof((array)[0]))<br /> #define Cpoint(d, s) { d[X]=s[X]; d[Y]=s[Y]; d[Z]=s[Z];}               <br /> #define Spoint(d, x,y,z) { d[X]=(x); d[Y]=(y); d[Z]=(z);}              <br /> <br /> struct func_entry { char *func_name; <br />     int (*func) (); <br /> };<br /> <br /> int mydcl();<br /> void set_size0();   <br /> void CALLB size_list_cb(ads_callback_packet *cpkt);<br /> void CALLB size_usr_cb(ads_callback_packet *cpkt);<br /> void CALLB size_usr_accept_cb(ads_callback_packet *cpkt);<br /> void CALLB size_accept_cb(ads_callback_packet *cpkt);<br /> int draw_size(ads_point, int, int, short, short, <br />               char, char, ads_real);<br /> int dofun();<br /> int funcload();<br /> <br /> static struct func_entry func_table[] = { <br />     {"c:MYDCL", mydcl},<br /> };<br /> ads_real scale;  //比例值<br /> <br /> <br /> extern "C" AcRx::AppRetCode<br /> acrxEntryPoint(AcRx::AppMsgCode msg, void* ptr)<br /> {<br />     switch(msg) {<br />     case AcRx::kInitAppMsg:<br />         acrxUnlockApplication(ptr);<br />         break;<br />     case AcRx::kInvkSubrMsg:<br />         dofun();<br />         break;<br />     case AcRx::kLoadADSMsg:<br />         funcload();<br />     }<br />     return AcRx::kRetOK;<br /> }<br /> <br /> static int funcload()<br /> {<br />     int i;<br />     for (i = 0; i <  ELEMENTS(func_table); i++) {<br />         if (!acedDefun(func_table[i].func_name, (short)i))<br />             return RTERROR;<br />     }<br />     return RTNORM;<br /> }<br /> <br /> static int dofun()<br /> {<br />     int val;<br /> <br />     if ((val = acedGetFunCode()) <  0 || val >= ELEMENTS(func_table)) <br />     {<br />         acdbFail("收到不存在的函数代码.");<br />         return RTERROR;<br />     }<br /> <br />     val = (*func_table[val].func)();<br /> <br />     return val;<br /> }<br /> <br /> int mydcl()<br /> {<br />     set_size0();<br />     return RSRSLT;<br /> }<br /> <br /> //.................... 图7-2及图7-3的驱动程序 ....................<br /> static struct size_list {   //图幅尺寸的数据结构<br />   char *name;   //图幅名称<br />   int hor;      //图纸水平长度<br />   int ver;      //图纸纵向长度<br />   short a;      //图框到图纸左边界距离<br />   short c;      //图框到图纸上,下,右边界距离<br /> } size_list[] = {<br />   {"A0",1189,841,25,10},   //A0,A1,...幅面的尺寸<br />   {"A1",841,594,25,10},<br />   {"A2",594,420,25,10},<br />   {"A3",420,297,25,5},<br />   {"A4",210,297,25,5},<br />   {"A5",210,148,25,5},<br />   {"USR",1189,841,25,10},  //用户自定义幅面,在此借用A0,可动态修改     <br /> };<br /> #define SIZE_L 7      //常用图幅的数目<br /> static int size=0;    //A0到USR共7种图幅的序号<br /> static char style;    //图纸布置方式,1=正常(水平);0=转置(竖置)<br /> static char head;     //标题栏,1=格式A(标准格式);0=格式B<br /> ads_hdlg  hdlg,hdlg1;   //对话框handle,因需嵌套显示,故设为全局变量<br /> int dcl_id;             //对话框文件标识字,理由同上<br /> int dlg_status,dlg_status1;   //对话框显示状态标志,理由同上<br /> char tbuf[80];      //全局性的自由变量<br /> <br /> // *** 用于图幅及标题栏前置设定的主函数 ***<br /> void set_size0()    <br /> {<br />   ads_point pt_temp1={0,0,0};   //绘制图幅外边界时,左下角点坐标<br />   int i;<br />   struct resbuf rb;    //供存取AutoCAD系统变量之用<br /> <br />   if(ads_load_dialog("Mydcl.dcl", &dcl_id)!=RTNORM) {   <br />                                  //将对话框文件Mydcl.dcl调入内存<br />     acedAlert("装入Mydcl.dcl文件出错.");<br />     return;<br />   }<br />   if(ads_new_dialog("set_size0",dcl_id,(CLIENTFUNC)0,&hdlg)!=RTNORM) {<br />                                                 //显示对话框,图7-2<br />     acedAlert("显示set_size0对话框时出错.");<br />     ads_unload_dialog(dcl_id);  //卸载对话框文件<br />     return;<br />   }<br />   ads_action_tile(hdlg, "list", (CLIENTFUNC)size_list_cb);  <br />                   //将对话框中"list栏"与回调函数size_list_cb()相关联<br />   ads_action_tile(hdlg, "accept", (CLIENTFUNC)size_accept_cb);<br />                 //将对话框的"OK按钮"与回调函数size_accept_cb()相关联<br />   ads_action_tile(hdlg, "usr", (CLIENTFUNC)size_usr_cb);  <br />           //"usr"与函数size_usr_cb()相关联,实现用户自定义USR图幅尺寸<br />   ads_start_list(hdlg, "list", LIST_NEW, 0);<br />                              //初始化"list栏"中各项数据<br />   for (i=0;i< SIZE_L;++i) {<br />     sprintf(tbuf,"%s(%dX%d)",size_list[i].name,size_list[i].hor,<br />                   size_list[i].ver);<br />     ads_add_list(tbuf);  //向list栏加入表项<br />   }<br />   ads_end_list();   //表的初始化工作结束<br />   ads_set_tile(hdlg, "edit", size_list[size].name); //为"edit"赋初值<br />   sprintf(tbuf,"%d",size);<br />   ads_set_tile(hdlg,"list", tbuf);     //为"list"赋初值<br />   ads_start_dialog(hdlg, &dlg_status);   //与对话框进行交互<br />   ads_unload_dialog(dcl_id);    //当对话框关闭后，清理内存<br /> <br />   acedGetVar("DIASTAT",&rb);    <br />   if(rb.resval.rint==0) {<br />     acedRetVoid();    //直接返回AutoLISP,不回显nil<br />     return;      //CANCEL结束对话框,返回<br />   }<br />   acedGetVar("userr1",&rb);  //从系统变量userr1获取当前使用的比例值<br />   scale=rb.resval.rreal;<br />   if(scale==0.0) scale=1.0;<br />   acedCommand(RTSTR,"ERASE",RTSTR,"ALL",RTSTR,"",0);<br />                          //清屏后,调draw_size()函数绘图框和标题栏等<br />   if(draw_size(pt_temp1,size_list[size].hor,size_list[size].ver,<br />       size_list[size].a,size_list[size].c,style,head,scale)!=RTERROR)  <br />     acedCommand(RTSTR,"ZOOM",RTSTR,"ALL",0);<br />   acedRetVoid();    <br />   return;<br /> }<br /> <br /> // *** 图幅对话框"list"列表栏所对应的回调函数size_list_cb() ***<br /> void CALLB size_list_cb(ads_callback_packet *cpkt)<br /> {                                      <br />   if (cpkt->value == NULL || cpkt->value[0] == EOS)<br />       return ;<br />   ads_set_tile(cpkt->dialog,"edit",size_list[atoi(cpkt->value)].name);<br />                                     //用"list"中的比例值更新"edit"<br /> }<br /> <br /> // *** 图幅对话框"usr"所对应的回调函数size_usr_cb() ***<br /> void CALLB size_usr_cb(ads_callback_packet *cpkt)<br /> { <br />   short sht1,sht2;      //对话框中幻灯片的尺寸<br />   ads_set_tile(cpkt->dialog, "edit", size_list[SIZE_L-1].name); <br />                         //首先将主对话框中的"edit"一项用"USR"更新<br />   ads_new_dialog("set_size0_a", dcl_id, (CLIENTFUNC)0, &hdlg1);<br />                                            //显示子对话框,图7-3<br />   ads_action_tile(hdlg1, "accept", (CLIENTFUNC)size_usr_accept_cb); <br />   itoa(size_list[SIZE_L-1].hor,tbuf,10); <br />   ads_set_tile(hdlg1, "H", tbuf); <br />   itoa(size_list[SIZE_L-1].ver,tbuf,10);<br />   ads_set_tile(hdlg1, "V", tbuf); <br />   itoa(size_list[SIZE_L-1].a,tbuf,10);<br />   ads_set_tile(hdlg1, "a", tbuf); <br />   itoa(size_list[SIZE_L-1].c,tbuf,10);<br />   ads_set_tile(hdlg1, "c", tbuf); <br />                           //上面几行是用USR图幅原值初始化对话框各项<br />   ads_dimensions_tile(hdlg1,"image",&sht1,&sht2);    //显示幻灯片<br />   ads_start_image(hdlg1,"image");<br />   ads_slide_image(0,0,sht1,sht2,"set_size"); //幻灯片名为SET_SIZE.SLD<br />   ads_end_image();<br />   ads_start_dialog(hdlg1, &dlg_status1);    //与对话框进行交互<br />   ads_start_list(hdlg, "list", LIST_CHANGE, SIZE_L-1);<br />                             //改变主对话框"list栏"中USR图幅尺寸数字<br />   sprintf(tbuf,"%s(%dX%d)",size_list[SIZE_L-1].name,<br />                 size_list[SIZE_L-1].hor,size_list[SIZE_L-1].ver);<br />   ads_add_list(tbuf);<br />   ads_end_list();<br />   sprintf(tbuf,"%d",SIZE_L-1);<br />   ads_set_tile(hdlg,"list", tbuf); //将主对话框的光标置于"list"的USR<br /> }<br /> <br /> // *** 自定义图幅对话框"OK按钮"所对应的回调函数size_accept_a_cb() ***<br /> void CALLB size_usr_accept_cb(ads_callback_packet *cpkt)<br /> {            <br />   ads_get_tile(cpkt->dialog, "H", tbuf, MAX_TILE_STR);<br />   size_list[SIZE_L-1].hor=atoi(tbuf);<br />   ads_get_tile(cpkt->dialog, "V", tbuf, MAX_TILE_STR);<br />   size_list[SIZE_L-1].ver=atoi(tbuf);<br />   ads_get_tile(cpkt->dialog, "a", tbuf, MAX_TILE_STR);<br />   size_list[SIZE_L-1].a=atoi(tbuf);<br />   ads_get_tile(cpkt->dialog, "c", tbuf, MAX_TILE_STR);<br />   size_list[SIZE_L-1].c=atoi(tbuf);<br />             //获取各控件的值,送至结构变量size_list[]<br />   ads_done_dialog(cpkt->dialog,3);    //关闭子对话框<br /> }<br /> <br /> // *** 图幅对话框"OK按钮"所对应的回调函数size_accept_cb() ***<br /> void CALLB size_accept_cb(ads_callback_packet *cpkt)<br /> {<br />   int i;<br />   ads_get_tile(cpkt->dialog, "edit", tbuf, MAX_TILE_STR);<br />   for(i=0;i< SIZE_L;i++) {    //根据图幅名称,获取用户选定的图幅的序号<br />     if(stricmp(tbuf,size_list[i].name)==0) {<br />       size=i;<br />       break;<br />     }<br />   }<br />   if(i!=size) size=SIZE_L-1;<br />   if(size_list[size].hor< =25||size_list[size].ver< =10) {<br />     acedAlert("自定义尺寸有误.");<br />     return;<br />   }<br />   ads_get_tile(cpkt->dialog, "style", tbuf, MAX_TILE_STR);  <br />   style=tbuf[0];    //图纸布置方式<br />   ads_get_tile(cpkt->dialog, "head_a", tbuf, MAX_TILE_STR);  <br />   head=tbuf[0];     //标题栏格式<br />   ads_done_dialog(cpkt->dialog,1);   //正常关闭对话框<br /> }<br /> <br /> // *** 绘制图幅外边界,图框,标题栏 ***<br /> int draw_size(ads_point pt_temp1, int hor, int ver, short a, short c, <br />               char style, char head, ads_real scale)<br /> {      //传递参数依次为: 左下角点坐标,水平长度,纵向长度,至左边界距离,<br />        //           至其它三边的距离,图纸布置方式,标题栏格式,绘图比例<br />   ads_point pt0,pt1,pt2,pt3;<br />   int int1;<br />   char head_name[12];  //DWG格式标题栏图块名称<br />   ads_name ss,e0,e1;   //选择集和实体名称<br /> <br />   if(style!='1') {     //图纸转置90度<br />     int1=hor;<br />     hor=ver;<br />     ver=int1;<br />   }<br />   if(head=='1') strcpy(head_name,"head_a.dwg");   //标题栏格式A<br />   else strcpy(head_name,"head_b.dwg");       //标题栏格式B<br />   if(acedFindFile(head_name,tbuf)!=RTNORM) {  //在盘上查找标题栏图块<br />     sprintf(tbuf,"file < %s> not existed.",head_name);<br />     acedAlert(tbuf);<br />     return RTERROR;<br />   }<br />   <br />   Cpoint(pt0,pt_temp1);   //对图幅外边界四角点X,Y,Z坐标赋值<br />   Spoint(pt1,pt0[X]+hor,pt0[Y],0);<br />   Spoint(pt2,pt0[X]+hor,pt0[Y]+ver,0);<br />   Spoint(pt3,pt0[X],pt0[Y]+ver,0);<br /> <br />   acedCommand(RTSTR,"COLOR",RTSTR,"YELLOW",0);<br /> <br />   acedCommand(RTSTR,"LINE",RTPOINT,pt0,RTPOINT,pt1,0);  //画外边界线<br />   acdbEntLast(e0);    //为后续生成ss选择集而保存第一个实体的名称<br />   acedCommand(RTPOINT,pt2,RTPOINT,pt3,RTSTR,"C",0);<br />   Spoint(pt0,pt0[X]+a,pt0[Y]+c,0);<br />   Spoint(pt1,pt1[X]-c,pt1[Y]+c,0);<br />   Spoint(pt2,pt2[X]-c,pt2[Y]-c,0);<br />   Spoint(pt3,pt3[X]+a,pt3[Y]-c,0);<br /> <br />   acedCommand(RTSTR,"COLOR",RTSTR,"WHITE",0);<br /> <br />   acedCommand(RTSTR,"LINE",RTPOINT,pt0,RTPOINT,pt1,RTPOINT,pt2,<br />               RTPOINT,pt3,RTSTR,"C",0);        //绘图框线<br />   acedCommand(RTSTR,"LINE",RTPOINT,pt3,RTSTR,"@40< 0",RTSTR,"@12< -90",<br />               RTSTR,"@40< -180",RTSTR,"@12< 90",RTSTR,"",0);//绘图号区<br />   acedCommand(RTSTR,"INSERT",RTSTR,head_name,RT3DPOINT,pt1,<br />               RTSTR,"",RTSTR,"",RTSTR,"",0);     //插入标题栏图块<br />   acedCommand(RTSTR,"COLOR",RTSTR,"BYLAYER",0);<br />   acedSSAdd(NULL,NULL,ss);    //构造空的选择集ss<br />   do {     //生成包含所有新实体(图框,标题栏等)的选择集,送ss之中<br />     acedSSAdd(e0,ss,ss);<br />     acdbNameSet(e0,e1);<br />   } while(acdbEntNext(e1,e0)==RTNORM);<br />   acedCommand(RTSTR,"SCALE",RTPICKS,ss,RTSTR,"",RTPOINT,pt_temp1,<br />               RTREAL,1.0/scale,0);  //对图框和标题栏等进行反比例缩放<br />   acedSSFree(ss);   //释放选择集ss<br />   return RTNORM;<br /> }<br /> [/font]