Винос в натуру

[Гість]

За допомогою яких програм, яким чином виносите в натуру ділянки.

[Volodar]

За допомогою яких програм, яким чином виносите в натуру ділянки.

Ну я так чомусь думаю, що винос в натуру ділянки здійснюється за допомогою геодезичних приладів. А за допомогою програм готуються вихідні дані. Але це залежить від приладу яким здійснюється винос. Для тахеометра буде достатньо каталогу координат, для теодоліта - кути і відстані ...
Програми ті ж самі, які використовуються для складання кадпланів, обробки геодезичних вимірів.

[Гість]

Ну я так чомусь думаю, що винос в натуру ділянки здійснюється за допомогою геодезичних приладів. А за допомогою програм готуються вихідні дані. Але це залежить від приладу яким здійснюється винос. Для тахеометра буде достатньо каталогу координат, для теодоліта - кути і відстані ...
Програми ті ж самі, які використовуються для складання кадпланів, обробки геодезичних вимірів.

Вірно, мене цікавлять вихідні дані, каталоги координат , кути і відстані .

[Volodar]

Вірно, мене цікавлять вихідні дані, каталоги координат , кути і відстані .

З українських: користуюсь Digitals - http://www.geosystema.net/digitals/ або Геопроект
http://www.gisinfo.com.ua/products/info-gis5.php

[Гість]

З українських: користуюсь Digitals - http://www.geosystema.net/digitals/ або Геопроект
http://www.gisinfo.com.ua/products/info-gis5.php

Мене цікавлять вихідні дані, кути і відстані. Методи, способи їх підготовки для роботи, в самій програмі. Автоматично дістаєте чи в ручному режимі все міряєте, переписуєте. В жодній програмі, для землевпорядкування, для виносу в натуру нема функції яка б дала змогу хоч на трохи автоматизувати цей процес . Чи можливо я помиляюсь UPS

[Гість]

ОГЗ
решается скриптом в ArcView
да где угодно, хоть в MO Access

входные данные: координаты точки стояния, точки наведения и координаты выносимой точки межи дилянкы.
выходные данные: угол и расстояние (горизонтальное проложение)

Можливо маєте змогу викладіть.

[Гість]

только не каталоги координат, а ведомости решения ОГЗ

Буду вдячний за будь-яку інформацію .

[Volodar]

Digitals дозволяє робити схему виносу в натуру.
Спробуйте Вставка-Внутрішні кути - для графічної частини,
а також є можливість створення списків з відповідними даними.

[vladasya]

Є така програма "МАР" - в сумах розроблена ще під дос, яка дозволяє зробити таблицю виносу в натуру.

[Pushenko]

Великошановне панство, роз'ясніть будь ласка:
Має право власник земельної ділянки (паю) замовити , а виконавець зробити винос паю в натурі, якщо пай в оренді?
Обов'язково власник має писати заяву на райдержадміністрацію про надання дозволу на ці роботи?

[kukin]

За допомогою яких програм, яким чином виносите в натуру ділянки.

для класического выноса:
Digitals- подготовка каталогов координат точек поворотов
пакет LGO tools
coordinate editor - записи проекта выноса в файл
data exchenge manadger - запись файла в память тахеометра
Leica TCR8005power- вынос по координатам

современные методы:
пакет TGO-TBC - подготовка каталогов координат точек поворотов, записи проекта выноса в файл
вынос RTK Trimble 5800-R8

[alla2612]

Має право власник земельної ділянки (паю) замовити , а виконавець зробити винос паю в натурі, якщо пай в оренді?

Не знаю на який нормативно-правовий акт зсилатись, але ми, якщо пай в оренді,винос не робимо, тому що в даний момент паєм (землею) розпоряджається орендар, а не орендодавець.В документацію по виносу беремо довідку з ДЗК, що земельна ділянка не перебуває в оренді.

[Lucky]

Великошановне панство, роз'ясніть будь ласка:
Має право власник земельної ділянки (паю) замовити , а виконавець зробити винос паю в натурі, якщо пай в оренді?
Обов'язково власник має писати заяву на райдержадміністрацію про надання дозволу на ці роботи?

А ми виносимо, у власника є ДА, якщо він хоче побачити свої межі, чого йому маємо відмовляти Krutelyk . А дані в автокаді готуємо, є дописана функція, точка стояння, орієнтування і вперед

[Гість]

А дані в автокаді готуємо, є дописана функція, точка стояння, орієнтування і вперед

А можете поділитись цим доповненням

