Digitals
Правила форуму
Будьте уважними! Перед створенням теми перечитайте Правила форуму і ще раз перевірте, чи дана тема не існує. Теми, які дублюють інші, видаляються без попередження! Повідомлення, які містять не прихований адрес E-mail, видаляються без попередження!
Будьте уважними! Перед створенням теми перечитайте Правила форуму і ще раз перевірте, чи дана тема не існує. Теми, які дублюють інші, видаляються без попередження! Повідомлення, які містять не прихований адрес E-mail, видаляються без попередження!
-
- Молодший спец :)
- Повідомлень: 43
- З нами з: 11 лютого 2008 11:02
- Репутація: 15
- Область: Львівська
- Місце роботи: Приватні проектні організації
Digitals
ну як комусь треба то перевірка суми площ угідь сам нашкрябав:
@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
в колекції ще багато чого
-
- Спец
- Повідомлень: 856
- З нами з: 05 липня 2010 18:07
- Репутація: 224
- Область: Закарпатська
- Місце роботи: Приватні проектні організації
Digitals
ross, проблема не в підрахунках, для цього скриптів вистачає. Проблема в тому, що інколи Діджиталс зберігає угіддя, помилок при збереженні не видає, площа сходиться, а от НКС дає відмову, мовляв, сума угідь не відповідна або помилка геометрії в угідді. Таке буває рідко, але регулярно, допомагає лише перемальовування угідь заново по тих самих точках. От якби можна було перевіряти обмінники точнісінько так само як і НКС, то цієї частини відмов вдалося б уникнути.
-
- Модератор
- Повідомлень: 526
- З нами з: 15 січня 2018 17:38
- Репутація: 162
- Область: Черкаська
- Місце роботи: Інше
Digitals
Не по темі
Как я перед этим и сказал, GeoSee проверяет обменник на все ошибки которые выдает НКС, еще не было проблем что бы сишка не показала ошибку, а в НКС выдало бы её, все ОФ проходят проверку на ура
- ппзкб
- Спец
- Повідомлень: 2586
- З нами з: 19 лютого 2015 13:13
- Репутація: 669
- Область: Вінницька
- Місце роботи: Приватні проектні організації
Digitals
а ще після останньої обнови, коли змінили публічку, диджитал при збереженні інколи неправильно зберігає КОААТУ (зона, квартал) хоча в інформаційному блоці показує все вірно. треба банально по декілька разів перезберігати
- zemleustriy-ocinka
- Спец
- Повідомлень: 760
- З нами з: 15 липня 2019 12:21
- Репутація: 159
- Область: Черкаська
- Місце роботи: Приватні проектні організації
Digitals
Чи можна в Діджиталі відкрити файл Автокаду з розширенням .dwg ? В мене починає відкриватись, потім пише помилка збереження і все.
-
- Молодший спец :)
- Повідомлень: 47
- З нами з: 01 листопада 2010 21:41
- Репутація: 15
- Область: Рівненська
- Місце роботи: Інші недержавні проектні організації
Digitals
Можна, якщо встановлений Автокад, і бажано щоб він був найновішої версії, а то хтозна в якій версії Автокада збережено файл *.dwg.zemleustriy-ocinka писав: ↑09 квітня 2020 10:44 Чи можна в Діджиталі відкрити файл Автокаду з розширенням .dwg ?
- Krok
- Спец
- Повідомлень: 108
- З нами з: 26 грудня 2012 22:11
- Репутація: 11
- Область: АР Крим
- Місце роботи: Приватні проектні організації
Digitals
Я відкриваю так: в гугл форматую https://cloudconvert.com/dwg-to-dxf а в діджіталі відкриваю без проблем dxf
- zemleustriy-ocinka
- Спец
- Повідомлень: 760
- З нами з: 15 липня 2019 12:21
- Репутація: 159
- Область: Черкаська
- Місце роботи: Приватні проектні організації
Digitals
Krok, чи то в мене файл такий, але не конвертується. Можете спробувати і закинути мені конвертований?
У вас недостатньо прав для перегляду приєднаних до цього повідомлення файлів.
-
- Спец
- Повідомлень: 103
- З нами з: 07 лютого 2010 18:33
- Репутація: 3
- Область: Рівненська
- Місце роботи: Приватні проектні організації
- zemleustriy-ocinka
- Спец
- Повідомлень: 760
- З нами з: 15 липня 2019 12:21
- Репутація: 159
- Область: Черкаська
- Місце роботи: Приватні проектні організації
Digitals
IAlexandrI, дякую. Розкажіть будь-ласка як зробили?
Digitals
Після оновлення
Не підтягує відомості з ДЗК
Растри - працюють
А коли будуть зміни по
https://zakon.rada.gov.ua/laws/show/134-2020-п
В нормалі і ...
Не підтягує відомості з ДЗК
Растри - працюють
А коли будуть зміни по
https://zakon.rada.gov.ua/laws/show/134-2020-п
В нормалі і ...
- zemleustriy-ocinka
- Спец
- Повідомлень: 760
- З нами з: 15 липня 2019 12:21
- Репутація: 159
- Область: Черкаська
- Місце роботи: Приватні проектні організації
Digitals
Допоможіть будь-ласка. Зникло світло, вмикаю комп а всі ХМЛ тепер з 2 знаками, потрібно повернути як було, 3 знаки
- zemleustriy-ocinka
- Спец
- Повідомлень: 760
- З нами з: 15 липня 2019 12:21
- Репутація: 159
- Область: Черкаська
- Місце роботи: Приватні проектні організації
Digitals
alex134, проблема полягала в тому що збились налаштування Діджитала, вже виправив.
murrrchik, Дякую. Час замінити пк мабуть, бо часто Діджитал збоїть
murrrchik, Дякую. Час замінити пк мабуть, бо часто Діджитал збоїть
- Веталей
- Спец
- Повідомлень: 83
- З нами з: 18 жовтня 2008 13:04
- Репутація: 0
- Область: Харківська
- Місце роботи: Приватні проектні організації
- Контактна інформація:
Digitals
Шейп - застарілий формат, що має кілька незручних обмежень: це і складнощі з кодуванням, і довжина тексту, який може бути збережений в таблиці даних - максимум 255 символів.
-
- Admin
- Повідомлень: 1171
- З нами з: 11 травня 2012 18:16
- Репутація: 692
- Область: Харківська
- Місце роботи: Приватні проектні організації
Digitals
Спробуйте встановити маску для строкового параметра *255 (здається, за замовчуванням при збереженні DBF стоїть 64 символи). Якщо параметр більше 255 символів, спробуйте розбити його на частини.