Головна » Файли » Готові скрипти
Підрахунок загальної площі виділених об'єктів
25.09.2016, 21:41

$MapCount=@MapCount
@if $MapCount=0 then @Break
$N=@Map.SelCount
@if $N=0 then @Break Виділіть об'єкти для яких треба розрахувати загальну площу
$SumArea=0
$N=0
%Start
$N=@Map.NextSelected $N
@if $N=0 then @Break Площа виділених об'єктів $SumArea га
$Area=@Map.Object[$N].Parameter[0]
$Area=@Calc replace("$Area",",",".")
$Area=@DequoteText $Area
$SumArea=@Calc $SumArea+$Area
@Goto %Start

Категорія: Готові скрипти | Додав: Микола
Переглядів: 2242 | Завантажень: 0 | Коментарі: 3 | Рейтинг: 0.0/0
Всього коментарів: 3
avatar
0
2 Микола • 21:48, 02.02.2018
Ну... це основи роботи з програмою Digitals. Читайте інструкцію (меню Допомога - Підручник (online)). Задаючи ту чи іншу довжину ліній ділянки, отримуєте відповідну площу. Чи інший варіант, якщо, наприклад, у вас є ділянка площею 3 га, а вам потрібна ділянка площею 2 га, тоді виділіть ділянку та перейдіть в меню Сервіс - Розділити по площі. Там побачите різні варіанти поділу (за площею, за кількістю, за списком).

Якщо ж ви це все знаєте, а мали на увазі, як автоматично підігнати площу в межах кількох квадратних метрів, то можете скористатися скриптом:
Код
$N=@Map.NextSelected
$A=@Map.Object[$N].Parameter[0]
$B=@Dialog.Ask Нова площа Default=$A
@If $A=$B @Goto %End
$Dop=0.001
%Start
$Dop=$Dop+0.001
@CheckErrors 0
$S=@Map.AdjustObjectArea $N $B $Dop
@CheckErrors 1
$C=@Map.Object[$N].Parameter[0]
@If $C=$A @Goto %Start
@Map.RefreshObject $N
@Dialog.Message Для позначеного об'єкта вдалось встановити площу з $A на $B|при дельті $Dop
%End
avatar
0 Спам
3 andryjobstop • 02:02, 03.02.2018
Дуже дякую за інформацію і за скрипт.
avatar
0 Спам
1 andryjobstop • 20:49, 02.02.2018
Доброго дня, підскажіть як задати певну площу (припустим 2 га) намальованому об'єкту? (припустим - земельній ділянці)
Увійдіть:
avatar