Аналитика
http://www.geosystema.net/forum/

Нужна помощь
http://www.geosystema.net/forum/viewtopic.php?f=1&t=2933
Страница 24 из 50

Автор:  Виталий [ 31 май 2018 13:55 ]
Заголовок сообщения:  Re: Нужна помощь

Написал скрипт.
Цитата:
;СРЗД_ДО
$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

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

Автор:  Руслан Пархуць [ 01 июн 2018 00:26 ]
Заголовок сообщения:  Re: Нужна помощь

Виталий писал(а):
Помогите создать цикл по выделенным участкам.

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

Автор:  Виталий [ 01 июн 2018 10:22 ]
Заголовок сообщения:  Re: Нужна помощь

Руслан Пархуць писал(а):
Виталий писал(а):
Помогите создать цикл по выделенным участкам.

Цикл з вибраних (пом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

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

Автор:  Руслан Пархуць [ 01 июн 2018 10:49 ]
Заголовок сообщения:  Re: Нужна помощь

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

Автор:  Виталий [ 01 июн 2018 12:38 ]
Заголовок сообщения:  Re: Нужна помощь

Руслан Пархуць писал(а):
Виталий писал(а):
мне нужно выполнение этого скрипта для каждого участка отдельно
Я не такой спец , ка Вы. Поэтому и прошу помощи.
Спасибо.
Для цього скиньте св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
и так пока все выкопировки не будут сделаны.
Спасибо.

Автор:  Руслан Пархуць [ 01 июн 2018 20:27 ]
Заголовок сообщения:  Re: Нужна помощь

Виталий писал(а):
Руслан Пархуць писал(а):
Виталий писал(а):
мне нужно выполнение этого скрипта для каждого участка отдельно

тод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

Автор:  faram [ 03 июн 2018 10:32 ]
Заголовок сообщения:  Re: Нужна помощь

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

Автор:  Виталий [ 04 июн 2018 08:38 ]
Заголовок сообщения:  Re: Нужна помощь

Руслан Пархуць писал(а):
Виталий писал(а):
Руслан Пархуць писал(а):
Виталий писал(а):
мне нужно выполнение этого скрипта для каждого участка отдельно

тод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


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

Автор:  CraziRoman [ 05 июл 2018 21:25 ]
Заголовок сообщения:  Нужна помощь

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

Автор:  shyrko [ 06 июл 2018 09:21 ]
Заголовок сообщения:  Re: Нужна помощь

Дивлячись який тахеометр, можна спробувати закинуть csv.файл з координатами в тахеометр і виносити по координатам. Trimble, Nikon закидається без проблем, інші моделі не пробував. Виносить по довжинам і кутам - це минуле століття.

Автор:  CraziRoman [ 06 июл 2018 12:14 ]
Заголовок сообщения:  Re: Нужна помощь

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

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

Автор:  Dmitry_Zolotar [ 06 июл 2018 13:47 ]
Заголовок сообщения:  Re: Нужна помощь

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

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

Автор:  Rostyslav [ 09 июл 2018 11:44 ]
Заголовок сообщения:  Re: Нужна помощь

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

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

Автор:  CraziRoman [ 12 июл 2018 19:17 ]
Заголовок сообщения:  Re: Нужна помощь

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

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

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

Автор:  CraziRoman [ 12 июл 2018 19:19 ]
Заголовок сообщения:  Re: Нужна помощь

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

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

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

Страница 24 из 50 Часовой пояс: UTC + 2 часа
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/