[Lucky]

Воно вбудовано, окремо не висмикну, можу дати lsp файл в якому процедура описана якщо допоможе комусь.

[Гість]

Воно вбудовано, окремо не висмикну, можу дати lsp файл в якому процедура описана якщо допоможе комусь.

Викладіть.

[Lucky]

Вообщем я мало шо розумію в тому, якщо якісь компоненти ще треба то ЛС

Spoiler

(load "varvar")
;(load "acad.mnl")
(defun-q norm_ang (k)
(setq k (+ k 360))
(if (>= k 360) (- k 360) k)
)
(defun-q geo_ang (k1)
(setq k1 (norm_ang (- 90 k1)))
)
(defun-q atos (k / a b c)
(setq a (itoa (fix k)))
(setq b (fix (* 60 (- k (fix k)))))
(setq c (* 3600 (- k (fix k) (/ b 60.0))))
; (print b)
; (print c)
(setq a (strcat a "°" (padl1 (itoa b) 2) "'" (padl1 (rtos c 2 0) 2) "\""))
)
(defun-q obratka ( / st st_n or_s or_n n p k k1 k_n s r os os1 nteod ai_upush ai_upop)
(setq os (getvar "OSMODE"))
(bns_init_error
(list
(list "cmdecho" 0 "osmode" os "gridmode" 0 "clayer" "0" "dimzin" 0)
nil
'(setq ai_undo_push ai_upush ai_undo_pop ai_upop)
)
)
(setq ai_upush ai_undo_push ai_upop ai_undo_pop )
(bns_undo_init)
(setq ai_undo_push princ ai_undo_pop princ)
(bns_place_undo_begin)
(setq r 5.0)
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq os1 os)
(if (< os 16384)
(setq os1 (+ os 16384))
)
(setvar "OSMODE" os1)
(if (tblsearch "layer" "Teod")
(progn
(setq nteod 1)
(while
(tblsearch "layer" (strcat "Teod" (itoa nteod)))
(setq nteod (1+ nteod))
)
(entmod
(subst
(cons 2 (strcat "TEOD" (itoa nteod)))
(assoc 2 (entget (tblobjname "layer" "teod")))
(entget (tblobjname "layer" "teod"))
)
)
)
)
(Command "LAYER" "M" "Teod" "C" "7" "Teod" "")
(Command "LAYER" "M" "shtamp" "C" "7" "shtamp" "")
(setvar "DIMZIN" 0)
(c:ai_pspace)
(setvar "OSMODE" os)
(setq k_n (getpoint "\n Введiть положення таблицi "))
(c:ai_fms)
(varvar_visolate "Teod")
(c:ai_fms)
; (print "1 1")
(setq st (getpoint "\n Введiть точку ст. стояння "))

(print st)

(setq st_n (getstring (strcat "\n Введiть назву ст. стояння " (if (getnamepoint st) (strcat "<" (getnamepoint st) ">") "<ст>") ":")))
; (print "3 1")
(setq st_n
(if (and (= "" st_n) (getnamepoint st))
(getnamepoint st)
(if (= "" st_n) "ст" st_n)
)
)
; (print "4 1")
(setq or_s (getpoint st "\n Введiть точку ст. оpiєнтування " ))

(print or_s)

(setq or_n (getstring (strcat "\n Введiть назву ст. оpiєнтування " (if (getnamepoint or_s) (strcat "<" (getnamepoint or_s) ">") "<оp>") ":")))
; (print "6 1")
(setq or_n
(if (and (= "" or_n) (getnamepoint or_s))
(getnamepoint or_s)
(if (= "" or_n) "оp" or_n)
)
)
; (print "7 1")
(setq n (getint "\n Введiть номер пікету "))
; (print "8 1")
(if (= n nil)
(setq n 1)
)

(print "1")

(setVar "CLayer" "teod")
(setvar "OSMODE" os1)
(setvar "plinewid" 0.5)

(print "2")
; (print st)
; (print or_s)
; (print r)
(setq p1 (POLAR st (ANGLE st or_s) r))
(setq p2 (POLAR or_s (ANGLE or_s st) r))
(setq p1 (acet-str-format "%1,%2" (nth 0 p1) (nth 1 p1)))
(setq p2 (acet-str-format "%1,%2" (nth 0 p2) (nth 1 p2)))
; (print p1)
; (print p2)
(Command "pline" p1 p2 "")
; (print "21")
(command "circle" st r)
; (print "22")
(command "circle" or_s r)
; (print "23")
(command "text" st 10 0 (strcat " ст." st_n))
; (print "24")
(command "text" or_s 10 0 (strcat " ст." or_n))
; (print "25")
(setvar "plinewid" 0)
; (print "26")
(setVar "CLayer" "shtamp")

