Аналитика 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/ |