Добавление суффикса к размеру

void changeDimText()
{
 AcDbEntity *pEnt;
 AcDbObjectId id;
 AcGePoint3d ptPick;
 ads_name eName;
 if(acedEntSel ("Select a dimension: " , eName, asDblArray (ptPick)) != RTNORM )
   return;
 acdbGetObjectId(id, eName);
 acdbOpenAcDbEntity(pEnt, id, AcDb::kForWrite);
 AcDbDimension *pDim =AcDbDimension::cast (pEnt);
 if (pDim == NULL){
   pEnt->close ();
   return;
 }//if
 id =pDim->dimBlockId ();
 AcDbBlockTableRecord *pr;
 acdbOpenAcDbObject ((AcDbObject *&) pr, id, AcDb::kForWrite);
 AcDbBlockTableRecordIterator *pi;
 pr->newIterator(pi);
 while (!pi->done()) {
    pi->getEntity(pEnt, AcDb::kForRead);
    if(pEnt->isKindOf(AcDbMText::desc ())) {
       pEnt->upgradeOpen();
       AcDbMText *pt = (AcDbMText *)pEnt;
       char *s = pt->contents();
       acutPrintf("\n s = %s", s);
       char newVal[100];
       sprintf(newVal, "%s%s", s, "-08");
       pt->setContents(newVal);
       acutPrintf("\n newVal = %s", newVal);
       delete s;
    }//if
    pEnt->close();
    pi->step();
 }//while
  pDim->close();
  pDim->recomputeDimBlock(true);
  pr->close();
}