Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 16 дек 2018 14:36

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




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

Зарегистрирован:
02 мар 2017 10:02
Сообщения: 15
Питання: що буде, якщо папку Digitals тимати на Dropbox (чи вплине це якось на програму і як)?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 17 мар 2018 20:13 
Эксперт
Эксперт

Зарегистрирован:
05 окт 2015 23:49
Сообщения: 62
-Ivan- писал(а):
Питання: що буде, якщо папку Digitals тимати на Dropbox (чи вплине це якось на програму і як)?

Це думки вголос?!!!

Якщо є така цікавість, то перевірте і напишіть про результат.
Або запитайте чи робив хтось таке?
А так, я повівся на лист про новий коментар у темі і тепер повинен перевіряти це?

Оскільки незнайшов як повністю видалити ЦЕЙ свій коментар, - пропоную пана "П.Вечеров (paul)" на посаду "бібліотекаря".


Последний раз редактировалось Ryvol 19 мар 2018 09:49, всего редактировалось 3 раз(а).

Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 19 мар 2018 08:17 
Гуру
Гуру

Зарегистрирован:
06 июл 2009 08:22
Сообщения: 416
Откуда: Старобельск
Уважаемые форумчане, неужели другого места нет для размещения подобных постов? Создайте тему в конце концов! Читайте внимательно название и не флудите нормальные темы пожалуйста. Считаю, что нам нужен библиотекарь.

_________________
П. Вечеров


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

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 262
Откуда: м.Львiв
Цитата:
Re: Запрос на функцию
Артем Сорокін писал(а):
Можно ли добавить пару кнопок (сохранить как все), по принципу проги DipEdit.

1. Скрипт для збереження вiдкритих карт в заданому форматi
Код:
$MapCnt=@MapCount
@If $MapCnt=0 then @Break
; масив повiдомлень
@Text[10].Clear
@Text[10].Add Select the target folder*Выберите целевую папку*Seleccione la carpeta de destino*Виберiть цiльову папку
@Text[10].Add Select the final file format*Выберите конечный формат файла*Seleccione el formato de archivo final*Виберiть кiнцевий формат файлу
; мова програми
$PPath=@ProgramPath
@Text.Load $PPath\Ged.ini
$Pos=@Text.IndexOf [FormOptions.cbxLanguage]
@If $Pos=0 Then $LngId=4
@If $Pos=0 Then @Goto %NextStep
$Pos=$Pos+1
$Line=@Text.Line[$Pos]
$SPart=@StringPart 1=$Line
@If $SPart<>ItemIndex Then $LngId=4
@If $SPart<>ItemIndex Then @Goto %NextStep
$LngId=@StringPart 2=$Line
@If $LngId=0 Then $LngId=4
;
%NextStep
$Msg=@Text[10].Line[1]
$Msg=@StringPart $LngId*$Msg
$DestPath=@Dialog.SelectFolder $Msg
@If $DestPath= Then @Goto %End
$Msg=@Text[10].Line[2]
$Msg=@StringPart $LngId*$Msg
;$Ext=@Dialog.Select $Msg|dmf|dxf|in4|xml
$Ext=@Dialog.ListSelect $Msg|dmf|dxf|in4|xml
%Cycle
@ActivateMap $MapCnt
$FName=@Map.ClearShortFilename
@Map.SaveToFile $DestPath\$FName.$Ext
;
$MapCnt=$MapCnt-1
@If $MapCnt>0 Then @Goto %Cycle
;
%End

