Библиотека полезных скриптов

Старий форум
161

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

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

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

162

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

163

[url=Запрос на функцию - #1137 від user24]

[/url]

  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 ;

164

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

165

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

166

Спасибо

167

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

168

Є така утиліта 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

169

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

170

Скрипт для отримання даних про пол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 (для тих, хто користується)

Все про скрипти
171

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

172

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

173

подскажите пожалуйста каким образом можно установить в программе по умолчанию, создавался XML-файл а не normal???

174

Замiнiть файл Normal.dmf в папцi з програмою на XMLNormal.dmf з папки Templates (попереднiй збережiть про всяк випадок).

175

А якщо потім треба буде відкрити чи створити ІН4?
Не дуже добре міняти ці файли. Тоді програма стає обмеженою по функціоналу.

176

Возможно ли в диджитале подгружать или создавать свои штриховки, если можна то каким образом??!

177

так, щоб створити свою шриховку, можна використовувати Symbol Manager, який запускається через меню програми Digitals - Карта - Умовні знаки

178

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

179

Для того чтобы в XML-файл внести текст, содержащий символы разметки, необходимо этот текст внести в секцию CDATA
13/а - не валидный XML
- валидный XML
Но НКС не воспринимала и такую форму записи, как минимум ранее. Так ли это сейчас? Никто не мешает проверить.

180

Мається на увазі
Такий Вигляд, можливо таким чином зробити
804


Київ
проспект Іванова
18
225
ДЯКУЮ.