ВОПРОСЫ АБСОЛЮТНЫХ НОВИЧКОВ

программа для загрузки и просмотра спутниковых снимков Земли, Луны, Марса предоставленных сервисами Google Maps и Космоснимки. Возможность работы с GPS приёмником.

Модератор: Tolik

neuda4nik
Новичок
Сообщения: 3
Зарегистрирован: 15 мар 2012, 17:03

Re: ВОПРОСЫ АБСОЛЮТНЫХ НОВИЧКОВ

Сообщение neuda4nik »

Приветствую!
Подскажите, можно ли как-то увидеть площадь выделенного полигона при создании карты?
Kesav
Соображающий
Сообщения: 96
Зарегистрирован: 13 сен 2012, 17:44
Откуда: Сыктывкар
Благодарил (а): 199 раз
Поблагодарили: 25 раз

Re: ВОПРОСЫ АБСОЛЮТНЫХ НОВИЧКОВ

Сообщение Kesav »

neuda4nik писал(а): как-то увидеть площадь выделенного полигона при создании карты?
Правой кнопкой мыши по полигону, выбрать - информация о метке.
neuda4nik
Новичок
Сообщения: 3
Зарегистрирован: 15 мар 2012, 17:03

Re: ВОПРОСЫ АБСОЛЮТНЫХ НОВИЧКОВ

Сообщение neuda4nik »

Kesav писал(а): Правой кнопкой мыши по полигону, выбрать - информация о метке.
Что-то я такого не наблюдаю.
sas.jpg
Gma
Советчик
Сообщения: 427
Зарегистрирован: 10 апр 2011, 23:10
Благодарил (а): 35 раз
Поблагодарили: 89 раз

Re: ВОПРОСЫ АБСОЛЮТНЫХ НОВИЧКОВ

Сообщение Gma »

neuda4nik писал(а):
Kesav писал(а):Правой кнопкой мыши по полигону, выбрать - информация о метке.
Что-то я такого не наблюдаю.
Сначала надо полигон-выделение сохранить как метку-полигон.
Аватара пользователя
DJ VK
Гуру
Сообщения: 1468
Зарегистрирован: 16 апр 2009, 13:57
Откуда: 8 км. от МКАД
Благодарил (а): 80 раз
Поблагодарили: 314 раз

Re: ВОПРОСЫ АБСОЛЮТНЫХ НОВИЧКОВ

Сообщение DJ VK »

neuda4nik писал(а):
Kesav писал(а): Правой кнопкой мыши по полигону, выбрать - информация о метке.
Что-то я такого не наблюдаю.
Телепат поведал нам Вопрос, который Вы очень-очень хотели спросить, но не осилили написать:
-Я выделил мышкой область на карте. Как узнать ее площадь?
И дал ответ на него:
-Нельзя никак. Нет в программе такой функции. Используйте полигон вместо выделения.

Правой кнопкой мыши по полигону. Где на скриншоте полигон? Ни пустое место карты, ни выделение (похожее на полигон, но не являющееся им по определению), а именно полигон созданный через конструктор полигонов или полученный из выделения методом описанным Gma?
Или учить матчасть - удел удачливых(успешных) людей?
2gether
Новичок
Сообщения: 1
Зарегистрирован: 12 авг 2017, 01:22

Re: ВОПРОСЫ АБСОЛЮТНЫХ НОВИЧКОВ

Сообщение 2gether »

Всем доброго времени, сегодня нашел данный сервис - очень крутой. Но есть проблема помогите пожалуйста, т.к. на форуме не нашел. Нужно по работе.
В 2GIS есть поиск по организациям, например, ввел "Магнит" - он выдал по всему городу ВСЕ торговые точки, выделяя их метками. Так вот мне нужно соединить эти метки с sasgis чтобы распечатать на А1 формате. Поможете?
Аватара пользователя
DJ VK
Гуру
Сообщения: 1468
Зарегистрирован: 16 апр 2009, 13:57
Откуда: 8 км. от МКАД
Благодарил (а): 80 раз
Поблагодарили: 314 раз

Re: ВОПРОСЫ АБСОЛЮТНЫХ НОВИЧКОВ

Сообщение DJ VK »

2gether писал(а):Всем доброго времени, сегодня нашел данный сервис - очень крутой. Но есть проблема помогите пожалуйста, т.к. на форуме не нашел. Нужно по работе.
В 2GIS есть поиск по организациям, например, ввел "Магнит" - он выдал по всему городу ВСЕ торговые точки, выделяя их метками. Так вот мне нужно соединить эти метки с sasgis чтобы распечатать на А1 формате. Поможете?
Поиск Магнитов в Москве

Код: Выделить всё

https://catalog.api.2gis.ru/2.0/catalog/marker/search?page=1&page_size=10000&q=магнит&region_id=32&viewpoint1=37.39608764648438%2C55.92920212464032&viewpoint2=37.83554077148438%2C55.57135741962033&locale=ru_RU&key=rutnpt3272
придет json

Код: Выделить всё