2. Скрипт для закриття вiдкритих карт без збереження
Код:
; закрити всi карти без збереження
$MapCnt=@MapCount
@If $MapCnt=0 then @Break
; масив повiдомлень
@Text[10].Clear
@Text[10].Add Attention!|All open maps will be closed without saving!*Внимание!|Все открытые карты будут закрыты без сохранения!*?Atencion!|Todas las tarjetas abiertas se cerraran sin guardar!*Увага!|Всi вiдкритi карти будуть закритi без збереження!
; мова програми
$PPath=@ProgramPath
@Text.Load $PPath\Ged.ini
$Pos=@Text.IndexOf [FormOptions.cbxLanguage]
@If $Pos=0 Then $LngId=4
@If $Pos=0 Then @Goto %NextStep
$Pos=$Pos+1
$Line=@Text.Line[$Pos]
$SPart=@StringPart 1=$Line
@If $SPart<>ItemIndex Then $LngId=4
@If $SPart<>ItemIndex Then @Goto %NextStep
$LngId=@StringPart 2=$Line
@If $LngId=0 Then $LngId=4
;
%NextStep
;
$Count=@MapCount
@If $Count=0 @Break
$Msg=@Text[10].Line[1]
$Msg=@StringPart $LngId*$Msg
$DRes=@Dialog.Confirm $Msg
@If $DRes=0 @Break
$I=1
%Start
@CloseMap [1]
$I=$I+1
@if $I<=$Count Goto %Start
;

_________________
Простіше написати неправильну програму, ніж зрозуміти правильну


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 07 май 2018 15:13 
Эксперт
Эксперт

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 76
Dmitry_Zolotar писал(а):
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 необходимо добавить обработчик события создания документа


Подскажите пожалуйста. Как В шаблоне TemplateName.dot добавить обработчик. Спасибо


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

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1984
Откуда: Vinnitsa
Виталий писал(а):
Подскажите пожалуйста. Как В шаблоне TemplateName.dot добавить обработчик. Спасибо

Откройте редактор Visual Basic (в главном меню Word или Ribbon-интерфейсе выбрать Сервис-Макрос-Редактор Visual Basic)
В окне редактора выберите свой шаблон, затем в выпадающем списке Document, редактор сгенерирует заготовку обработчика события.
Вложение:
2018-05-08 11.40.46.png [58.6 Кб]
Скачиваний: 0

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


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

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 76
Dmitry_Zolotar писал(а):
Виталий писал(а):
Подскажите пожалуйста. Как В шаблоне TemplateName.dot добавить обработчик. Спасибо

Откройте редактор Visual Basic (в главном меню Word или Ribbon-интерфейсе выбрать Сервис-Макрос-Редактор Visual Basic)
В окне редактора выберите свой шаблон, затем в выпадающем списке Document, редактор сгенерирует заготовку обработчика события.
Вложение:
2018-05-08 11.40.46.png


Спасибо


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

Зарегистрирован:
04 май 2011 13:47
Сообщения: 41
Доброго дня! Можливо хтось знає як зробити експорт картинки з ДІГІ у формат PNG? Подаю 6-зем онлайн, а там зробили вимоги до формату. Раніше користувався скриптом, але тепер він не проходить, хоча в скрипті розширення ставлю PNG. допоможіть.


Вложения:
6-зем-Схема_Проект.dmt [107.01 Кб]
Скачиваний: 235
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 05 июн 2018 16:48 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1984
Откуда: Vinnitsa
sirenko_s_a писал(а):
Доброго дня! Можливо хтось знає як зробити експорт картинки з ДІГІ у формат PNG? Подаю 6-зем онлайн, а там зробили вимоги до формату. Раніше користувався скриптом, але тепер він не проходить, хоча в скрипті розширення ставлю PNG. допоможіть.

Є така утиліта BMP2PNG.exe, можна скористатись нею. В наступному прикладі ця утиліта розташована у Digitals\Utils
Код:
$FN=@Map.ClearFilename
$PP=@ProgramPath
@Map.SaveToTIF 300 24 $FN.bmp
@Run $PP\Utils\bmp2png.exe $FN.bmp
@Wait 3000
@Run del $FN.bmp
@Wait 3000
@Run del $FN.bmpw
@Wait 3000
@Run $FN.png


P.S. Можливо додамо до @Map.SaveToTIF підтримку PNG

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 06 июн 2018 09:28 
Специалист
Специалист

Зарегистрирован:
04 май 2011 13:47
Сообщения: 41
Dmitry_Zolotar писал(а):
P.S. Можливо додамо до @Map.SaveToTIF підтримку PNG

