Как перевести пример с VBA на С++?

//  Функция добавления примитива в базу чертежа
Acad::ErrorStatus postToDb(AcDbEntity* ent, AcDbObjectId& objId, const char *blkname = ACDB_MODEL_SPACE);
// Недокументированная функция для регенерации активного чертежа
void ads_regen(void);
//---------------------------------
// Обработчик команды AddHatch
//---------------------------------
void AddHatch(void)
{
  Acad::ErrorStatus es;
  AcDbHatch* pHatch = new AcDbHatch();
  // Установим нормаль штриховки
  AcGeVector3d normal(0.0, 0.0, 1.0);
  pHatch->setNormal(normal);
  // Установим уровень штриховки
  pHatch->setElevation(0.0);
  // Установим шаблон штриховки
  pHatch->setPattern(AcDbHatch::kPreDefined, "ANSI31");
  // Установим ассоциативность
  pHatch->setAssociative(Adesk::kTrue);
  // Создадим окружность
  AcDbCircle *circle = new AcDbCircle();
  AcGePoint3d cenPt(3.0,3.0,0.0);
  circle->setNormal(normal);
  circle->setCenter(cenPt);
  circle->setRadius(1.0);
  AcDbObjectId cirId;
  // Внесем окружность в пространство модели активного чертежа
  postToDb(circle, cirId);
  AcDbObjectIdArray dbObjIds;
  dbObjIds.setLogicalLength(0);
  dbObjIds.append(cirId);
  pHatch->appendLoop(AcDbHatch::kExternal, dbObjIds);
  // Обработка контуров штриховки
  pHatch->evaluateHatch();
  AcDbObjectId hatchId;
  // Внесем штриховку в пространство модели активного чертежа
  postToDb(pHatch, hatchId);
  // Добавим ассоциативность к окружности
  {
    AcDbObjectPointer<AcDbEntity> pEnt(cirId,AcDb::kForWrite);
    if ((es = pEnt.openStatus()) != Acad::eOk) {
      acutPrintf("\nError open circle for write: %s",acadErrorStatusText(es));
      return;
    }
    pEnt->addPersistentReactor(hatchId);
  }
  // Можно выполнить и регенерацию, хотя это необязательно
  ads_regen();
}
//-----------------------------------------------
//  Функция добавления примитива в базу чертежа
//-----------------------------------------------
Acad::ErrorStatus postToDb(AcDbEntity* ent, AcDbObjectId& objId, const char *blkname)
{
  Acad::ErrorStatus es;
  AcDbBlockTable* pBlockTable;
  AcDbBlockTableRecord* pSpaceRecord;
  if (ent==NULL) return Acad::eNullObjectPointer;
  if (acdbHostApplicationServices()->workingDatabase()==NULL)
    return Acad::eNoDatabase;
  if ((es = acdbHostApplicationServices()->workingDatabase()->getBlockTable(pBlockTable, AcDb::kForRead))!=Acad::eOk)
    return es;
  if ((es =pBlockTable->getAt(blkname,pSpaceRecord,AcDb::kForWrite)) != Acad::eOk) {
    pBlockTable->close(); return es;
  }
  pBlockTable->close();
  if ((es = pSpaceRecord->appendAcDbEntity(objId, ent)) != Acad::eOk) {
    pSpaceRecord->close(); return es;
  }
  pSpaceRecord->close();
  return ent->close();
}

    COleSafeArray outerLoop;
    outerLoop.CreateOneDim(VT_DISPATCH,1,&circle);
    Hatch.AppendOuterLoop(outerLoop);
    Hatch.Evaluate();

Sub aaa()
 Dim hatchObj As AcadHatch
    Dim patternName As String
    Dim PatternType As Long
    Dim bAssociativity As Boolean
 Dim outerLoop(0 To 1) As AcadEntity
 Dim objCircle As AcadCircle
 Dim objLine As AcadLine
    patternName = "ANSI31"
    PatternType = 0
    bAssociativity = True
    Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)
    Dim center(0 To 2) As Double
    Dim p1(0 To 2) As Double
    Dim p2(0 To 2) As Double
    Dim radius As Double
    p1(0) = 5: p1(1) = 30: p1(2) = 0
    p2(0) = 55: p2(1) = 30: p2(2) = 0
    center(0) = 30: center(1) = 30: center(2) = 0
    radius = 20
    Set objCircle = ThisDrawing.ModelSpace.AddCircle(center, radius)
    Set objLine = ThisDrawing.ModelSpace.AddLine(p1, p2)
    Set outerLoop(0) = [b]objCircle[/b]
    Set outerLoop(1) = [b]objLine[/b]
    hatchObj.AppendOuterLoop (outerLoop)
    hatchObj.Evaluate
    ThisDrawing.Regen True
End Sub

    double o1[]={95,100,0};
    double o2[]={205,100,0};
    COleSafeArray sao1,sao2;
    sao1.CreateOneDim(VT_R8,3,o1);
    sao2.CreateOneDim(VT_R8,3,o2);
    IAcadLine oLine;
    oLine = modsp.AddLine(sao1,sao2);
    double Dkar = 40;
    double Lkar = 10;
    double l = 2;
    double n = 60;
    double Pkar[][3] =
    {
        {100,100,0},
        {100,100+Dkar/2,0},
        {100+Lkar,100+Dkar/2,0},
        {100+Lkar,100,0}
    };
    IAcadPolyline poly;
    COleSafeArray saPkar;
    saPkar.CreateOneDim(VT_R8,sizeof(Pkar)/sizeof(double),Pkar);
    poly = modsp.AddPolyline(saPkar);
    IAcadEntity *entity;
    entity = new IAcadEntity[2];
    entity[0] = (IAcadEntity)poly;
    entity[1] = (IAcadEntity)oLine;
    IAcadHatch hatch3;
    hatch3 = modsp.AddHatch(0,"ANSI31",TRUE);
    
    COleSafeArray outerLoop3;
    outerLoop3.CreateOneDim(VT_DISPATCH,2);
    for(long i =0; i<2; i++) outerLoop3.PutElement(&i,entity[i]);
    hatch3.AppendOuterLoop(outerLoop3);
    hatch3.Evaluate();

// Номер последнего примитива
long nLastEnt = modsp.get_Count()-1;
// Есть хоть один примитив в ModelSpace?
if (nlastEnt >=0) {
  // Это последний примитив
  IAcadEntity ent = modsp.Item(COleVariant(nLastEnt));
}