Аналитика

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

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




Начать новую тему Ответить на тему  [ Сообщений: 161 ]  На страницу Пред.  1 ... 7, 8, 9, 10, 11
Автор Сообщение
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 02 авг 2017 15:34 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1863
Откуда: Vinnitsa
Надішліть посилання на один з проблемних растрів нам на help@vingeo.com

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 10 авг 2017 13:21 
Участник
Участник

Зарегистрирован:
19 окт 2016 18:33
Сообщения: 4
Написав тиждень тому, але ніхто ніяк не відповів.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 12 авг 2017 02:05 
Эксперт
Эксперт

Зарегистрирован:
05 окт 2015 23:49
Сообщения: 61
thom yorke писал(а):
Написав тиждень тому, але ніхто ніяк не відповів.

Печалька... :(
Я двічі звертався електронкою 24 та 31 липня, - до цього дня поки немає повідомлення від розробників.
Можливо у віпустці :D
А можливо у них немає можливості переглянути пошту... Печалька... :(
Тоді потрібно іншими способами виходити на зв'язок.
Особисто мені вже не потрібно відповідати, питання вирішене але, як про це повідомить роробників ще не зняю.
Гадаю Вони поставляться з розумінням до моїх питань.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 13 авг 2017 23:05 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1863
Откуда: Vinnitsa
thom yorke писал(а):
Написав тиждень тому, але ніхто ніяк не відповів.

Вибачьте, з ситуацією розібрались і я забув відповісти.

Для проблемних растрів створіть World-файли за допомогою Models.exe-Архив-Экспорт(попередньо обрати діректорію з растрами та виділіти файли в середньому стовпчику). Перевірьте наявність World-файлів для усіх растрів. Видаліть елементи орієнтування з заголовків tif-файлів (кнопка Удалить в середньому стовпчику Models.exe-Архив). Все, можна запускати скрипт.

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 24 сен 2017 21:18 
Участник
Участник

Зарегистрирован:
24 сен 2017 15:24
Сообщения: 1
Скрипт для повороту усіх підписів виділених об'єктів вздовж виділеної лінії.
Можливо комусь знадобиться :)

Цитата:
$mapCount=@MapCount
@if ($mapCount=0) then @break Немає відкритих карт
;
; Set variables
;/////////////////////////////////////////////////////////////////////
;
$nextSelect=0
$cycleIndex=0
$directionObject=0
$selectCount=@Map.SelCount
;
@if ($selectCount<1) @break Необхідно виділити один або декілька об'єктів
;
; Run cycle 1
;/////////////////////////////////////////////////////////////////////
;
%RunCycle1
;
$cycleIndex=$cycleIndex+1
$nextSelect=@Map.NextSelected $nextSelect
$markedPoints=@Map.Object[$nextSelect].GetMarkedPointsCount
@if ($markedPoints>0) and ($directionObject>0) then @break Необхідно виділити лише одну лінію
@if ($markedPoints>0) and ($directionObject=0) then $directionObject=$nextSelect
@if ($cycleIndex<$selectCount) then @goto %RunCycle1
;
; Get direction object ot break
;/////////////////////////////////////////////////////////////////////
@if ($directionObject=0) then @break Необхідно виділити лінію, яка слугуватиме напрямком повороту підписів
;
; Get direction angle from object
;/////////////////////////////////////////////////////////////////////
;
$marked=0
$lineIndex=0
$cycleIndex=0
$pointCount=@Map.Object[$directionObject].Count
$pointCount=$pointCount-1
;
; Run cycle 2
;/////////////////////////////////////////////////////////////////////
%RunCycle2
;
$cycleIndex=$cycleIndex+1
$cycleIndexNext=$cycleIndex+1
;
$isMarked=@Map.Object[$directionObject].GetPointMarked $cycleIndex
$isNextMarked=@Map.Object[$directionObject].GetPointMarked $cycleIndexNext
;
@if ($isMarked=1) and ($isNextMarked=1) then $marked=$marked+1
@if ($isMarked=1) and ($isNextMarked=1) and ($lineIndex=0) then $lineIndex=$cycleIndex
;
@if ($cycleIndex<$pointCount) @goto %RunCycle2
;
; Check direction line for errors
;/////////////////////////////////////////////////////////////////////
;
@if ($marked<>1) then @break Необхідно виділити лише одну лінію
;
; Get direction angle
;/////////////////////////////////////////////////////////////////////
;
$angle=@Map.Object[$directionObject].LineAngle[$lineIndex]
$angle=@Calc Replace($angle,",",".")
$angle=-$angle*10+900
;
; Rotate labels
;/////////////////////////////////////////////////////////////////////
;
$nextSelect=0
$paramsCount=@Map.Parameters.Count
;
@if ($paramsCount=0) then @break
;
%Start:
;
$nextSelect=@Map.NextSelected $nextSelect
@If $nextSelect<=0 @Goto %Finish
;
$loopIndex=1
;
%NextParam
;
$caption=@Map.Object[$nextSelect].Caption[$loopIndex]
@if $caption= @Goto %NextCap
;
@Map.Object[$nextSelect].Caption[$loopIndex] * * * $angle
;
%NextCap:
;
$loopIndex=$loopIndex+1
@If $loopIndex<=$paramsCount @Goto %NextParam
@Goto %Start
;
%Finish:
@Window.Refresh


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 26 окт 2017 15:58 
Участник
Участник

Зарегистрирован:
17 май 2014 10:44
Сообщения: 2
Помогите пожалуйста. очень нужен скрипт для проверки несоответствия высот на пересечениях объектов. Нужно что бы точки разных объектов которые пересекаются между собой имели одинаковую высоту, но искать их в ручную нереально сложно. было бы не плохо их в отдельный список выводить для легкого нахождения на карте. Совмещение соседних тут не поможет. иногда одна высота имеет приоритет и нужно указывать ее как высоту для второго объекта пересекающий первый. а функция совместить с соседними делает это автоматом.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 26 окт 2017 18:00 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 181
Откуда: м.Львiв
quickvox писал(а):
Помогите пожалуйста. очень нужен скрипт для проверки несоответствия высот на пересечениях объектов. Нужно что бы точки разных объектов которые пересекаются между собой имели одинаковую высоту, но искать их в ручную нереально сложно. было бы не плохо их в отдельный список выводить для легкого нахождения на карте. Совмещение соседних тут не поможет. иногда одна высота имеет приоритет и нужно указывать ее как высоту для второго объекта пересекающий первый. а функция совместить с соседними делает это автоматом.

1. Можливо Вам допоможе кнопка "Показ центрiв" iз включеною опцiєю "Значення висот".
2. Скрипт робить пошук точок з рiзними висотами i формує в кiнцевому результатi масив з координатами точок перетину, висоти в яких рiзнi. Запис формується у форматi X Y Z ID. (Правда у скриптi застосована ф-цiя EditAlign, яка добавляє точки перетину мiж об'єктами. При потребi закоментуйте рядок з вказаною ф-цiєю )
Код:
$MapCount=@MapCount
@If $MapCount=0 Then @Break Не вiдкрито жодної карти
$SelCount=@Map.SelCount
@If $SelCount=0 Then @Break Не помiчено жодного об'єкту
$Count=$SelCount
$Buf=@Map.Selected.List
@ExecuteMenu EditAlign
@Map.DeselectAll
; масив помiчених об'єктiв
@Text.Text=$Buf
; масив точок перетину
@Text[1].Clear
; масив точок з рiзними висотами
@Text[2].Clear
; основний цикл
%CycleMain
$Obj=@Text.Line[$Count]
$PntCount=@Map.Object[$Obj].Count
$I=1
%CyclePoint
$Point=@Map.Object[$Obj].Point[$I]
@Text[1].Add $Point $Obj
$I=$I+1
@If $I<=$PntCount Then @Goto %CyclePoint
;
$Count=$Count-1
@If $Count>0 Then @Goto %CycleMain
; сортуємо список точок для перевiрки
@Text[1].Sort
$PntCount=@Text[1].Count
$I=1
%CycleList
$MPoint=@Text[1].Line[$I]
;$MPoint=%Library.ReplaceComma $MPoint
$MX=@StringPart 1 $MPoint
$MY=@StringPart 2 $MPoint
$MZ=@StringPart 3 $MPoint
$J=$I+1
%CycleIns
@If $J>$PntCount Then @Goto %NextPoint
$IPoint=@Text[1].Line[$J]
;$IPoint=%Library.ReplaceComma $IPoint
$IX=@StringPart 1 $IPoint
$IY=@StringPart 2 $IPoint
$IZ=@StringPart 3 $IPoint
@If ($MX=$IX) And ($MY=$IY) And ($MZ<>$IZ) Then @Goto %AddPoint
;
%NextPoint
$I=$I+1
@If $I<=$PntCount Then @Goto %CycleList
@Goto %PrintResult
%AddPoint
$EX=@Text[2].IndexOf $MPoint
@If $EX>0 Then @Goto %AddSecPoint
@Text[2].Add $MPoint
%AddSecPoint
$EX=@Text[2].IndexOf $IPoint
@If $EX>0 Then @Goto %ExitAddPoint
@Text[2].Add $IPoint
%ExitAddPoint
$J=$J+1
@Goto %CycleIns
;
%PrintResult
$Count=@Text[2].Count
$Buf=@Text[2].Text
@If $Count>0 Then @Dialog.Message $Buf
; очищення масиву
@Text[2].Clear
@Text[1].Clear
@Text.Clear
;
@Break


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 06 ноя 2017 16:17 
Участник
Участник

Зарегистрирован:
19 окт 2016 18:33
Сообщения: 4
Dmitry_Zolotar писал(а):
thom yorke писал(а):
Написав тиждень тому, але ніхто ніяк не відповів.

Вибачьте, з ситуацією розібрались і я забув відповісти.

Для проблемних растрів створіть World-файли за допомогою Models.exe-Архив-Экспорт(попередньо обрати діректорію з растрами та виділіти файли в середньому стовпчику). Перевірьте наявність World-файлів для усіх растрів. Видаліть елементи орієнтування з заголовків tif-файлів (кнопка Удалить в середньому стовпчику Models.exe-Архив). Все, можна запускати скрипт.


Знову застряг уже на першому кроці. Models на етапі експорту елементів орієнтування в .txt видає помилку "export error".


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 07 ноя 2017 11:33 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1863
Откуда: Vinnitsa
thom yorke писал(а):
Знову застряг уже на першому кроці. Models на етапі експорту елементів орієнтування в .txt видає помилку "export error".

Відкрийте цей растр в Ged.exe та надішліть інформацію(меню Растр-Свойства) про растр на help@vingeo.com.

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 15 ноя 2017 19:14 
Специалист
Специалист

Зарегистрирован:
14 сен 2007 19:22
Сообщения: 37
Здравствуйте!! Никто не подскажет каким образом средствами скрипта можно открыть определенный документ word и вставить туда переменные которые заранее определены в документе (DocVariable)???

Такая функция когда-то была в программке TCPScript, очень бы хотелось такого функционала и в наших родных скриптах.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 16 ноя 2017 11:00 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1863
Откуда: Vinnitsa
Dix писал(а):
Здравствуйте!! Никто не подскажет каким образом средствами скрипта можно открыть определенный документ word и вставить туда переменные которые заранее определены в документе (DocVariable)???

Такая функция когда-то была в программке TCPScript, очень бы хотелось такого функционала и в наших родных скриптах.

Скрипт готовит некие данные и запускает Word с созданием документа на основе шаблона Digitals\Templates\TemplateName.dot
Код:
;путь к программе
$PP=@ProgramPath
;заполняем строками
@Text[1].Add DocVar1=Value1
@Text[1].Add DocVar2=Value2
@Text[1].Add DocVar3=Value3
@Text[1].Add DocVar4=Value4
;Копируем в буфер
@Text[1].Copy
;или сохраняем во временный файл
@Text[1].Save $PP\tempdata.txt
;запускаем Ворд с шаблоном
@Run "c:\Program Files (x86)\Microsoft Office\OFFICE11\WINWORD.EXE" /t"$PP\Templates\TemplateName.dot"

В шаблоне TemplateName.dot необходимо добавить обработчик события создания документа

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


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 161 ]  На страницу Пред.  1 ... 7, 8, 9, 10, 11

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


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

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


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

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