Для пользователей New Navitel появилась возможность, создавать самую полную базу точек спидкам из разных источников.
UP 24.04.2015 Написать то написал, а заменить файл забыл. Теперь точно заменил. :)
UP 23.04.2015 Обновил макрос! Исправил ошибку в конвертации, при объединение точек спидкам ограничение скорости. Вместо кода 101, макрос обрабатывал код 102 лежачий полицейский, поэтому появлялись дубли точек.
Пользователю Fobiem, выражаю огромную признательность за файлы спидкам для New Navitel, которые используют многие пользователи.
|
Изменения:
1. Если точка "Радарный комплекс" выключена, то эти точки предупреждений остаются за контролем скорости, и озвучиваются как Контроль скорости XX км/ч.
2. Теперь макрос анализирует дублирующие точки между Навител и Мапкам, и удаляет их (использован новый метод анализа). Если вокруг точки от Мапкам в радиусе 100 метров, стоит точка от Навител с таким же кодом, макрос удалит точку от Навител.
3. UP 21.04.2015 добавлена информация в окно об обработке, название текущего процесса.
Скорость анализа и обработки дублей увеличена в 100 раз. Преобразовать полную базу спидкам занимает около 10-20 минут.
Макрос можно скачать на странице FAQ.
UP. Обновление файлов спидкам Россия, Крым.
А где ссылка на скачивание? Искал, искал, но так и не нашёл...
ОтветитьУдалитьСкачал,обновил,все получилось. Вопрос: голосовой пакет Нью Таня оставляем старый,за 16.03.2015?
ОтветитьУдалитьВЕТА5 находиться в FAQе
ОтветитьУдалитьПопробовал сделать свой спидкам ,скачал файлы с маркам,заметил большое отличие от Вашего файла спидкам 4510 кб-мой 3040кб,скачивал рейтинг от 1,не могу разобраться -в чем такое большее различие окончательного файла.
ОтветитьУдалитьСкорее всего, не включены были все точки.
УдалитьСкачивал файлы как предложил маркам , первый файл (pockets) галочки стояли все,а для навитела были не все,завтра попробую вкл их.Сегодня попробовал с новым спидкамом,появилось много пешеходных переходов,некоторых нет на дороге(в этой точке есть две остановки друг перед другом,два таких встретилось) ,еще выскакивает на федеральной трассе м2 на некоторых участках скорость 80,непонятно конечно,ни одной населенного пункта -разрешено 90.
УдалитьСкачивать спидкам для навител со всеми точка, не обязательно. Из него используются только точки с кодом 4. Остальные удаляются сразу. Официальный спидкам Навитела скачивается макросом самостоятельно, автоматически, и уже из него берется информация о точках спидкама навитела. Если, при объединение точек мапкам и навител остаются дубли, давайте ссылки на эти точки, будем разбираться.
УдалитьЯ точки в навигаторе только умею добавлять ,(долгота/широта),а тут как дать ссылку на эти точки?
Удалитьзайдите на мапкам там найдите точку и ссылку на нее выложите.
УдалитьВсе понял,но не все точки там есть.например про пешеходные переходы их там нет,где сегодня навигатор стал их озвучивать.
УдалитьМакрос специально сделан, чтобы иметь возможность объединять официальный спидкам и неофициальный, от пользователей которые сами составляют базу. Точки пешеходных переходов добавлены значит из официального спидкама если раньше у вас их не было. У вас теперь есть выбор, какие точки оставить. + в макросе заложен анализ и удаление дублей точек, если они есть и официальном, и в неофициальном спидкам.
УдалитьЭтот комментарий был удален автором.
УдалитьПри крнвертации выскаивает ошибка рун тайм error 13
ОтветитьУдалитьДебаг что выдает?
Удалитьвот на это ссылается
Удалитьkm1 = (Sheets("compare_SM").Cells(m, 2)) - 0.0008983
ОС русская? И еще, наведите курсор на переменную m. Немного выше. Должно появится на желтом фоне число. Далее на странице Compare_SM посмотрите в строке m значения координат точки. Десятичный разделитель запятая?
УдалитьОС Русская, с бета 4 было все нормально. вот весь этот блок
УдалитьFor m = 3 To comm
km1 = (Sheets("compare_SM").Cells(m, 2)) - 0.0008983
km2 = 0.0008983 + (Sheets("compare_SM").Cells(m, 2))
kn1 = (Sheets("compare_SM").Cells(m, 3)) - 0.0008983
kn2 = 0.0008983 + (Sheets("compare_SM").Cells(m, 3))
Строки с m не нашел у меня эти строки: del X Y 100 125 DirType Direction
В первой строке вместо запятой стоит точка. Не знаю, что за баг с Excel, он иногда оставляет десятичным разделителем точку вместо запятой. Поэтому расчет останавливается. Буду думать как это можно побороть.
УдалитьТо есть координаты с точкой, должны быть с запятой.
УдалитьПроверил с вашими исходными файлами, ошибки не появляется.
УдалитьПроверил с бетта 4 все прошло на ура, без ошибок
УдалитьВсе правильно, в 4 бете нет проверки на дубли, а соответственно и вычислений. Не могу воспроизвести ошибку, для её устранения.
Удалитьа если попробывать не отмечать в поле навител галками ограниыение скорости и т.д., то ошибка выскакивает но файл создается
УдалитьОбновил макрос. Добавил двойную замену точки на запятую, из-за чего появляется ошибка. Проверяйте.
УдалитьСпасибо, сейчас проверим
УдалитьДа все теперь без ошибок все создалось, единственное стало дольше обрабатывать все действия
УдалитьПри обработке вылазиет вот такое сообщение:
ОтветитьУдалить"Run-time error 1004 Для предотвращения потери данных Excel не позволяет переместить непустые ячейки за пределы листа. выберите другое расположение для вставки новых ячеек или удалите данные, находящиеся на краю листа. если в ячейках, перемещаемых за пределы листа, нет данных, можно изменить набор ячеек, которые считаются не пустыми".
Нажимаешь End окно закрывается.
Нажимаешь Debug выходит окно Microsoft Visual Basic for Applications
ТЕКСТ ИЗ ОКНА
Sub NN_ADD_Shablon()
'
' NN_ADD_Shablon Макрос
' Переносим точки шаблона
'
'
Sheets("Shablon").Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Range("A1:J70").Select
Selection.Copy
Sheets("PocketGis").Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Insert Shift:=xlDown И ВЫДЕЛЯЕТ ЭТУ СТРОКУ
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
' добавляем del к 2 нижним строкам
ActiveCell.Columns("A:A").EntireColumn.Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$99999").AutoFilter Field:=1, Criteria1:="=*/*", _
Operator:=xlAnd
ActiveCell.Select
ActiveCell.FormulaR1C1 = "del"
ActiveCell.Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
Selection.AutoFilter
End Sub
Нужно больше данных для выявления ошибки.
УдалитьКакие исходный файлы, какие в них есть точки? Что выделено когда нажимаете дебаг?
ОтветитьУдалитьисходные файлы спидкам с вашего сайта и старый спидкам с точками по моему городу которых нет в мапкам.
УдалитьSelection.Insert Shift:=xlDown ВЫДЕЛЯЕТ ЭТУ СТРОКУ
Ваши файлы не подходят для обработки макросом. Для каких файлов сделан макрос, написано в 1 пункте.
УдалитьЭтот комментарий был удален автором.
УдалитьМожете отдельно выделить как-то макрос чтобы соединить два спидкама и убрать дубли. Один из файлов должен быть главным, а из второго взять остальное а которые уже есть в главном из второго удалить.
УдалитьЭто уже будет новый код макроса, который нужно писать с ноля.
УдалитьВ чём различие "полицейская засада, обгон и сплошная" и "полицейская засада, встречка"?
ОтветитьУдалитьВстречка - это же в любом случае ты пересечёшь сплошную линию, ну и просто так туда не полезешь, обгонять будешь)
Лучше что-то другое сюда повесить [5 (155) — полицейская засада, встречка]
И ещё сейчас идея появилась по точкам "камера, встроенная в светофор".
ОтветитьУдалитьДумаю её можно спокойно заменить на "статическая камера", а точку подумать под что другое можно использовать. Можно будет и картинку тоже использовать другую.
Я думаю тут всем неважно где она висит, на столбе, дереве, светофоре, рекламном щите, главное что она висит и работает.
Класс. На неё модно повесить всю автодорию и освободится сразу 9 точек.
УдалитьНет, нельзя её использовать. Этой точки даже нет в cfg файле голосового пакета.
Удалитьда, печально, посмотрел, в навителе 2, 3, 4, 5 тип предупреждений проговариваются как один - стандартная камера (1),
Удалитьтолько значки для них в программе разные
Какие-то странные стали обновленные спидкам (от 20.04.2015). От поселка Киевский до поселка Рассудово (Московская область), есть две точки предупреждений которые сдвинуты с дороги в лес и никак не озвучиваются. Также на Минской ул. в сторону Мичуринского проспекта, раньше озвучивалась как 'радарный комплекс фиксации нарушений', а сейчас как 'ограничение скорости 60 км в час'. Это так и должно быть?
ОтветитьУдалитьНа mapcam.info от Киевского до Рассудово только две мобильных засады, которые стоят вдоль дороги.
УдалитьУ меня отображается всё нормально, никаких лишних точек нет.
Может быть какой то конфликт со стандартным навителовским speedcam?
Да, две точки засады. В прошлой версии спидкам скаченных отсюда, тоже было все нормально. А в этой версии, они оказались сдвинуты. Файл спидкама один, а в стандартном навителовском засад вроде бы, никогда и не было.
УдалитьДайте координаты точек.
Удалить1 точка - Широта: N55*26.375', долгота: E36*52.695'
Удалить2 точка - широта: N55*28.171', долгота: E36*55.653'
P.S вместо точек должен стоять градус, просто на клавиатуре на устройстве не позволяет вставить такой символ.
Точнее вместо звездочек должен стоять градус.
УдалитьТатьяна, обновил файл спидкам, откуда появлялись раньше полицейские засады, не понял. Сейчас их нет.
УдалитьТеперь все нормально. Спасибо Андрей.
УдалитьНу и для жителей Москвы,
ОтветитьУдалитьубирайте галочку с "Радарный комплекс фиксации нарушений", а то попадётесь на превышении скорости.
В Москве этот тип предупреждения не актуален!
По виду тех камер которые расположены на Минской улице, они фиксируют не только превышение, возможно еще за выключенные фары днем и т.п, так что " Радарный комплекс фиксации нарушений" считаю, что самое то.
УдалитьПолностью с Вами согласен,другу пришло письмо с подобной камеры с Воронежа то что он двигался на своем авто в дневное время без света.
УдалитьНЕ могу найти тип навигатора для PocketGIS на мапкаме.
ОтветитьУдалитьПомогите найти, плиз...
Пакет гис виден при карме больше 5 или по подписке.
Удалитьпонятно
Удалитьа в спидкам у вас что входит?
мапкам этот есть?
День добрый!
ОтветитьУдалитьВозможно ли с помощью макроса добавить только данные из мапкама для навитела без использования файла для покетГиса? Как я понял, покетгис дает данные для автодории, а у нас ее нет.
Нет, нельзя. С помощью ПокеГис получаются все точки, спидкам навител нужен только для конечных точек автодории.
УдалитьПоддержите идею на mapcam.info
ОтветитьУдалитьhttp://mapcam.reformal.ru/proj/mapcam?ia=804446
Андрей ,подскажи пожалуйста ,навителовский файл спидкам из навигатора нужно удалять из папки navitel или не надо,много раз пробовал делать свой спидкам и постоянно произноситься старая информация ,то скорость 80 где разрешено 90,то очень старая инфо по ограничении скорости ,дорогу отремонтировали 2 года уже ,а навигатор все ограничение 70 .
ОтветитьУдалитьСпидкам от навитела нужно удалить и поставить в настройках не обновлять. В макросе можно объединить точки спидкам и например убрать не нужные. На сайте мапкам, также можно добавить или понизить рейтинг точек.
Удалить