Работа с 3D отображением

//--------------------------------------------------------------------------
// Изменение объекта на 3D-модели при изменении его характеристик на
// двумерной карте (после функции надо сделать перерисовку модели)
//   Вход:
//     changeinfo - адрес структура с описанием объекта и произведенной
//                  над ним операции
//   Возвращаемое значение: 0 - при ошибке, 1 - если все хорошо
//--------------------------------------------------------------------------
long _M3DIMP _M3DAPI m3dChangeObject(HMAP3D hModel, CHANGEINFO* changeinfo);

#include "m3dcom.h"
 
...
 
// Создать окно 3D-Навигатора
void MainForm1::Create3DNavigator()
{
  HMAP hMap = ui.DMapView1->GetMapHandle();
 
  CREATETASK3D parmtask3d;
  memset(&parmtask3d, 0, sizeof(CREATETASK3D));
  parmtask3d.Area = 1;
  parmtask3d.SelectFrame.X1 = 6171801.79;
  parmtask3d.SelectFrame.Y1 = 7407951.94;
  parmtask3d.SelectFrame.X2 = 6170266.08;
  parmtask3d.SelectFrame.Y2 = 7409409.57;
  parmtask3d.MoveAdjust = 1;
 
  TASKPARMEX tparmex;
  memset(&tparmex, 0, sizeof(TASKPARMEX));
 
  HTask3D = t3dOpen(hMap, &parmtask3d, &tparmex);
}
 
 
// Двигать объект при каждом вызове
void MainForm1::Move()
{
  HMAP hMap = ui.DMapView1->GetMapHandle();
 
  HOBJ info = mapCreateObject(hMap);
 
  mapSeekSiteObject(hMap, hMap, info, 16796119);
 
  if (info)
  {
      mapUpdatePointPlane(info, mapXPlane(info) + 10.0, 7408783.520, 1);
      mapCommitObject(info);
      ui.DMapView1->Repaint();
 
      CHANGEINFO chi;
      memset(&chi, 0, sizeof(CHANGEINFO));
      chi.hSite = hMap;
      chi.List = 1;
      chi.Key = 16796119;
      chi.Type = OO_UPDATE;
      t3dChangeObject(HTask3D, &chi);
  }
  mapFreeObject(info);
 
  return;
}