[每日一码] 使用ARX读取尺寸的文本内容

admin

1. AcDbEntity *pEnt;
   
2.   AcDbObjectId id;
   
3.   AcGePoint3d ptPick;
   
4.   ads_name eName;
   
5.   if (acedEntSel (_T("Select a dimension: ") , eName, asDblArray (ptPick)) != RTNORM )
   
6.    return;
   
7.   acdbGetObjectId (id, eName);
   
8.   acdbOpenAcDbEntity (pEnt, id, AcDb::kForRead);
   
9.   //----- Get the id of the block table record which owns the text entity
   
10.   AcDbDimension *pDim =AcDbDimension::cast (pEnt);
    
11.   if (pDim == NULL)
    
12.   {
    
13.    pEnt->close ();
    
14.    return;
    
15.   }
    
16.   id =pDim->dimBlockId ();
    
17.   pDim->close ();
    
18.   AcDbBlockTableRecord *pr;
    
19.   acdbOpenAcDbObject ((AcDbObject *&) pr, id, AcDb::kForRead);
    
20.   //----- Iterating the block table record
    
21.   AcDbBlockTableRecordIterator *pi;
    
22.   pr->newIterator (pi);
    
23.   while (!pi->done ())
    
24.   {
    
25.    pi->getEntity (pEnt, AcDb::kForRead);
    
26.    if (pEnt->isKindOf (AcDbMText::desc ()))
    
27.    {
    
28.     AcDbMText *pt = (AcDbMText *) pEnt;
    
29.     ACHAR *s = pt->contents ();
    
30.     acutPrintf (s);
    
31.     delete s;
    
32.    }
    
33.    pEnt->close();
    
34.    pi->step();
    
35.   }
    
36.   pr->close();

复制代码