Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 18 ноя 2017 15:44

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ Сообщений: 7 ] 
Автор Сообщение
 Заголовок сообщения: Импорт файлов DAT в Digitals в Формате (NXYZC).
СообщениеДобавлено: 05 мар 2014 11:09 
Специалист
Специалист

Зарегистрирован:
10 фев 2013 19:20
Сообщения: 10
Помогите пожалуйста, есть ли возможность закинуть точки в Digitals, чтоб коди точек в файле DAT, или TxT присваивались например параметру "Шифр агрогрупи", или любому другому параметру?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Импорт файлов DAT в Digitals в Формате (NXYZC).
СообщениеДобавлено: 05 мар 2014 11:38 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1863
Откуда: Vinnitsa
Segga писал(а):
Помогите пожалуйста, есть ли возможность закинуть точки в Digitals, чтоб коди точек в файле DAT, или TxT присваивались например параметру "Шифр агрогрупи", или любому другому параметру?

Вот скрипт:
Код:
;Импорт пикетов с кодами
$FN=@Dialog.OpenFile *.txt
$FE=@FileExists $FN
@if $FE=0 then @Break Файл $FN не найден
@Text[1].Load $FN
$CN=@Text[1].Count
@if $CN<1 then @Break Пустой файл
popTemplate | <Чистый>
$L=@Map.Layers.Add 75000 3 Пикет
$PN=@Map.Parameters.Add 7500001 3 Номер
$PC=@Map.Parameters.Add 7500001 5 Код
@Map.Layers.SetValidParameters $L -2 $PN $PC
$I=0
%Loop
$I=$I+1
@if $I>$CN then @Goto %Exit
$S=@Text[1].Line[$I]
$Number=@StringPart 1 $S
$X=@StringPart 2 $S
$Y=@StringPart 3 $S
$Z=@StringPart 4 $S
$Code=@StringPart 5 $S
$Obj=@Map.NewObject $L
@Map.Object[$Obj].Point[1] $X $Y $Z
@Map.Object[$Obj].Parameter[$PN] $Number
@Map.Object[$Obj].Parameter[$PC] $Code
@Goto %Loop
%Exit
Пометить | Все
Карта | Помеченные в рамку
Снять пометку | Все
Вид | Показать все

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Импорт файлов DAT в Digitals в Формате (NXYZC).
СообщениеДобавлено: 05 мар 2014 12:01 
Специалист
Специалист

Зарегистрирован:
10 фев 2013 19:20
Сообщения: 10
не работает, вроде сбивает все в кучу, такое впечетление что не считывает координат. Напишите пожалуйста в каком формате должен быть TxT файл, и какой разделитель? Может по скрипту и можно понять что должно быть, но я просто в скриптах темный.....
Вот что у меня выходит:


Вложения:
555555.dmf [23.27 Кб]
Скачиваний: 125
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Импорт файлов DAT в Digitals в Формате (NXYZC).
СообщениеДобавлено: 05 мар 2014 12:16 
Гуру
Гуру

Зарегистрирован:
04 дек 2004 19:41
Сообщения: 1028
Откуда: г. Харьков
Segga писал(а):
Помогите пожалуйста, есть ли возможность закинуть точки в Digitals, чтоб коди точек в файле DAT, или TxT присваивались например параметру "Шифр агрогрупи", или любому другому параметру?

- Формат следующий:
Номер X Y Z Код (через пробел)
- В Сервис - Настройка -закладка Чтение - группа DAT введите код слоя, куда будут помещены точки и, через запятую, коды параметров для сохранения номера и кода.
Все, можно открывать.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Импорт файлов DAT в Digitals в Формате (NXYZC).
СообщениеДобавлено: 05 мар 2014 12:23 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1863
Откуда: Vinnitsa
формат как в названии темы, а разделитель столбцов - пробел

изменил для табулятора-разделителя:
Код:
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
;Импорт пикетов с кодами
$FN=@Dialog.OpenFile *.txt
$FE=@FileExists $FN
@if $FE=0 then @Break Файл $FN не найден
@Text[1].Load $FN
$CN=@Text[1].Count
@if $CN<1 then @Break Пустой файл
popTemplate | <Чистый>
$L=@Map.Layers.Add 75000 3 Пикет
$PN=@Map.Parameters.Add 7500001 3 Номер
$PC=@Map.Parameters.Add 7500001 5 Код
@Map.Layers.SetValidParameters $L -2 $PN $PC
$I=0
%Loop
$I=$I+1
@if $I>$CN then @Goto %Exit
$S=@Text[1].Line[$I]
$Number=@StringPart 1$Tab$S
$X=@StringPart 2$Tab$S
$Y=@StringPart 3$Tab$S
$Z=@StringPart 4$Tab$S
$Code=@StringPart 5$Tab$S
$Obj=@Map.NewObject $L
@Map.Object[$Obj].Point[1] $X $Y $Z
@Map.Object[$Obj].Parameter[$PN] $Number
@Map.Object[$Obj].Parameter[$PC] $Code
@Goto %Loop
%Exit
Пометить | Все
Карта | Помеченные в рамку
Снять пометку | Все
Вид | Показать все

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Импорт файлов DAT в Digitals в Формате (NXYZC).
СообщениеДобавлено: 05 мар 2014 16:11 
Специалист
Специалист

Зарегистрирован:
10 фев 2013 19:20
Сообщения: 10
Большое спасибо все вышло!!!!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Импорт файлов DAT в Digitals в Формате (NXYZC).
СообщениеДобавлено: 25 апр 2014 12:15 
Участник
Участник

Зарегистрирован:
15 июл 2009 22:21
Сообщения: 1
- В Сервис - Настройка -закладка Чтение - группа DAT введите код слоя, куда будут помещены точки и, через запятую, коды параметров для сохранения номера и кода.
Все, можно открывать.[/quote]

у меня не получилось, как это должно выглядеть? можно скриншот?


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 7 ] 

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot] и гости: 5


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB