Создание размерного стиля

Уважаемые коллеги!
Пытаюсь создать свой размерный стиль, и сделать его текущим. Стиль создается, но сделать текущим и, соответсвенно создать размер не удается. В чем может быть проблема?
Спасибо
void createtDimStyle()
{
AcDbDimStyleTable *pDimTable;
AcDbDimStyleTableRecord *pDimTblRecord;
AcDbObjectId recId, txtStyleId;
AcDbDatabase *pCurDb = NULL;
pCurDb = acdbHostApplicationServices()->workingDatabase();
pCurDb->getDimStyleTable(pDimTable, AcDb::kForRead);
// Check to see if the dimensions table exists
if(pDimTable->has("NewDimStyle")) {
    pDimTable->getAt("NewDimStyle", pDimTblRecord,   AcDb::kForRead, Adesk::kFalse);
//    recId = pDimTblRecord->objectId();
//    pCurDb->setDimstyle(recId);
}//if
else
{
   pDimTable->upgradeOpen();
   pDimTblRecord = new AcDbDimStyleTableRecord;
   pDimTblRecord->setDimscale(30.0);
   pDimTblRecord->setDimtxt(3.0);
   pDimTblRecord->setDimzin(8);
   pDimTblRecord->setDimblk("_CLOSEDFILLED");
   pDimTblRecord->setDimunit(2);
   pDimTblRecord->setName("NewDimStyle");
   //color set
   AcCmColor clrObj1, clrObj2;
   clrObj1.setColorIndex(16);
   clrObj2.setColorIndex(3);
   pDimTblRecord->setDimclrd(clrObj1);
   pDimTblRecord->setDimclre(clrObj1);
   pDimTblRecord->setDimclrt(clrObj2);
   pDimTable->add(pDimTblRecord);
}//else
recId = pDimTblRecord->objectId();
pCurDb->setDimstyle(recId);
pDimTblRecord->close();
pDimTable->close();
//for check only
struct resbuf rbCurDimStyle;
  acedGetVar("DIMSTYLE", &rbCurDimStyle);
}