Digitals
Програми, які допомагають нам у роботі. Бажаєте рекламувати свій бізнес? Ставайте сонсором вказаного розділу.
Правила форуму
Будьте уважними! Перед створенням теми перечитайте Правила форуму і ще раз перевірте, чи дана тема не існує. Теми, які дублюють інші, видаляються без попередження! Повідомлення, які містять не прихований адрес E-mail, видаляються без попередження!
Будьте уважними! Перед створенням теми перечитайте Правила форуму і ще раз перевірте, чи дана тема не існує. Теми, які дублюють інші, видаляються без попередження! Повідомлення, які містять не прихований адрес E-mail, видаляються без попередження!
hazar
vovaz
alex134
-
- Молодший спец :)
- Повідомлень: 43
- З нами з: 11 лютого 2008 11:02
- Репутація: 15
- Область: Львівська
- Місце роботи: Приватні проектні організації
Digitals
-
0
- Цитата
ну як комусь треба то перевірка суми площ угідь сам нашкрябав:
@Map.DeselectAll
@Map.SelectLayer ID70005
$SDil=@Map.Selected.GetParameter ID7000516
$SDil=%Library.ReplaceComma $SDil
@Map.DeselectAll
@Map.SelectLayer ID70009
$list=@Map.Selected.List
$P=0
@Text[1].Text $list
$SC=@Text[1].Count
@Map.DeselectAll
$i=0
@Progress.Start $SC Прогрес...
%s1
$i=$i+1
@Progress.StepBy 1
$so=@Text[1].Line[$I]
@Map.SelectObject $so
$S=@Map.Selected.GetParameter 158
$S=%Library.ReplaceComma $S
$P=$P+$S
;@Dialog.Message $P
@If $i<$SC then @goto %s1
$dS=$SDil-$P
@If $dS=0 then @goto %m1 else @goto %m2
%m1
@Dialog.Message площа ділянки відповідає сумі площ угіддь
@goto %finish
%m2
@Dialog.Error неспівпадіння площі ділянки ($SDil) та суми угіддь ($P) становить $dS
%finish
@Progress.Stop
@Map.DeselectAll
;@Dialog.Message $tab
@Map.DeselectAll
@Map.SelectLayer ID70009
$parc=@Map.Selected.List
@Text[3].Text $parc
$SelC=@Text[3].Count
@Text[4].Add # угіддя площа(га)
$c=0
%table
$c=$c+1
$SelObj=@Text[3].Line[$c]
@Map.SelectObject $SelObj
$PC=@Map.Selected.GetParameter 195
$PA=@Map.Selected.GetParameter 197
@Text[4].Add $c $PC $PA
@Map.DeselectAll
@If $c<$SelC then @GOTO %table else @goto %fin
%fin
@Map.DeselectAll
@Map.SelectLayer ID70005
$SD=@Map.Selected.GetParameter 158
@Text[4].Add Площа ЗД - $SD
$TB=@Text[4].Text
@Text[4].Copy
@Dialog.Message $TB
в колекції ще багато чого
@Map.DeselectAll
@Map.SelectLayer ID70005
$SDil=@Map.Selected.GetParameter ID7000516
$SDil=%Library.ReplaceComma $SDil
@Map.DeselectAll
@Map.SelectLayer ID70009
$list=@Map.Selected.List
$P=0
@Text[1].Text $list
$SC=@Text[1].Count
@Map.DeselectAll
$i=0
@Progress.Start $SC Прогрес...
%s1
$i=$i+1
@Progress.StepBy 1
$so=@Text[1].Line[$I]
@Map.SelectObject $so
$S=@Map.Selected.GetParameter 158
$S=%Library.ReplaceComma $S
$P=$P+$S
;@Dialog.Message $P
@If $i<$SC then @goto %s1
$dS=$SDil-$P
@If $dS=0 then @goto %m1 else @goto %m2
%m1
@Dialog.Message площа ділянки відповідає сумі площ угіддь
@goto %finish
%m2
@Dialog.Error неспівпадіння площі ділянки ($SDil) та суми угіддь ($P) становить $dS
%finish
@Progress.Stop
@Map.DeselectAll
;@Dialog.Message $tab
@Map.DeselectAll
@Map.SelectLayer ID70009
$parc=@Map.Selected.List
@Text[3].Text $parc
$SelC=@Text[3].Count
@Text[4].Add # угіддя площа(га)
$c=0
%table
$c=$c+1
$SelObj=@Text[3].Line[$c]
@Map.SelectObject $SelObj
$PC=@Map.Selected.GetParameter 195
$PA=@Map.Selected.GetParameter 197
@Text[4].Add $c $PC $PA
@Map.DeselectAll
@If $c<$SelC then @GOTO %table else @goto %fin
%fin
@Map.DeselectAll
@Map.SelectLayer ID70005
$SD=@Map.Selected.GetParameter 158
@Text[4].Add Площа ЗД - $SD
$TB=@Text[4].Text
@Text[4].Copy
@Dialog.Message $TB
в колекції ще багато чого
ross
-
- Спец
- Повідомлень: 865
- З нами з: 05 липня 2010 18:07
- Репутація: 227
- Область: Закарпатська
- Місце роботи: Приватні проектні організації
Digitals
-
0
- Цитата
ross, проблема не в підрахунках, для цього скриптів вистачає. Проблема в тому, що інколи Діджиталс зберігає угіддя, помилок при збереженні не видає, площа сходиться, а от НКС дає відмову, мовляв, сума угідь не відповідна або помилка геометрії в угідді. Таке буває рідко, але регулярно, допомагає лише перемальовування угідь заново по тих самих точках. От якби можна було перевіряти обмінники точнісінько так само як і НКС, то цієї частини відмов вдалося б уникнути.
murrrchik
alex134
ппзкб
loban
- zemleustriy-ocinka
- Спец
- Повідомлень: 760
- З нами з: 15 липня 2019 12:21
- Репутація: 159
- Область: Черкаська
- Місце роботи: Приватні проектні організації
Digitals
-
0
- Цитата
Повідомлення zemleustriy-ocinka »
Чи можна в Діджиталі відкрити файл Автокаду з розширенням .dwg ? В мене починає відкриватись, потім пише помилка збереження і все.
zemleustriy-ocinka
snaka
-
- Спец
- Повідомлень: 54
- З нами з: 01 листопада 2010 21:41
- Репутація: 18
- Область: Рівненська
- Місце роботи: Інші недержавні проектні організації
Digitals
-
0
- Цитата
Можна, якщо встановлений Автокад, і бажано щоб він був найновішої версії, а то хтозна в якій версії Автокада збережено файл *.dwg.zemleustriy-ocinka писав: ↑09 квітня 2020 10:44 Чи можна в Діджиталі відкрити файл Автокаду з розширенням .dwg ?
Petrogeo
- Krok
- Спец
- Повідомлень: 108
- З нами з: 26 грудня 2012 22:11
- Репутація: 11
- Область: АР Крим
- Місце роботи: Приватні проектні організації
Digitals
-
3
- Цитата
Я відкриваю так: в гугл форматую https://cloudconvert.com/dwg-to-dxf а в діджіталі відкриваю без проблем dxf
Krok
- zemleustriy-ocinka
- Спец
- Повідомлень: 760
- З нами з: 15 липня 2019 12:21
- Репутація: 159
- Область: Черкаська
- Місце роботи: Приватні проектні організації
Digitals
-
0
- Цитата
Повідомлення zemleustriy-ocinka »
Krok, чи то в мене файл такий, але не конвертується. Можете спробувати і закинути мені конвертований?
У вас недостатньо прав для перегляду приєднаних до цього повідомлення файлів.
zemleustriy-ocinka
-
- Спец
- Повідомлень: 103
- З нами з: 07 лютого 2010 18:33
- Репутація: 3
- Область: Рівненська
- Місце роботи: Приватні проектні організації
IAlexandrI
- zemleustriy-ocinka
- Спец
- Повідомлень: 760
- З нами з: 15 липня 2019 12:21
- Репутація: 159
- Область: Черкаська
- Місце роботи: Приватні проектні організації
Digitals
-
1
- Цитата
Повідомлення zemleustriy-ocinka »
IAlexandrI, дякую. Розкажіть будь-ласка як зробили?
zemleustriy-ocinka
Digitals
-
0
- Цитата
Після оновлення
Не підтягує відомості з ДЗК
Растри - працюють
А коли будуть зміни по
https://zakon.rada.gov.ua/laws/show/134-2020-п
В нормалі і ...
Не підтягує відомості з ДЗК
Растри - працюють
А коли будуть зміни по
https://zakon.rada.gov.ua/laws/show/134-2020-п
В нормалі і ...
Alexxp
Kurilov
- zemleustriy-ocinka
- Спец
- Повідомлень: 760
- З нами з: 15 липня 2019 12:21
- Репутація: 159
- Область: Черкаська
- Місце роботи: Приватні проектні організації
Digitals
-
0
- Цитата
Повідомлення zemleustriy-ocinka »
Допоможіть будь-ласка. Зникло світло, вмикаю комп а всі ХМЛ тепер з 2 знаками, потрібно повернути як було, 3 знаки
zemleustriy-ocinka
alex134
murrrchik
- zemleustriy-ocinka
- Спец
- Повідомлень: 760
- З нами з: 15 липня 2019 12:21
- Репутація: 159
- Область: Черкаська
- Місце роботи: Приватні проектні організації
Digitals
-
0
- Цитата
Повідомлення zemleustriy-ocinka »
alex134, проблема полягала в тому що збились налаштування Діджитала, вже виправив.
murrrchik, Дякую. Час замінити пк мабуть, бо часто Діджитал збоїть
murrrchik, Дякую. Час замінити пк мабуть, бо часто Діджитал збоїть
zemleustriy-ocinka
k1nep
Веталей
k1nep
Kurilov