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

KFF (Автор тем)

Поиск  Пользователи  Правила  Войти
Форум » Пользователи » KFF
Выбрать дату в календареВыбрать дату в календаре

Страницы: Пред. 1 ... 33 34 35 36 37 38 39 40 41 42 43 ... 48 След.
Экспорт данных в Шейп
 
Здравствуйте господа разработчики !
Вопрос такого порядка.
Как выгрузить в шейп, используя функцию "экспорт в shp" всю семантику объектов
в соотвествующий ему (shp) файл dbf.
Выгрузил пару объектов получил shp+dbf
Открыл dbf в SQL Explorere входящий в комплект Борланд, не заметил ни одной своей семантики (((
Спасибо!
Изменено: KFF (Фёдор) - 12.01.2011 16:48:30
Корректное создание топографической, многолистовой карты
 
Здравствуйте Господа разработчики !
Имеется код, по которому создаётся топографическая карта типа СК63:
[code] with ListReg do
 begin
   Length       := SizeOf(TListRegister);
   StrPCopy(Nomenclature, sN);
   StrPCopy(ListName,     sN);
   StrPCopy(FileName,     sN);
    {
   BSouthWestCoordinate := pi*N.Quad.B0/180;
   LSouthWestCoordinate := pi*N.Quad.L0/180;

   BNorthWestCoordinate := pi*N.Quad.B1/180;
   LNorthWestCoordinate := pi*N.Quad.L0/180;

   BNorthEastCoordinate := pi*N.Quad.B1/180;
   LNorthEastCoordinate := pi*N.Quad.L1/180;

   BSouthEastCoordinate := pi*N.Quad.B0/180;
   LSouthEastCoordinate := pi*N.Quad.L1/180;
       }
   P.X:= pi*N.Quad.B0/180;   P.Y:= pi*N.Quad.L0/180;
   R:=FCK63.GeoToPlane(P, N.Region,Zone);
   XSouthWest:=R.X;  YSouthWest:=R.Y;

   P.X:= pi*N.Quad.B1/180;   P.Y:= pi*N.Quad.L0/180;
   R:=FCK63.GeoToPlane(P, N.Region,Zone);
   XNorthEast:=R.X;  YNorthEast:=R.Y;

   P.X:= pi*N.Quad.B1/180;   P.Y:= pi*N.Quad.L1/180;
   R:=FCK63.GeoToPlane(P, N.Region,Zone);
   XNorthWest:=R.X;  YNorthWest:=R.Y;

   P.X:= pi*N.Quad.B0/180;   P.Y:= pi*N.Quad.L1/180;
   R:=FCK63.GeoToPlane(P, N.Region,Zone);
   XSouthEast:=R.X;  YSouthEast:=R.Y;
 end;

 FillChar(MapReg,SizeOf(TMapRegisterEx),0);
 with MapReg do
 begin
    Length  := SizeOf(TMapRegisterEx);        // Длина записи структуры
    StrPLCopy(PChar(@Name),_mapname.Text,32); // Имя района
    Scale  := 100000;                         // Знаменатель масштаба карты
    ProjectionFlag := 1;
    EllipsoideKind := EK_KRASOVSKY42;
    case  _HS.ItemIndex of
     0: HeightSystem  := HS_BALTIC;
     1: HeightSystem  := HS_NORMALNULL;
     2: HeightSystem  := HS_MARSEL;
     3: HeightSystem  := HS_USAKANADA;
     4: HeightSystem  := HS_BALTIC77;
     5: HeightSystem  := HS_OKHOTSK;
     6: HeightSystem  := HS_PEACEOCEAN;
    end;
    MaterialProjection := MP_GAUSSCONFORMAL_SYSTEM_63;
    CoordinateSystem   := CS_SYSTEM_63;
    PlaneUnit          := MU_METRE;
    HeightUnit         := MU_METRE;
    FrameKind          := FK_TRAPEZECURVE;
    MapType            := MT_CK_63;        // Обобщенный тип карты
    DeviceCapability   := -2;
    FirstMainParallel  := pi*Key.CM/180;  // осевой  1-ой зоны
    SecondMainParallel := pi*(Key.Z6+1)/60;   // ширина зоны
    AxisMeridian       := FirstMainParallel+SecondMainParallel*(xZone-1);
    MainPointParallel  := Key.dY/100;       // dY деленное на 100 000
    PoleLongitude      := Abs(Key.dX/10000); // dX  деленное на 10 000
  end;

  mapCalcTopographicSheet(Map, MapReg, ListReg);
  FMap:=mapCreateMapEx(PChar(FMapFile), PChar(FRscFile), MapReg, ListReg);
  if FMap<>0 then mapCloseData(FMap);
[/code]
-----------
При срабатывании кода, карты создаётся корректная, однолистовая с нормальными параметрами
Вопрос следующего плана:
Почему не срабатывает функция mapCalcTopographicSheet ?
Судя по диалогу параметров листа карты, подобного типа, основной метрикой паспорта листа являются
метры. Геодезический (градусы минут секунды) вычисляются при нажатии на соответсвующую кнопку.
Пробовал в коде разные комбинации :
1. ProjectionFlag=0 , координаты в метрах в листе ЕСТЬ в радианах НЕТ
2. ProjectionFlag=0 , координаты в метрах в листе НЕТ в радианах ЕСТЬ
3. ProjectionFlag=1 , координаты в метрах в листе ЕСТЬ в радианах НЕТ
4. ProjectionFlag=1 , координаты в метрах в листе НЕТ в радианах ЕСТЬ
5. ProjectionFlag=0 , координаты в метрах в листе ЕСТЬ в радианах ЕСТЬ
6. ProjectionFlag=1 , координаты в метрах в листе ЕСТЬ в радианах ЕСТЬ
Ни в одном случае, паспорт карты карты не был создан корректно.
Даже когда указывались координаты района работ в обеих системах координат (п.5 п.6)
Рамка номенклатурного листа в несколько десятков раз меньшая. При открытии в ГИС Карта Паспорта
Карты и нажатии в закладке "геодезические координаты листа" кнопки "Расчитать"
Координаты пересчитались вот приблизительно так : N43°15'00  E034°11'00  -> N43°15'00  E034°10'59.99
но рамка при этом уходила на запад, и становилась нормального размера несмотрря на то что с координатами порядок.
------------
Одним словом
Как правильно, програмно, создать номенклатурный лист карты 1963 года с корректной рамкой и паспортом карты ?
Загрузка файлов формата tif
 
Здравствуйте господа разработчики !
ПО идее, автором темы является Алексей (который Эксперт)
со своей цитатой [b]Как была проблема при выгрузке в TIFF[/b]
---------
Имеется почти тысяча растров формата TIFF c методом сжатия [b]FAX CCITT/3 G4[/b]
ГИС Карта 2011 почему-то не берёт такие карты.
Вопрос такого плана:
МОжно ли как то организовать обработку данного метода сжатия.
П.С. В качестве примера отсылаю вам на ящик [b]panorama@gisinfo.ru[/b]
пачку (архив) таких карт. Думаю штучек 10 хватит )))
Подключение растровой карты
 