ОГРОМЄЗНОЄ Дякую!!!!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 25 июл 2018 15:24 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 262
Откуда: м.Львiв
Скрипт для отримання даних про полiгон (простий, складний чи збiрний). Для використання скопiюйте бiблiотеку PointInPoly.dsf в папку Library (в папцi Digitals)
Код:
$Obj=@Map.SelectedObject
$Poly=@Map.GetObjectCoordinates $Obj
@Text.Text=$Poly
@Text.Delete 1-3
$Count=@Text.Count
$I=1
$S=
%Cycle
$Line=@Text.Line[$I]
@If ("$Line"="") Then @Goto %Complex
$X=@StringPart 2 $Line
$Y=@StringPart 3 $Line
$Z=@StringPart 4 $Line
$XYZ=$X $Y $Z
@If $S= Then $S=$XYZ Else $S=$S $XYZ
$I=$I+1
@If $I<=$Count Then @Goto %Cycle
@Dialog.Message Простий полiгон
@Goto %End
%Complex
$Line=@Text.Line[$I]
@If ("$Line"="") Then @Goto %SkipLine
$X=@StringPart 2 $Line
$Y=@StringPart 3 $Line
$Z=@StringPart 4 $Line
;
$Param=$X $Y $Z $Poly
$Res=%Library.PointInPoly $Param
@If $Res=0 Then @Goto %Composite 
;
%SkipLine
$I=$I+1
@If $I<=$Count Then @Goto %Complex
@Dialog.Message Складний полiгон
@Goto %End
%Composite
@Dialog.Message Збiрний полiгон
;
%End

Ф-цiя PointInPoly повертає значення 0-3, положення точки вiдносно полiгону (0-точка за межами полiгону, 1-точка в межах полiгону, 2-координати точок спiвпадають, 3-точка лежить на контурi полiгону).
Параметрами ф-цiї є: координати точки (X Y Z) та данi змiнної, отриманої за допомогою ф-цiї @Map.GetObjectCoordinates.


Також додав данi функцiї в бiблiотеку GeoGed (для тих, хто користується)


Вложения:
Комментарий к файлу: Виправлено визначення положення точки, що лежить на осi Y
PointInPoly.zip [1.17 Кб]
Скачиваний: 20

_________________
Простіше написати неправильну програму, ніж зрозуміти правильну


Последний раз редактировалось Руслан Пархуць 05 авг 2018 18:32, всего редактировалось 1 раз.
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Библиотека полезных скриптов
СообщениеДобавлено: 31 июл 2018 12:31 
Специалист
Специалист

Зарегистрирован:
04 май 2011 13:47
Сообщения: 41
Dmitry_Zolotar писал(а):
sirenko_s_a писал(а):
Доброго дня! Можливо хтось знає як зробити експорт картинки з ДІГІ у формат PNG? Подаю 6-зем онлайн, а там зробили вимоги до формату. Раніше користувався скриптом, але тепер він не проходить, хоча в скрипті розширення ставлю PNG. допоможіть.

Є така утиліта BMP2PNG.exe, можна скористатись нею. В наступному прикладі ця утиліта розташована у Digitals\Utils
Код:
$FN=@Map.ClearFilename
$PP=@ProgramPath
@Map.SaveToTIF 300 24 $FN.bmp
@Run $PP\Utils\bmp2png.exe $FN.bmp
@Wait 3000
@Run del $FN.bmp
@Wait 3000
@Run del $FN.bmpw
@Wait 3000
@Run $FN.png


P.S. Можливо додамо до @Map.SaveToTIF підтримку PNG


Як прописати, щоб файл PNG зберігало в папці якій міститься файл???


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

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1984
Откуда: Vinnitsa
sirenko_s_a писал(а):
Dmitry_Zolotar писал(а):
P.S. Можливо додамо до @Map.SaveToTIF підтримку PNG

Як прописати, щоб файл PNG зберігало в папці якій міститься файл???

$FN=@Map.ClearFilename
@Map.SaveToTIF 300 24 $FN.png

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


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

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


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

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


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

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