Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 28 мар 2024 20:06

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




Начать новую тему Ответить на тему  [ Сообщений: 741 ]  На страницу Пред.  1 ... 21, 22, 23, 24, 25, 26, 27 ... 50  След.
Автор Сообщение
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 31 май 2018 13:55 
Эксперт
Эксперт

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 78
Написал скрипт.
Цитата:
;СРЗД_ДО
$Papka=@ProgramFolder
;Переключение на закладку Правка
@SelectTab 2
;Перевірка наявності відкритої карти
$CountMap=@MapCount
@If $CountMap=0 then @Break Для роботи скрипту потрібен IN4
@Map.DeselectAll
@Map.SelectLayer ID9558070
@Map.ChangeSelectedLayer ID7397976
@Map.Copy
%Library.СРЗД_ДО
@Map.Paste
;Печать СРЗД_ДО
$Papka=@ProgramFolder
$PapkaDoc0=$Papka\Documents
;Сохранить
@Map.DeselectAll
@Map.SelectLayer ID7397976
$Obj=@Map.NextSelected
@If $Obj=0 Then @Break Виберiть ділянку
; параметри карти
$Prop=@Map.GetProperties
@Text.Text=$Prop
; перший запис - масштаб + назва файлу по шаблону користувача
$Line=@Text.Line[1]
; вирiзаємо частину параметру без масштабу
$Scale=@StringPart 1 $Line
$Param=@Calc P[NK] P[AS]_P[FI]_СРЗД_ДО
$Param=@DequoteText $Param
; формуємо назву файлу
$FName=@Map.Object[$Obj].CalculateFormula $Param
; запускаємо формування шаблону
@ExecuteDocument $TemplName.DMT
; вiкно дiалогу для збереження файлу
%SelectFile
$File=@Map.SaveToFile $PapkaDoc0\$FName.dmf
; зберiгаємо в DMF
@Map.SaveToFile $File
@Dialog.InfoBox 1000 У С П І Ш Н О З А В Е Р Ш Е Н О !
Файл | Предварительный просмотр
@CloseMap

@ActivateMap 1
@Map.ChangeSelectedLayer ID11424938
@Map.DeselectAll
@Map.SaveToFile

;
Помогите создать цикл по выделенным участкам.
Спасибо


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 01 июн 2018 00:26 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
Виталий писал(а):
Помогите создать цикл по выделенным участкам.

