Вышла новая версия [URL=http://gisinfo.ru/download?id=192]Конвертора крупномасштабных карт в формат DXF[/URL]. Если ошибка повториться, просьба выслать Ваши файлы настройки и пример карты на нашу почту.
![]() |
11.05.2016 09:17:45
Здравствуйте.
Для того, чтобы поворот объекта был как ГИС Карте, Вам необходимо написать свой обработчик с использованием функции RotateObject_EP. Что Вы подразумеваете под масштабированием объекта?
Изменено: |
|
|
28.04.2016 11:11:00
Здравствуйте!
Функция SelectSeekArea может работать с объектом, который не обязан реально существовать в карте. Достаточно наличие метрики. Поэтому рекомендуется убрать запись объекта (Commit). Метрика области поиска, которая передается в SelectSeekArea должна быть замкнута. Рекомендуется изменить Ваш код следующим образом: [CODE] if MapSelectRect1.Selection then begin // Создать пустой объект mo11.CreateObjectByExCode(0, KM_IDFLOAT2, 1000000002, OL_SQUARE); // Установить метрику созданного объекта MapSelectRect1.PPlace := PP_PLANE; MapPoint1.PlaceInp := PP_PLANE; MapPoint1.SetPoint(MapSelectRect1.SelectedRect.X1, MapSelectRect1.SelectedRect.Y1); mo11.Metric.Append(0,MapPoint1.point); MapPoint1.SetPoint(MapSelectRect1.SelectedRect.X1, MapSelectRect1.SelectedRect.Y2); mo11.Metric.Append(0,MapPoint1.point); MapPoint1.SetPoint(MapSelectRect1.SelectedRect.X2, MapSelectRect1.SelectedRect.Y2); mo11.Metric.Append(0,MapPoint1.point); MapPoint1.SetPoint(MapSelectRect1.SelectedRect.X2, MapSelectRect1.SelectedRect.Y1); mo11.Metric.Append(0,MapPoint1.point); // замкнуть контур MapPoint1.SetPoint(MapSelectRect1.SelectedRect.X1, MapSelectRect1.SelectedRect.Y1); mo11.Metric.Append(0,MapPoint1.point); //mo11.Commit; MapFindObject1.MapSelect.SiteNumber := 0; // основная карта MapFindObject1.MapSelect.UnselectSeekArea(-1); // сбросим область если была //if mo11.Key = 0 //then begin //showmessage('Объект не создан!'); //exit; // объекта карты нет //end; MapFindObject1.Active := false; MapFindObject1.FindPoint := false; // установим область по созданному ранее объекту MapFindObject1.MapSelect.SelectSeekArea(-1,mo11,0, 1, 2, 1, 0); //k:=mo11.Delete; //Assert(k>0);[/CODE] Пример в инсталляции исправим
Изменено: |
|
|
© КБ Панорама, 1991-2023 Регистрируясь или авторизуясь на форуме, Вы соглашаетесь с Политикой конфиденциальности |