Аналитика

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

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




Начать новую тему Ответить на тему  [ Сообщений: 169 ]  На страницу Пред.  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
Сообщения: 402
Откуда: г. Старобельск
Уважаемые форумчане, неужели другого места нет для размещения подобных постов? Создайте тему в конце концов! Читайте внимательно название и не флудите нормальные темы пожалуйста. Считаю, что нам нужен библиотекарь.

_________________
П. Вечеров


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

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 227
Откуда: м.Льв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
;

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


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

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


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

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


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

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