08.11.2012, 11:11
|
| »»» |
#1
|
Начинающий
Барнаул, Алтайский край
Регистрация: 22.10.2012
Сообщений: 25
|
Проблема с выгрузкой треков в .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?
|
|
|
|
08.11.2012, 11:31
|
| »»» |
#2
|
Опытный пользователь
Регистрация: 22.12.2010
Сообщений: 2,121
|
Сообщение от lostfriend88
|
Однако ничего не происходит.
|
для начала посмотрите - при вызове функции WaitForComputing программа АвтоГРАФ должна перелючаться на выбранное транспортное средство и период должен выставиться с 11 января по текущую дату и рассчитаться рейсы
происходит ли расчет рейсов у вас?
г. Челябинск
Ахмедьянов Алексей Адлерович
|
|
|
|
08.11.2012, 11:33
|
| »»» |
#3
|
Опытный пользователь
Регистрация: 22.12.2010
Сообщений: 2,121
|
посмотрел у себя, вобщем АвтоГРАФ принимает дату и время в формате
dd.mm.yyyy hh:nn:ss и по-моему только в таком виде, так что задайте такой формат и проверьте еще раз
г. Челябинск
Ахмедьянов Алексей Адлерович
|
|
|
|
08.11.2012, 11:42
|
| »»» |
#4
|
Начинающий
Барнаул, Алтайский край
Регистрация: 22.10.2012
Сообщений: 25
|
поменяла даты на такие:
Код:
|
date1 = "01.11.2012 00:00:00"
date2 = "08.11.2012 00:00:00" |
файлы не создаются. ведь я правильно понимаю, они должны создаваться в корневой папке автографа?
между ТС переключается все, на рейсы тоже бьется. всю нужную информацию удается вытянуть точно таким же макаром. а вот kml не создаются.
подозреваю, дело в чем-то другом.
|
|
|
|
08.11.2012, 11:55
|
| »»» |
#5
|
Опытный пользователь
Регистрация: 22.12.2010
Сообщений: 2,121
|
попробуйте задать полный путь к файлу, типа того
name = "C:\" & num & ".kml"
г. Челябинск
Ахмедьянов Алексей Адлерович
|
|
|
|
08.11.2012, 11:56
|
| »»» |
#6
|
ТехноКом
Регистрация: 17.12.2010
Сообщений: 2,865
|
Пример из "Пример для 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
ООО «ТехноКом», г. Челябинск
Макаров Константин Евгеньевич - Главный Программист ООО «ТехноКом» (диспетчерское ПО «АвтоГРАФ»)
|
|
|
|
09.11.2012, 03:04
|
| »»» |
#7
|
Начинающий
Барнаул, Алтайский край
Регистрация: 22.10.2012
Сообщений: 25
|
storm, спасибо большое, Ваш вариант сработал. указала полный путь до папки, файлы создались. вчера полдня промучилась - не знала, что дело в такой ерунде.
programmer, когда воспользовалась Вашим вариантом с AG.WorkDirectory - комп самовольно ушел в перезагрузку.
|
|
|
|
09.11.2012, 14:39
|
| »»» |
#8
|
Администратор
Регистрация: 27.05.2010
Сообщений: 29,983
|
Сообщение от lostfriend88
|
programmer, когда воспользовалась Вашим вариантом с AG.WorkDirectory - комп самовольно ушел в перезагрузку.
|
WorkDirectory была за пределами матрицы...
ООО «ТехноКом», г. Челябинск
Самцов Константин Юрьевич - зам. директора по коммерческой деятельности
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Текущее время: 01:48. Часовой пояс GMT.
|
|