Нужна помощь

Добрый день. Подскажите пожалуйста.
Есть много пикетов (<100). Необходимо определить max высоту, среднюю высоту и min высоту пикета (параметр Z)
Есть ли такая функция или может кто подскажет скрипт?
Спасибо

$Min=@Map.MinParameterValue -2 $Max=@Map.MaxParameterValue -2 $Min=%Library.ReplaceComma $Min $Max=%Library.ReplaceComma $Max $Mid=($Min+$Max)/2 @Dialog.Message Min=$Min|Max=$Max|Mid=$Mid

Можно без скрипта через меню Сервис/Отчет

Нахождение средневзвешенной высоты:

  1. Построить по пикетам ЦМР
  2. Подсчитать объем (меню ЦМР-Объем) между ЦМР и нулевой плоскостью
  3. Разделить объем ЦМР на ее площадь, получив средневзвешенную высоту.
    Если некоторую территории выровнять(сделать горизонтальной) без ввоза/вывоза грунта, то высота этой площадки и есть средневзвешенная высота.

Доброго дня колеги! Потрібна Ваша допомога. Займаюсь картою виборчих дільниць. Чи є в кого умовний знак у вигляді “виборчої скриньки”? Дуже потрібно, ДЯКУЮ!

Як варiант, створiть шар (стиль - одиночний) i параметр iз шрифтом Wingdings. Коди символу 44-47 є типовi поштовi скриньки, якi можна винести, як надпис. В iншому випадку створiть свiй умовний знак i намалюйте його за Вашими потребами.

Я сам і створив умовний знак, проте він не дуже симпатичний, можливо в когось є готовий красивий.

Добрий вечір, потрібна допомога. Як закрити відразу всі вікна, карти, без збереження … :blush:

Можна додати кнопку зi скриптом або помiстити даний код в бiблiотеку i викликати за допомогою пункту меню Run (файл ged.mnu)

Дякую. Те що я і хотів…

Здравствуйте, подскажите можно ли как то в Digitals измерить угол между тремя точками? Подобно тому как это есть в функции в “Геопроекте”. Как я понял в Диджитал считает азимут, да это хорошая способность, но неужели у такого мощного программного комплекса нет такой фишки? или я не знаю о ней? Заранее спасибо!

[url=Трансформація кооррдинат]

Спасибо большое , ответ был так близко… :smiley:

Зроблені 100 обмінних файлів, змінилась назва власника, Чи є така можливість замінити у всіх хмл власника, сусіда? дякую…

Можна використати Bath text replacer, який працює по принципу “найти-заменить”, приклад ini-файла та інсталяху додаю. Або писати скрипт

$Ext=.xml
$Intut=@Dialog.Ask Введіть, що треба замінити Size=300
$Intut=@ReplaceChar$Intut
$Output=@Dialog.Ask Введіть, на що це треба замінити Size=300
$Output=@ReplaceChar "
$Output
$InF=@Dialog.SelectFolder Вкажіть папку з файлами
@If $InF= @Break
@Text.FolderList $Ext $InF
$C=@Text.Count
@If $C=0 @Break В папці “$InF” відсутні файли $Ext
$LastF=@ExtractFileFolder $InF
$OutF=$InF
@if “$LastF”<>“Оброблені файли” then $OutF=$InF\Оброблені файли
@if “$LastF”<>“Оброблені файли” then @CreateFolder $OutF
@if “$LastF”<>“Оброблені файли” then @CleanFolder $OutF
@Progress.Start $C Роблю… (всього $C файлів)
$I=0
$R=0
%Start
$I=$I+1
@Progress.StepBy 1
@If $I>$C then @Progress.Stop
@If $I>$C then @Run $OutF
@If $I>$C then @Break Заміна проведена у $R файлах із $C! Оброблені файли збережено у папці $OutF
$InF=@Text.Line[$I]
@Text[1].Load $InF
$Text=@Text[1].Text
$Text=@ReplaceChar "
$Text
$Text=@Calc replace(”$Text",“$Intut”,“$Output”)
$Text=@DequoteText $Text
$Pos=@Calc Pos(“$Output”,“$Text”)
@if $Pos>0 then $R=$R+1
@if $Pos=0 then @Goto %Start
$Text=@ReplaceChar *"$Text
@Text[1].Text $Text
$InF=@ExtractFileName $InF
@Text[1].Save $OutF$InF
$Progress=@Progress.Canceled
@if $Progress=1 then @Break Перервано! Оброблено $I файлів із $C.||Заміна проведена у $R файлах! Оброблені файли збережено у папці $OutF
@Goto %Start

як користуватися, дивіться ТУТ

Дуже Вам Дякую Микола!!!

Тепер виникла проблема у заміні цих даних у dmf файлах. Batch Text Replaser не хоче змінювати текст у dmf файлі, а вручну це занадто довго. Чи є швидший спосіб?

Додайте заново у dmf файл ділянки із уже добрих файлів XML через меню Вставка - Карта, видаливши перед тим неправильно заповнені

Дякую.