Аналитика
http://geosystema.net/forum/

Библиотека полезных скриптов
http://geosystema.net/forum/viewtopic.php?f=6&t=2539
Страница 12 из 15

Автор:  Виталий [ 10 май 2018 12:58 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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

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


Спасибо

Автор:  sirenko_s_a [ 05 июн 2018 15:18 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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

Вложения:
6-зем-Схема_Проект.dmt [107.01 Кб]
Скачиваний: 972

Автор:  Dmitry_Zolotar [ 05 июн 2018 16:48 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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

Автор:  sirenko_s_a [ 06 июн 2018 09:28 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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

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

Автор:  Руслан Пархуць [ 25 июл 2018 15:24 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

Скрипт для отримання даних про пол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 Кб]
Скачиваний: 469

Автор:  sirenko_s_a [ 31 июл 2018 12:31 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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 зберігало в папці якій міститься файл???

Автор:  Dmitry_Zolotar [ 31 июл 2018 13:32 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

sirenko_s_a писал(а):
Dmitry_Zolotar писал(а):
P.S. Можливо додамо до @Map.SaveToTIF підтримку PNG

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

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

Автор:  Vladimirart08 [ 09 янв 2019 16:26 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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

Автор:  Руслан Пархуць [ 10 янв 2019 12:12 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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

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

Автор:  fendak [ 10 янв 2019 20:18 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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

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

Автор:  Vladimirart08 [ 11 янв 2019 13:49 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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

Автор:  fendak [ 11 янв 2019 14:18 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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


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

Автор:  Vladimirart08 [ 16 янв 2019 12:53 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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

Автор:  Dmitry_Zolotar [ 17 янв 2019 09:42 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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

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

Автор:  Vladimirart08 [ 22 янв 2019 16:08 ]
Заголовок сообщения:  Re: Библиотека полезных скриптов

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

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


Мається на увазі
Такий Вигляд, можливо таким чином зробити
<Country>804</Country>
<Region/>
<District/>
<Settlement>Київ</Settlement>
<Street>проспект Іванова</Street>
<Building>18</Building>
<BuildingUnit>225</BuildingUnit>
ДЯКУЮ.

Страница 12 из 15 Часовой пояс: UTC + 2 часа
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/