; (print "3")

(setq k (atof (angtos (angle st or_s) 0 10)))
(print (atos (geo_ang k)))
(setq s (strcat "ст." st_n " оpiент. на ст." or_n))
(c:ai_pspace)
(command "insert" "var_orient" k_n "" "" "" s)

; (print "4")
(c:ai_fms)
(bns_place_undo_enD)

(setq p t)
(while p
(setvar "OSMODE" os)
(initget "Undo" (+ 32 128))
(setq p (getpoint "\n Введiть точку"))
(setvar "OSMODE" os1)
(if (and (/= n 1) (= p "Undo"))
(progn
(command "_u")
(setq n (1- n))
(setq k_n (list (nth 0 k_n) (+ (nth 1 k_n) 4) (nth 2 k_n)))
)
)
(if (= (type p) 'list)
(progn
(bns_place_undo_begin)
(setq k_n (list (nth 0 k_n) (- (nth 1 k_n) 4) (nth 2 k_n)))
(setq k1 (atof (angtos (angle st p) 0 10)))
(setq s (padl1 (itoa n) 5))
;##### ###·##'##" ####.##
(setq s (strcat s " " (padl1 (atos (norm_ang (- k k1))) 11)))
(setq s (strcat s " " (padl1 (rtos (distance st p) 2 3) 7)))
(setVar "CLayer" "teod")
(Command "pline" (POLAR st (ANGLE st p) r) p "")
(command "circle" p (/ r 5))
(command "text" p r 0 (strcat " " (itoa n)))
(c:ai_pspace)
(setVar "CLayer" "shtamp")
(command "insert" "var_data" k_n "" "" "" s)
(setq n (1+ n))
(c:ai_fms)
(bns_place_undo_enD)
)
)
)
(c:ai_pspace)
(setq ai_undo_push ai_upush ai_undo_pop ai_upop)
(bns_place_undo_enD)
(bns_restore_old_error )

; (setq k1 )
; (print (strcat st_n " оpiІнт. на " or_n " " ))
)
(obratka)

[Kaljan]

В МЕНЕ Е ЛІСП ФАЙЛ ТІЛЬКИ ДЛЯ АКАД 2000І МАП... ЧЕРЕЗ ТОПОЛОГІЮ....

[werewolf]

Не знаю на який нормативно-правовий акт зсилатись, але ми, якщо пай в оренді,винос не робимо, тому що в даний момент паєм (землею) розпоряджається орендар, а не орендодавець.В документацію по виносу беремо довідку з ДЗК, що земельна ділянка не перебуває в оренді.

Якісь нахабні у вас орендарі...
Власник з\д має повне право встановити (відновити) межі з\д на місцевості незалежно від того, в оренді вона, чи ні.

[Serics]

ми виніс не робимо без дозволу РДА! є у громадянина розпорядження про встановлення в натурі меж земельної частки (паю) - можеш замовляти! а оскільки ми працюємо тільки в тих господарствах, де робили паювання, то проблем з виносом не маємо: в автокаді ще до паювання побудовано в системі координат колгосп (поля) з усіма комунікаціями та ситуацією і від цього й "пляшемо"!буває посеред поля встановлюємо межові знаки...

[werewolf]

буває посеред поля встановлюємо межові знаки...

А де ви їх берете?

[makctos]

Вобщето у багатьох тахеометрах є функція (Разбівка), стаєш на опорний гедезичний пункт, орінтуєшься на другій в тахеометрі забиваєшь координати углів поворотів ділянки, а тахеометр тебі показує стрелками вперед стілки метрів, в ліво стільки. При желанії власника та за його гроші, можемо і межові знаки бетоні закопати, виготовляє геодезкартографія.

[AlexBazis]

А действует ли инструкция по выносу в натуру границ земельного участка, в которой говорится про номерные межевые знаки?

[ValD]

А действует ли инструкция по выносу в натуру границ земельного участка, в которой говорится про номерные межевые знаки?

У нас нет и надеюсь не заработает!

[dexter3000]

А действует ли инструкция по выносу в натуру границ земельного участка, в которой говорится про номерные межевые знаки?

Госкомзем сам неофициально признает, что исполнение требований этого нормативно-правового акта в настоящее время невозможно и, фактически, необязательно.