На главную... Продукты | Технологии | Классификаторы | Проекты | Скачать | Цены| Форум | Статьи | Обучение | Контакты

Как создать объект окружность

Поиск  Пользователи  Правила  Войти
Форум » Настольные приложения » GIS ToolKit, GIS ToolKit Active, ГИС Конструктор для Windows
Страницы: 1
RSS
Как создать объект окружность, Как создать объект окружность
 
Здравствуйте!

Необходимо создать объект окружность:

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;
 
Вы можете самостоятельно определить метрику окружности, вычислив координаты точек на ней с определенным шагом (например, через каждый градус - 360 точек) - через уравнение окружности.
Либо воспользоваться функцией mapCreateArc
пример:
Код
hObj := mapCreateSiteObject(form_main.mvMap.MapHandle, hSite,KM_IDDOUBLE2, 0);
if (hObj)
{
   mapRegisterObject(hObj, [Код], LOCAL_SQUARE);
   DOUBLEPOINT pCenter = {центр_X, центр_Y};
   DOUBLEPOINT point1   = {центр_X - [Радиус], центр_Y}; // любая точка на окружности
   mapCreateArc(hSite, hObj, &point1, &pCenter, &point1, [Радиус]);
   mapCommitObject(hObj);
   mapFreeObject(hObj);
   hObj = NULL;
}
Страницы: 1
Читают тему (гостей: 1)



© КБ Панорама, 1991-2024

Регистрируясь или авторизуясь на форуме, Вы соглашаетесь с Политикой конфиденциальности