Цикл з вибраних (помiчених) елементiв формується наступним чином:
Код:
@Map.SelectLayer ID7397976
;
$Obj=0
%Loop
$Obj=@Map.NextSelected $Obj
@If $Obj=0 Then @Goto %Next
;
;
; тут щось робите (з окремим об'єктом $Obj з вибору)
;
;
@Goto %Loop
;
%Next
; тут вивiд результату, кiнець

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 01 июн 2018 10:22 
Эксперт
Эксперт

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 78
Руслан Пархуць писал(а):
Виталий писал(а):
Помогите создать цикл по выделенным участкам.

Цикл з вибраних (помiчених) елементiв формується наступним чином:
Код:
@Map.SelectLayer ID7397976
;
$Obj=0
%Loop
$Obj=@Map.NextSelected $Obj
@If $Obj=0 Then @Goto %Next
;
;
; тут щось робите (з окремим об'єктом $Obj з вибору)
;
;
@Goto %Loop
;
%Next
; тут вивiд результату, кiнець

Спасибо
Но мне нужно выполнение этого скрипта
Цитата:

@Map.DeselectAll
@Map.SelectLayer ID9558070
@Map.ChangeSelectedLayer ID7397976
@Map.Copy
%Library.СРЗД_ДО
@Map.Paste
;Печать СРЗД_ДО
$Papka=@ProgramFolder
$PapkaDoc0=$Papka\Documents
;Сохранить
@Map.DeselectAll
@Map.SelectLayer ID7397976
$Obj=@Map.NextSelected
@If $Obj=0 Then @Break Виберiть ділянку
; параметри карти
$Prop=@Map.GetProperties
@Text.Text=$Prop
; перший запис - масштаб + назва файлу по шаблону користувача
$Line=@Text.Line[1]
; вирiзаємо частину параметру без масштабу
$Scale=@StringPart 1 $Line
$Param=@Calc P[NK] P[AS]_P[FI]_СРЗД_ДО
$Param=@DequoteText $Param
; формуємо назву файлу
$FName=@Map.Object[$Obj].CalculateFormula $Param
; запускаємо формування шаблону
@ExecuteDocument $TemplName.DMT
; вiкно дiалогу для збереження файлу
%SelectFile
$File=@Map.SaveToFile $PapkaDoc0\$FName.dmf
; зберiгаємо в DMF
@Map.SaveToFile $File
@Dialog.InfoBox 1000 У С П І Ш Н О З А В Е Р Ш Е Н О !
Файл | Предварительный просмотр
@CloseMap

@ActivateMap 1
@Map.ChangeSelectedLayer ID11424938
@Map.DeselectAll
@Map.SaveToFile

для каждого участка отдельно
Я не такой спец , ка Вы. Поэтому и прошу помощи.
Спасибо.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 01 июн 2018 10:49 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
Виталий писал(а):
мне нужно выполнение этого скрипта для каждого участка отдельно
Я не такой спец , ка Вы. Поэтому и прошу помощи.
Спасибо.
Для цього скиньте свiй normal.dmt (з папки digitals), файл СРЗД_ДО.dsf (з папки Library), щоб можна було щось проаналiзувати. Дякую.

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 01 июн 2018 12:38 
Эксперт
Эксперт

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 78
Руслан Пархуць писал(а):
Виталий писал(а):
мне нужно выполнение этого скрипта для каждого участка отдельно
Я не такой спец , ка Вы. Поэтому и прошу помощи.
Спасибо.
Для цього скиньте свiй normal.dmt (з папки digitals), файл СРЗД_ДО.dsf (з папки Library), щоб можна було щось проаналiзувати. Дякую.


Я сейчас не на работе. Под рукой запрашиваемых, Вами файлов нет, но смысл такой:
Есть карта с участками.
Необходимо сделать выкопировки каждого участка в отдельности. но чтобы только один участок отображался на выкопировке необходимо:
Алгоритм такой.
1. Пометить участок
@Map.DeselectAll
@Map.SelectLayer ID9558070

но только один и всех участков
2. изменить слой данного участка (@Map.ChangeSelectedLayer ID7397976)
3. Пометить данный же участок
4. сделать выкопировку
%Library.СРЗД_ДО
5. Сохранить выкопировку
;Сохранить
@Map.DeselectAll
@Map.SelectLayer ID7397976
$Obj=@Map.NextSelected
@If $Obj=0 Then @Break Виберiть ділянку
; параметри карти
$Prop=@Map.GetProperties
@Text.Text=$Prop
; перший запис - масштаб + назва файлу по шаблону користувача
$Line=@Text.Line[1]
; вирiзаємо частину параметру без масштабу
$Scale=@StringPart 1 $Line
$Param=@Calc P[NK] P[AS]_P[FI]_СРЗД_ДО
$Param=@DequoteText $Param
; формуємо назву файлу
$FName=@Map.Object[$Obj].CalculateFormula $Param
; запускаємо формування шаблону
@ExecuteDocument $TemplName.DMT
; вiкно дiалогу для збереження файлу
%SelectFile
$File=@Map.SaveToFile $PapkaDoc0\$FName.dmf
; зберiгаємо в DMF
@Map.SaveToFile $File

6. Закрыть выкопировку
@CloseMap
7. Вернуться в перую карту
@ActivateMap 1
8. изменить слой участка которог сделана выкопировка
@Map.ChangeSelectedLayer ID11424938
9. Сохранить карту
@Map.SaveToFile
10. повторяем с пункта 1
и так пока все выкопировки не будут сделаны.
Спасибо.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 01 июн 2018 20:27 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
Виталий писал(а):
Руслан Пархуць писал(а):
Виталий писал(а):
мне нужно выполнение этого скрипта для каждого участка отдельно

тодi якось так, але потрiбно протестувати на "живому" ...

@Map.DeselectAll
@Map.SelectLayer ID9558070
;
$CMap=@ActivateMap
$Sel=@Map.Selected.List
@Text[1].Add $Sel
$Count=@Text[1].Count
@Map.DeselectAll
@If $Count=0 Then @Goto %End
%Loop
$SelObj=@Text.Line[$Count]
@Map.SelectObject $SelObj
;
;
@Map.ChangeSelectedLayer ID7397976
@Map.Copy
%Library.СРЗД_ДО
@Map.Paste
;Печать СРЗД_ДО
$Papka=@ProgramFolder
$PapkaDoc0=$Papka\Documents
;Сохранить
@Map.DeselectAll
@Map.SelectLayer ID7397976
$Obj=@Map.NextSelected
@If $Obj=0 Then @Break Виберiть ділянку
; параметри карти
$Prop=@Map.GetProperties
@Text.Text=$Prop
; перший запис - масштаб + назва файлу по шаблону користувача
$Line=@Text.Line[1]
; вирiзаємо частину параметру без масштабу
$Scale=@StringPart 1 $Line
$Param=@Calc P[NK] P[AS]_P[FI]_СРЗД_ДО
$Param=@DequoteText $Param
; формуємо назву файлу
$FName=@Map.Object[$Obj].CalculateFormula $Param
; запускаємо формування шаблону
@ExecuteDocument $TemplName.DMT
; вiкно дiалогу для збереження файлу
%SelectFile
$File=@Map.SaveToFile $PapkaDoc0\$FName.dmf
; зберiгаємо в DMF
@Map.SaveToFile $File
@Dialog.InfoBox 1000 У С П І Ш Н О З А В Е Р Ш Е Н О !
Файл | Предварительный просмотр
@CloseMap
;
@ActivateMap $CMap
@Map.ChangeSelectedLayer ID11424938 // це не знаю, що мiняє
@Map.DeselectObject $SelObj
$Count=$Count-1
@If $Count>0 Then @Goto %Loop
%End
;
@Map.DeselectAll
@Map.SaveToFile

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.


Последний раз редактировалось Руслан Пархуць 04 июн 2018 19:16, всего редактировалось 1 раз.

Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 03 июн 2018 10:32 
Эксперт
Эксперт

Зарегистрирован:
06 дек 2012 18:14
Сообщения: 55
Добрый день. Нужна помощь. Сделайте подробную и понятную пошаговою инструкцию как соединить .mdb базу с диджиталс, ПОЖАЛУЙСТА!!!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 04 июн 2018 08:38 
Эксперт
Эксперт

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 78
Руслан Пархуць писал(а):
Виталий писал(а):
Руслан Пархуць писал(а):
Виталий писал(а):
мне нужно выполнение этого скрипта для каждого участка отдельно

тодi якось так, але потрiбно протестувати на "живому" ...

@Map.DeselectAll
@Map.SelectLayer ID9558070
;
$CMap=@ActivateMap
$Sel=@Map.Selected.List
@Text[1].Add $Sel
$Count=@Text[1].Count
@Map.DeselectAll
@If $Count=0 Then @Goto %End
%Loop
$Obj=@Text.Line[$Count]
@Map.SelectObject $SelObj
;
;
@Map.ChangeSelectedLayer ID7397976
@Map.Copy
%Library.СРЗД_ДО
@Map.Paste
;Печать СРЗД_ДО
$Papka=@ProgramFolder
$PapkaDoc0=$Papka\Documents
;Сохранить
@Map.DeselectAll
@Map.SelectLayer ID7397976
$Obj=@Map.NextSelected
@If $Obj=0 Then @Break Виберiть ділянку
; параметри карти
$Prop=@Map.GetProperties
@Text.Text=$Prop
; перший запис - масштаб + назва файлу по шаблону користувача
$Line=@Text.Line[1]
; вирiзаємо частину параметру без масштабу
$Scale=@StringPart 1 $Line
$Param=@Calc P[NK] P[AS]_P[FI]_СРЗД_ДО
$Param=@DequoteText $Param
; формуємо назву файлу
$FName=@Map.Object[$Obj].CalculateFormula $Param
; запускаємо формування шаблону
@ExecuteDocument $TemplName.DMT
; вiкно дiалогу для збереження файлу
%SelectFile
$File=@Map.SaveToFile $PapkaDoc0\$FName.dmf
; зберiгаємо в DMF
@Map.SaveToFile $File
@Dialog.InfoBox 1000 У С П І Ш Н О З А В Е Р Ш Е Н О !
Файл | Предварительный просмотр
@CloseMap
;
@ActivateMap $CMap
@Map.ChangeSelectedLayer ID11424938 // це не знаю, що мiняє
@Map.DeselectObject $SelObj
$Count=$Count-1
@If $Count>0 Then @Goto %Loop
%End
;
@Map.DeselectAll
@Map.SaveToFile


Спасибо.
Попробую


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Нужна помощь
СообщениеДобавлено: 05 июл 2018 21:25 
Специалист
Специалист

Зарегистрирован:
02 ноя 2011 16:50
Сообщения: 35
Добрый вечер. Когда то был видео урок по выносу в натуру, а именно составление списка точек с номером, угол, длина если я не ошибаюсь то даже согласно базовым линиям, сейчас не могу найти, может подскажет где искать? Просто нужно вынести в натуру около 1000 точек в одном поле с нескольких опорных точек а сидеть и выписывать их вручную долго да и можно просто запутаться. Может быть можно как нибудь автоматизировать этот процесс?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 06 июл 2018 09:21 
Гуру
Гуру

Зарегистрирован:
27 июл 2011 08:37
Сообщения: 172
Откуда: м.Рівне
Дивлячись який тахеометр, можна спробувати закинуть csv.файл з координатами в тахеометр і виносити по координатам. Trimble, Nikon закидається без проблем, інші моделі не пробував. Виносить по довжинам і кутам - це минуле століття.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 06 июл 2018 12:14 
Специалист
Специалист

Зарегистрирован:
02 ноя 2011 16:50
Сообщения: 35
shyrko писал(а):
Дивлячись який тахеометр, можна спробувати закинуть csv.файл з координатами в тахеометр і виносити по координатам. Trimble, Nikon закидається без проблем, інші моделі не пробував. Виносить по довжинам і кутам - це минуле століття.

Згоден з вами, але не завжди в полі можна загнати координати до прибора. Питання все ще залишається актуальним. Цей відеоурок існував бо я ним користувався.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 06 июл 2018 13:47 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
CraziRoman писал(а):
Добрый вечер. Когда то был видео урок по выносу в натуру, а именно составление списка точек с номером, угол, длина если я не ошибаюсь то даже согласно базовым линиям, сейчас не могу найти, может подскажет где искать? Просто нужно вынести в натуру около 1000 точек в одном поле с нескольких опорных точек а сидеть и выписывать их вручную долго да и можно просто запутаться. Может быть можно как нибудь автоматизировать этот процесс?

Тот видеоурок потерялся в "облаке", переснял новый. Неявно используется тот факт, что порядок объектов в карте используется и при последовательной нумерации, и при создании отчета без сортировки.
schema.exe
P.S. По ссылке качается егзешник - ролик со встроенным плеером.

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 09 июл 2018 11:44 
Специалист
Специалист

Зарегистрирован:
25 окт 2007 14:47
Сообщения: 29
Откуда: наразі Україна, м.Жидачів
CraziRoman писал(а):
Добрый вечер. Когда то был видео урок по выносу в натуру, а именно составление списка точек с номером, угол, длина если я не ошибаюсь то даже согласно базовым линиям, сейчас не могу найти, может подскажет где искать? Просто нужно вынести в натуру около 1000 точек в одном поле с нескольких опорных точек а сидеть и выписывать их вручную долго да и можно просто запутаться. Может быть можно как нибудь автоматизировать этот процесс?

виношу по координатах, прилад nikon npl 332, завантажую через термінал вінди список з номерами точок та координатами, сторінки 132-133 мануала, процес виносу описаний на сторінці 65


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 12 июл 2018 19:17 
Специалист
Специалист

Зарегистрирован:
02 ноя 2011 16:50
Сообщения: 35
Dmitry_Zolotar писал(а):
CraziRoman писал(а):
Добрый вечер. Когда то был видео урок по выносу в натуру, а именно составление списка точек с номером, угол, длина если я не ошибаюсь то даже согласно базовым линиям, сейчас не могу найти, может подскажет где искать? Просто нужно вынести в натуру около 1000 точек в одном поле с нескольких опорных точек а сидеть и выписывать их вручную долго да и можно просто запутаться. Может быть можно как нибудь автоматизировать этот процесс?

Тот видеоурок потерялся в "облаке", переснял новый. Неявно используется тот факт, что порядок объектов в карте используется и при последовательной нумерации, и при создании отчета без сортировки.
schema.exe
P.S. По ссылке качается егзешник - ролик со встроенным плеером.

Велике дякую за допомогу.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 12 июл 2018 19:19 
Специалист
Специалист

Зарегистрирован:
02 ноя 2011 16:50
Сообщения: 35
Rostyslav писал(а):
CraziRoman писал(а):
Добрый вечер. Когда то был видео урок по выносу в натуру, а именно составление списка точек с номером, угол, длина если я не ошибаюсь то даже согласно базовым линиям, сейчас не могу найти, может подскажет где искать? Просто нужно вынести в натуру около 1000 точек в одном поле с нескольких опорных точек а сидеть и выписывать их вручную долго да и можно просто запутаться. Может быть можно как нибудь автоматизировать этот процесс?

виношу по координатах, прилад nikon npl 332, завантажую через термінал вінди список з номерами точок та координатами, сторінки 132-133 мануала, процес виносу описаний на сторінці 65

мені здається поляркою зручніше, хоч бачиш напрямок в якому треба пересуватися.


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 741 ]  На страницу Пред.  1 ... 21, 22, 23, 24, 25, 26, 27 ... 50  След.

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


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 103


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

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