Отрисовка окружности, зная радиус, центром которой является объект

      [DllImport("gis32acces.dll", EntryPoint = "mapAppendPointPlane", CharSet = CharSet::Ansi, ExactSpelling = true, CallingConvention = CallingConvention::StdCall)]
      static long int mapAppendPointPlane(HOBJ info, double x, double y, long int subject);

                [DllImport("gis32acces.dll", EntryPoint = "mapObjectKey", CharSet = CharSet::Ansi, ExactSpelling = true, CallingConvention = CallingConvention::StdCall)]
      static long int mapObjectKey(HOBJ info);

      [DllImport("gis32acces.dll", EntryPoint = "mapCommitObject", CharSet = CharSet::Ansi, ExactSpelling = true, CallingConvention = CallingConvention::StdCall)]
      static long int mapCommitObject(HOBJ info);
//сигнатуры функций


                MapObj->Commit();
      MapObj->Repaint();//еще работа с другим объектом
      if (subStr2 == "2245")
      {
         long int centerObjectKey;
         centerObjectKey = MapObj->Key;
         long int radius = 7500;
         long int hCircle;
         hCircle  = MapObj->CreateObjectByExcode(1,//
            (int)axGisToolKit::TxMetricType::IDFLOAT2,//IDFLOAT2,
            Convert::ToInt64("2245"),//
            Convert::ToInt32("0"));
         //MapPoint->PlaceInp = axGisToolKit::TxPPLACE::PP_GEOWGS84;
      //   MapObj->Commit();
      //   MapObj->Repaint();
         for (int i = 0; i != 37; i++)
             {
               double k = System::Math::PI*i/36;
               mapAppendPointPlane(hCircle, mypoint->X + radius*System::Math::Sin(k), mypoint->Y + radius*System::Math::Cos(k), centerObjectKey);
             }
         long int KeyObject;
         KeyObject = mapObjectKey(hCircle);
         long int resCommit;
         resCommit = mapCommitObject(hCircle);
            // mapFreeObject(obj);
         long int mObjKey;
         mObjKey = MapObj->Key;