Здравствуйте!
Необходимо создать объект окружность:
hSite := mapGetSiteIdent(form_main.mvMap.MapHandle,1);
hObj := mapCreateSiteObject(form_main.mvMap.MapHandle, hSite,KM_IDDOUBLE2, 0);
mapRegisterObject(hObj, 10000118, OL_SQUARE);
mapAppendPointPlane(hObj, form_main.MapObj1.Metric.Points.X, form_main.MapObj1.Metric.Points.Y, 0); // Добавляем единственную точку центра окружности
// Здесь нужно указать радиус окружности, не понятно как?
form_main.mvMap.Repaint;
Необходимо создать объект окружность:
hSite := mapGetSiteIdent(form_main.mvMap.MapHandle,1);
hObj := mapCreateSiteObject(form_main.mvMap.MapHandle, hSite,KM_IDDOUBLE2, 0);
mapRegisterObject(hObj, 10000118, OL_SQUARE);
mapAppendPointPlane(hObj, form_main.MapObj1.Metric.Points.X, form_main.MapObj1.Metric.Points.Y, 0); // Добавляем единственную точку центра окружности
// Здесь нужно указать радиус окружности, не понятно как?
form_main.mvMap.Repaint;