Здравствуйте господа разработчики !
Заранее извиняюсь за файл огромного размера, но идеология создания подобных растровых карт, достояние КБ
---------
Просьба подключить вот эту растровую карту ([b][URL=http://depositfiles.com/files/unubvx0s7]СКАЧАТЬ 41.04 MB[/URL][/b]) к
этой векторной карте ([url=http://delphi-gis.ucoz.ua/Download/Shared/maps/MapSample3.ZIP]СКАЧАТЬ[/url])
Результирующий растр почему-то, белым стал [img]http://delphi-gis.ucoz.ua/smiles/ef.gif[/img]
Осевой мередиан, корректность значения, Установка осевого мередиана карты типа "Топографическая местная универсальная"
 
Здравствуйте господа разработчики!
Как выставить в этой [URL=http://delphi-gis.ucoz.ua/Download/Shared/maps/MapSample3.ZIP]карте[/URL] осевой мередиан 30°30' а не 30°29'60"
+ дополнительный вопрос.
Как выставить в карте подобного типа проекцию Гауса Крюгера (не УТМ)
на эллипсоиде Красовского. Одним словом чтобы координаты наши были родные ?
Изменено: KFF (Фёдор) - 03.01.2011 15:51:58
Создание математической основы (часть 2), правильность работы задачи вообще
 
Здравствуйте господа разработчики!
Начну с маленького отсупления.
Данную тему с номером 2, создал не зря, ибо в предыдущей идёт обсуждение вопроса
начальной точки отсчёта построения прямоугольной сети, а тут хотел бы получить ответ
по построению картографической сети.
Имеется некая карта в СК 42, формата map, с корректными параметрами и рамкой листа:
[IMG]http://delphi-gis.ucoz.ua/Images/ForForum/2011/grid0002.JPG[/IMG]
Пытаюсь нанести на неё выходы картографической сетки (для ориентации), нанёс:
[IMG]http://delphi-gis.ucoz.ua/Images/ForForum/2011/grid0001.JPG[/IMG]
------------
Вопросы
1. выходы должны наносится только на южной часте листа ?
2. Выходы должны быть лесенкой (я имею ввиду размер)
------------
ПОСЛЕСЛОВИЕ:
Я же говорил в предыдущей теме что задача работает неправильно и требует пересмотра !
Изменено: KFF - 01.01.2014 15:08:51
Построение топографической разграфки 1:2000
 
Здравствуйте господа разработчики !
Решил привязать куски растров 1:2000 к спутникововму снимку.
Изначально, нанёс топографическую разграфку 1:2000, она мне не подошла так как сформирована
по [URL=http://delphi-gis.ucoz.ua/Pages/WorkObj/GRID.mht]первой схеме [/URL] то есть лист 1:5000
по умолчанию делится на 9 частей (а-и).
Пошёл по другому пути, методом создания произвольной сетки с заданным размером сетки в секундах
(см ссылку выше схема 2) деление на 4 листа.
Для начала, попробовал создать сетку со стандартными параметрами, получилось :
[IMG]http://delphi-gis.ucoz.ua/Pages/WorkObj/grid2000.JPG[/IMG]
Вопрос, как создать произвольную топографическую разграфку, с указанием нужного мне числа секунд ?
Попытка импорта спутиниковых снимков потоком
 
Здравствуйте господа разработчики !
Имеется некая пользовательская карта.
К ней, мне необходимо подключить несколько растров (спутниковых снимков)
потоком через импорт. Для каждого спутникового снимка, имеется настроечный файл ОЗИ.
([URL=http://delphi-gis.ucoz.ua/Download/Shared/maps/KIEV.ZIP]СКАЧАТЬ КАРТУ СО СНИМКАМИ И НАСТРОЕЧНЫМИ ФАЙЛАМИ[/URL])
При импорте смнимков и положительном ответе на все вопросы, получаю вот такую картину
[img]http://delphi-gis.ucoz.ua/Images/ForForum/2011/jpg7800.JPG[/img]
Вопрос такого характера:
Это явление нормальное, или я что-то не так делаю ?
-----------
П.С. Карты взяты [URL=http://maps.vlasenko.net/satellite/kiev-space-0.75mpp/index.html]отсюда[/URL]
Изменено: KFF - 01.01.2014 14:32:19
Переключение задачи на новую карту
 
Здравствуйте господа разработчики !
Ситуация следующая:
Имеется задача PanTask в которой при нажатии кнопки 1 создаётся новая карта
через [B]aTask.MainMessage(AW_OPENDOC, Integer(PChar(FMapFile)),0);[/B]
Карта открывается в окне ГИС Карты, панель активна.
При нажатии на конпку 2 (закрытие панели)
[CODE]procedure TMyPanTask.MyCloseTask;
begin
 with MainPanel do
 if ActiveTaskCount=1 then
 begin
   MainMessage(AW_DELETEPANEL,Head.PanelID,0);
   Head.PanelID:= 0;
   Head.Active := false;
 end;
 inherited Quit;
end;
[/CODE]
Панель не закрывается, а лишь делается неактивной.
Если закрывать её с карты, с которой происходил пуск задачи закрываются обе панели.
Если закрыть карту с которой происходил пуск задачи, панель работает во вновь созданной карте и нормально закрывается
ВОПРОС:
Каким образом настроить задачу так, чтобы панель в новой карте, при закрытии закрывалась а не становилась [B]disabled[/B] ?
Каким образом
Создание номенклатурных листов не соотвествующих стандартам соц.стран, Создание карт не СССР-овских масштабов
 
Здравствуйте господа разработчики !
Отсутпление:
В поисках по глубинам интернета, "напоролся" на очень неплохой сервис с номенклатурными листами карт НАТО
([URL=http://www.canmaps.com/]ПОСМОТРЕТЬ НОМЕНКЛАТУРЫ НА КАНАДУ[/URL])
Скачал несколько номенклатур самого мелкого масштаба и попытался создать по ним карту в ГИС Панораме
Номенклатура
[IMG]http://delphi-gis.ucoz.ua//Images/ForForum/2010/082f_1_1.jpg[/IMG]
Попытка создать карту:
[IMG]http://delphi-gis.ucoz.ua//Images/ForForum/2010/NATO0001.JPG[/IMG]
Вопрос, а как вбить масштаб 1:250000 [IMG]http://delphi-gis.ucoz.ua/smiles/cf.gif[/IMG]
Изменено: KFF - 01.01.2014 13:14:10
Страницы: Пред. 1 ... 33 34 35 36 37 38 39 40 41 42 43 ... 48 След.



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

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