定义一个全局命令，功能：使用类库创建一个块表记录，并插入块；

admin

1. static void TESTaddblkcmd()  
2. {  
3.         ////根据用户的输入设置块表记录的名称  
4.         CString blkName;  
5.         if (acedGetString(Adesk::kFalse,采用T("\n输入块名称"),blkName.GetBuffer(20)) != RTNORM)  
6.         {  
7.                 return;  
8.         }  
11.         ////用完getBuffer要及时release  
12.         blkName.ReleaseBuffer();  
14.         AcDbBlockTable* pBlkTbl;  
15.         acdbHostApplicationServices()->workingDatabase()->getBlockTable(pBlkTbl,AcDb::kForWrite);  
17.         AcDbObjectId rcdId ;  
19.         ////如果没有，添加新的  
20.         if (!pBlkTbl->has(blkName))  
21.         {  
22.                 ////创建新块  
23.                 AcDbBlockTableRecord* pBlkTblRcd;  
24.                 pBlkTblRcd = new AcDbBlockTableRecord();  
25.                 pBlkTblRcd->setName(blkName);  
27.                 ////将块表记录添加到块表中，设置ID  
28.                 pBlkTbl->add(rcdId,pBlkTblRcd);  
30.                 ////向块表记录中添加实体  
31.                 AcGePoint3d ptStart(-10,0,0),ptEnd(10,0,0);  
32.                 AcDbLine* pLine1 = new AcDbLine(ptStart,ptEnd);  
33.                 ptStart.set(0,-10,0);  
34.                 ptEnd.set(0,10,0);  
35.                 AcDbLine *pLine2 = new AcDbLine(ptStart,ptEnd);  
37.                 AcGeVector3d vecNormal(0,0,1);  
38.                 AcDbCircle *pCircle = new AcDbCircle(AcGePoint3d::kOrigin,vecNormal,6);  
39.                 AcDbObjectId entId;  
40.                 pBlkTblRcd->appendAcDbEntity(entId,pLine1);  
41.                 pBlkTblRcd->appendAcDbEntity(entId,pLine2);  
42.                 pBlkTblRcd->appendAcDbEntity(entId,pCircle);  
43.                 ////关闭实体块表记录  
45.                 pLine1->close();  
46.                 pLine2->close();  
47.                 pCircle->close();  
48.                 pBlkTblRcd->close();  
50.         }////如果已经有了，那就根据名字读出RECORDID,插入块参照时会用到  
51.         else  
52.         {  
53.                 pBlkTbl->getAt(blkName,rcdId,false);////以读的方式获取  
54.         }  
56.         ////在和用户交互之前，需要关闭块表，否则容易出错  
57.         pBlkTbl->close();  
58.         ////插入块  
60.         ////获得用户输入的块参照的插入点  
61.         ads采用point pt;  
62.         if(acedGetPoint(NULL,采用T("\n输入块参照的插入点"),pt) != RTNORM)  
63.         {  
64.                 pBlkTbl->close();  
65.                 return;  
66.         }  
67.         AcGePoint3d ptInsert = asPnt3d(pt);  
69.         ////创建块参照  
70.         AcDbBlockReference* pBlkRef = new AcDbBlockReference(ptInsert,rcdId);  
72.         ////将块参照添加到模型空间  
74.         AcDbBlockTableRecord* pBlkTblRcd2;  
75.         pBlkTbl->getAt(ACDB采用MODEL采用SPACE,pBlkTblRcd2,AcDb::kForWrite);  
76.         pBlkTblRcd2->appendAcDbEntity(pBlkRef);  
78.         ////关闭数据库对象  
79.         pBlkRef->close();  
80.         pBlkTblRcd2->close();  
81.         pBlkTbl->close();  
82. }

复制代码