{"meta":{"code":200,"api_version":"2.0.1.6.378","issue_date":"20170812"},"result":{"total":821,"items":[{"is_advertising":false,"id":"70000001006770184_nmmik3G6G4B3G5GJHH1H7prlhqt547282B9CAAC95uvwp9G453C2I16J2IH1kuAe5p8p67G6G0JAA9ABHid","vital":1,"lon":37.931443928126,"match_type":1,"lat":55.970212293184,"geometry_id":"4504235282776886"},{"is_advertising":false,"id":"70000001007521368_nmmik3G6G4B3G5GJHH1H7prlhqt547282B9CAAC95uvwp9G453C2I16J2IH1kuAe5p8p67G6G0JAA9ABHid","vital":1,"lon":37.730448777638,"match_type":1,"lat":55.878141594446,"geometry_id":"4504235311888123"},{"is_advertising":false,"id":"70000001018394686_nmmik3G6G4B3G5GJHH1H7prlhqt547282B9CAAC95uvwp9G453C2I16J2IH1kuAe5p8p67G6G0JAA9ABHid","vital":1,"lon":37.509271929823,"match_type":1,"lat":55.625235429128,"geometry_id":"4504235282569643"},{"is_advertising":false,"id":"70000001021499487_nmmik3G6G4B3G5GJHH1H7prlhqt547282B9CAAC95uvwp9G453C2I16J2IH1kuAe5p8p67G6G0JAA9ABHid","vital":1,"lon":37.634550223909,"match_type":1,"lat":55.737817858673,"geometry_id":"4504235282698455"},{"is_advertising":false,"id":"70000001017288873_nmmik3G6G4B3G5GJHH1H7prlhqt547282B9CAAC95uvwp9G453C2I16J2IH1kuAe5p8p67G6G0JAA9ABHid","vital":1,"lon":37.513828764521,"match_type":1,"lat":55.752025557077,"geometry_id":"4504235282799746"},{"is_advertising":false,"id":"70000001017262570_nmmik3G6G4B3G5GJHH1H7prlhqt547282B9CAAC95uvwp9G453C2I16J2IH1kuAe5p8p67G6G0JAA9ABHid","vital":1,"lon":37.393970946632,"match_type":1,"lat":55.857527670777,"geometry_id":"4504235282961889"},{"is_advertising":false,"id":"70000001023679675_nmmik3G6G4B3G5GJHH1H7prlhqt547282B9CAAC95uvwp9G453C2I16J2IH1kuAe5p8p67G6G0JAA9ABHid","vital":1,"lon":37.368689815365,"match_type":1,"lat":55.82770097009,"geometry_id":"4504235283108162"},
Ставьте новую rad studio и пишите парсер. Вот фрагменты получения json по запросу и досупа к его полям, остальное гуглить или в личку.

Код: Выделить всё

Web = new TIdHTTP(NULL);
  Stream = new TMemoryStream;
WebAddr= "..................."
Web->Get(WebAddr, Stream);
Cnt = ParseFile(Stream);

//---------------------------------------------------------------------------
int __fastcall TFireThread::ParseFile(TMemoryStream* Stream)
{
	UnicodeString FileName = ChangeFileExt(Application->ExeName, ".tmp");
	Stream->SaveToFile(FileName);
	TByteDynArray FileBuf;
	TJSONObject* JsonObj;
	TJSONObject* FeatObj;
	TJSONArray* FeatColl;
	int i, Cnt;
	FileBuf = TEncoding::UTF8->GetBytes(TFile::ReadAllText(FileName));
	JsonObj = (TJSONObject*)TJSONObject::ParseJSONValue(FileBuf, 0);

	Cnt = 0;
	if(JsonObj != NULL)
	{

		UnicodeString Type = JsonObj->GetValue("type")->Value();
		if(Type == "FeatureCollection")
		{
			FeatColl = (TJSONArray*)JsonObj->GetValue("features");
			if((FeatColl == NULL) || (FeatColl->Count == 0)) Cnt = 0;
			else
			{
				for(i = 0 ; i < FeatColl->Count; i++)
				{
					FeatObj = (TJSONObject*)FeatColl->Items[i];
					if(FeatObj != NULL) ParseFeature(FeatObj);
				}
				Cnt = FeatColl->Count;
			}
		}
		if(Type == "Feature")
		{
			FeatObj = JsonObj;
			ParseFeature(FeatObj);
			Cnt = 1;
		}
		delete JsonObj;
	}
	return Cnt;
}

примеры кода создания kml и sml для импорта в планету возьмите тут.
viewtopic.php?f=2&t=3070&start=0#p45359
huntingbees
Новичок
Сообщения: 5
Зарегистрирован: 18 авг 2017, 14:50

Обновление меток из SQLite "на лету"

Сообщение huntingbees »

Решаю задачу автоматизации создания отметок в SAS.Планета

Мной реализован скрипт, который по данной паре координат создает с помощью SQL-запроса новую метку в базе SQLite, но на экране данная метка появляется только после перезапуска SAS.Планеты

Вопрос: каким образом можно заставить SAS.Планету обновить данные из базы без перезапуска?
Аватара пользователя
DJ VK
Гуру
Сообщения: 1468
Зарегистрирован: 16 апр 2009, 13:57
Откуда: 8 км. от МКАД
Благодарил (а): 80 раз
Поблагодарили: 314 раз

Re: Обновление меток из SQLite "на лету"

Сообщение DJ VK »

huntingbees писал(а): Вопрос: каким образом можно заставить SAS.Планету обновить данные из базы без перезапуска?
отключить и включить метки работает?
huntingbees
Новичок
Сообщения: 5
Зарегистрирован: 18 авг 2017, 14:50

Re: Обновление меток из SQLite "на лету"

Сообщение huntingbees »

DJ VK писал(а):
huntingbees писал(а): Вопрос: каким образом можно заставить SAS.Планету обновить данные из базы без перезапуска?
отключить и включить метки работает?
Ничего, что я пытался делать на интерфейсе, не помогло
Ответить

Вернуться в «SAS.Планета»