Как получить имя блока?

// Set up a pointer to a block reference entity
AcDbBlockReference *pBlkRef = NULL ;

// Open a block reference entity for read
acdbOpenObject(pBlkRef, id, AcDb::kForRead) ;

// Create an object acBlkTblRecId for AcDbObjectId
AcDbObjectId acBlkTblRecId = AcDbObjectId::kNull ;

// Get Id of a block table record of a block reference entity
acBlkTblRecId = pBlkRef->blockTableRecord() ;

AcDbBlockTableRecord *pBlkTblRec ;
acdbOpenObject(pBlkTblRec, acBlkTblRecId, AcDb::kForRead ) ; 

ACHAR *pName ;

pBlkTblRec->getName(pName) ;

acutPrintf(_T("\nThe name of block : %s"), pName) ;

free(pName) ;

// Close an entity
pBlkTblRec->close() ;
pBlkRef->close() ;