请教:创建一个新布局,并在新布局上插入图块.

yulinxx

创建一个新布局:

1. AcDbBlockTableRecord* CViewPort::CreatNewLayout(CString strLayoutName)
   
2. {
   
3.     AcDbLayout *pLayout = NULL;
   
4.          AcDbBlockTableRecord *pBlkTblRec= NULL;
   
5.     pLayout = acdbHostApplicationServices()->
   
6.             layoutManager()->findLayoutNamed(strLayoutName);
   
7. 
   
8.     if (pLayout)
   
9.     {
   
10.         acutPrintf(_T("\n布局 %s 已存在"), strLayoutName);
    
11.         pLayout->close();
    
12.         return pBlkTblRec;
    
13.     }
    
14. 
    
15.     Acad::ErrorStatus es;
    
16.     AcDbBlockTable *pBlkTbl = NULL;
    
17.    
    
18.     AcDbDatabase *pDb = acdbHostApplicationServices()->workingDatabase();
    
19.     es = pDb->getBlockTable(pBlkTbl, AcDb::kForWrite);
    
20.         if (Acad::eOk != es)
    
21.         {
    
22.                 return pBlkTblRec;
    
23.         }
    
24. 
    
25.     pBlkTblRec = new AcDbBlockTableRecord;
    
26.     es = pBlkTblRec->setName(_T("*Paper_Space"));        // 块表记录名称
    
27.         if (Acad::eOk != es)
    
28.         {
    
29.                 return pBlkTblRec;
    
30.         }
    
31.    
    
32.     es = pBlkTbl->add(recId, pBlkTblRec);
    
33.     pBlkTblRec->close();
    
34.     pBlkTbl->close();
    
35. 
    
36.     pLayout = new AcDbLayout;                            // 创建新的布局
    
37.     es = pLayout->setLayoutName(strLayoutName);          // 布局显示名称
    
38.     es = pLayout->addToLayoutDict(pDb,recId);
    
39.     pLayout->close();
    
40. 
    
41.     acedCommand(RTSTR, _T("REGEN"), RTNONE);
    
42.     return pBlkTblRec;
    
43. }

复制代码

创建好后, 我再将一个外部的DWG文件作为一个块插入到新建的布局中

1. bool CEntSet::InsBlk(CString strBlkName,AcGePoint3dArray ptArr)
   
2. {
   
3.         Acad::ErrorStatus es;
   
4.         AcDbBlockTable *pBlkTbl = NULL;
   
5.         es = acdbHostApplicationServices()->workingDatabase()
   
6.                 ->getBlockTable(pBlkTbl, AcDb::kForRead);
   
7. 
   
8.         if (Acad::eOk != es)
   
9.         {
   
10.                 acutPrintf(_T("\n获取块表失败"));
    
11.                 return false;
    
12.         }
    
13. 
    
14.         if(!pBlkTbl->has(strBlkName))
    
15.         {
    
16.                 acutPrintf(_T("\n当前图形中未包含此块:%s"), strBlkName);
    
17.                 pBlkTbl->close();
    
18.                 return false;
    
19.         }
    
20. 
    
21.         AcDbObjectId blkTRecId;
    
22.         es = pBlkTbl->getAt(strBlkName, blkTRecId);                // 获取块表ID
    
23.         if(Acad::eOk != es)
    
24.         {
    
25.                 return false;
    
26.         }
    
27. 
    
28.         // 新建块表引用
    
29.         AcGePoint3d ptOri(0,0,0);
    
30.         AcDbBlockReference *pBlkRef = new AcDbBlockReference(ptOri,blkTRecId);
    
31.        
    
32.         // 得到图纸空间块表记录
    
33.         AcDbBlockTableRecord *pBlkTblRec = NULL;
    
34.         es = pBlkTbl->getAt(_T("*Paper_Space"), pBlkTblRec, AcDb::kForWrite);
    
35.         pBlkTbl->close();
    
36. 
    
37.         AcDbObjectId objId;
    
38.         es = pBlkTblRec->appendAcDbEntity(objId, pBlkRef);        // 加入图纸空间
    
39. 
    
40.         CString strFrmName;
    
41.         int nPos = g_strFramePath.ReverseFind(_T('\\'));
    
42.         strFrmName = g_strFramePath.Mid(nPos+1);
    
43.         strFrmName = strFrmName.TrimRight(_T(".dwg"));
    
44. 
    
45.         pBlkRef->close();
    
46.         pBlkTblRec->close();
    
47.         acedCommand(RTSTR, _T("REGEN"), RTNONE);
    
48.         return true;       
    
49. }
    

复制代码

现在的问题是, 每次都都插在"布局1"上, 怎么使这个块插入到新建的布局空间上呢?  谢谢啊

szxgsh

期待高手路过