ОФИЦИАЛЬНЫЙ ФОРУМ ГРУППЫ КОМПАНИЙ «ТЕХНОКОМ» - Проблема с выгрузкой треков в .kml?

ОФИЦИАЛЬНЫЙ ФОРУМ ГРУППЫ КОМПАНИЙ «ТЕХНОКОМ» (https://forum.tk-chel.ru/index.php)

- Система «АвтоГРАФ»: Программное обеспечение (https://forum.tk-chel.ru/forumdisplay.php?f=4)

- - Проблема с выгрузкой треков в .kml? (https://forum.tk-chel.ru/showthread.php?t=2444)

lostfriend88

08.11.2012 11:11

Проблема с выгрузкой треков в .kml?

Передо мной стоит задача выгрузки каждого трека в kml-файл.

Делаю следующее:

Код:

Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")

AG.WaitForInitializing

Dim num

num = 0

GroupsNum = AG.GroupsNum

For i = 1 To GroupsNum

    AG.GroupIndex = i

    CarsNum = AG.GroupCarsNum

    For j = 1 To CarsNum

        AG.CarIndex = j

        Dim date1

        Dim date2

 date1 = #11/01/2012 00:00:00#

 date2 = Now() 

 

        AG.ComputingTimeout = 100

   AG.WaitForComputing AG.GroupFileName, AG.CarDevice, date1, date2, "GSM", 1

        TripsNum = AG.TripsNum           

        For k = 1 To TripsNum

            AG.TripIndex = k

     Dim name

     name = num & ".kml"

            AG.ExportTrackToFile name, 1, "", "", 1, 0, -1, 0, 1, 1

     num = num + 1

        Next  

    Next 

Next

Однако ничего не происходит.
Быть может, не те параметры в ExportTrackToFile?

storm

08.11.2012 11:31

Цитата:

Сообщение от lostfriend88 (Сообщение 42199)

Однако ничего не происходит.

для начала посмотрите - при вызове функции WaitForComputing программа АвтоГРАФ должна перелючаться на выбранное транспортное средство и период должен выставиться с 11 января по текущую дату и рассчитаться рейсы
происходит ли расчет рейсов у вас?

storm

08.11.2012 11:33

посмотрел у себя, вобщем АвтоГРАФ принимает дату и время в формате
dd.mm.yyyy hh:nn:ss и по-моему только в таком виде, так что задайте такой формат и проверьте еще раз

lostfriend88

08.11.2012 11:42

поменяла даты на такие:

Код:

date1 = "01.11.2012 00:00:00"

 date2 = "08.11.2012 00:00:00"

файлы не создаются. ведь я правильно понимаю, они должны создаваться в корневой папке автографа?

между ТС переключается все, на рейсы тоже бьется. всю нужную информацию удается вытянуть точно таким же макаром. а вот kml не создаются.

подозреваю, дело в чем-то другом.

storm

08.11.2012 11:55

попробуйте задать полный путь к файлу, типа того
name = "C:\" & num & ".kml"

programmer

08.11.2012 11:56

Пример из "Пример для MS Excel.xls":

Private Sub ExportTrackButton_Click()
Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")

AG.TripIndex = Cells(7, 2)
AG.ExportTrackToFile AG.WorkDirectory + "\" + Cells(32, 2), 1, "", "", 0, 0, -1, 0, 0, 0

End Sub

lostfriend88

09.11.2012 03:04

storm, спасибо большое, Ваш вариант сработал. указала полный путь до папки, файлы создались. вчера полдня промучилась - не знала, что дело в такой ерунде.

programmer, когда воспользовалась Вашим вариантом с AG.WorkDirectory - комп самовольно ушел в перезагрузку.

SK	09.11.2012 14:39

Цитата:

Сообщение от lostfriend88 (Сообщение 42296)

programmer, когда воспользовалась Вашим вариантом с AG.WorkDirectory - комп самовольно ушел в перезагрузку.

WorkDirectory была за пределами матрицы...

Текущее время: 01:24. Часовой пояс GMT.