[日积月累]：创建图块，并存为外部文件

Echoyin

创建图块并存为外部文件。
能够避免使用database 的wblock函数创建的图块没有thumnailbmp的缺点

1. 
   
2.   [FONT=courier new]
   
3. void CreateBlock
   
4. {
   
5.         char blkname[50];
   
6.         int rt=ads_getstring(0,"\n请输入图块名称<NONAME>:",blkname);
   
7.         if(rt!=RTNORM) return ;
   
8.         if(strcmp(blkname,"")==0) {
   
9.                 strcpy(blkname,"NONAME");
   
10.         }
    
11.         CString filepath="";
    
12.         CString No;
    
13.         CFileFind finder;
    
14.         filepath+="C:\"+blkname+".dwg";
    
15.         BOOL bworking=finder.FindFile(filepath);
    
16.         int i=0;
    
17.         while(bworking)
    
18.         {
    
19.                 i++;
    
20.                 No.Format("%d",i);
    
21.                 filepath="C:\"+blkname+No+".dwg";
    
22.                 bworking=finder.FindFile(filepath);
    
23.         }
    
24.         finder.Close();
    
25.         gGlobal.SetVar("cmdecho",0);
    
26.         ads_name ents;
    
27.         ads_ssget(NULL,NULL,NULL,NULL,ents);
    
28.         long len;
    
29.         rt=ads_sslength(ents,&len);
    
30.         if(rt!=RTNORM||len<1) return ;
    
31.         ads_point pt;
    
32.         rt=ads_getpoint(NULL,"\n选取图块插入点:",pt);
    
33.         if(rt!=RTNORM) return;
    
34.         rt=ads_command(RTSTR,"WBLOCK",RTSTR,filepath,RTSTR,"",RT3DPOINT,pt,RTPICKS,ents,RTSTR,"",0);
    
35.         if(rt==RTNORM){
    
36.                 ads_command(RTSTR,"UNDO",RTSTR,"",0);
    
37.         }
    
38.         ads_ssfree(ents);
    
39.         gGlobal.SetVar("cmdecho",1);
    
40. }
    
41.   [/FONT]
    

复制代码