[Alexmf]

Не могу "посадить" проектируемое здание из-за отсутствия горизонталей на съемке. Возникают сложности в определении отметок рельефа местности, красных и черных. Может есть другой способ. Ген планами занимаюсь очень редко, знания только базовые в этом направлении. Я проектировщик разделов АС, АР. Спасибо за помощь

[engngr]

Горизонталей или отметок как таковых? Может, не ваша компетенция сажать здание?

[Alexmf]

Отметки рельефа есть. Горизонталей нет, по которым можно определить черные и красные отметки методом интерполяции.

[randum]

Так с отметками тоже самое, интерполяцией определяете высоту в заданной точки относительно двух ближайших (характерных) отметок. Это у вас получится черная отметка, красную задаете вы сами.

[Alexmf]

Сообщение от randum Так с отметками тоже самое, интерполяцией определяете высоту в заданной точки относительно двух ближайших (характерных) отметок. Это у вас получится черная отметка, красную задаете вы сами.

Характерных? А это как? Ну например. Взял 2 ближайшие точки, получилась отметка. Взял другие 2 точки, тоже ближайшие и тоже относительно этой же точки - получилась другая отметка. или это все в порядке вещей?

[randum]

Alexmf
Ближайшие они как правило и есть характерные но не всегда, просто надо представлять себе рельеф который отображён на съемке, обычно начинаю с определения направления общего уклона и крутизны рельефа.

Взял другие 2 точки, тоже ближайшие и тоже относительно этой же точки - получилась другая отметка. или это все в порядке вещей?

Если разница небольшая то так и должно быть так как съемка это не точная копия рельефа.

[VMT]

Черные отметки вам нужны только для определения земляных масс.
Задавайте свои красные на которые и опирайтесь. Можете даже свои горизонтали нарисовать. Представьте себе, что загнали на площадку бульдозер и все разровняли.
НО на границах участка ваши красные должны равняться черным

[ShaggyDoc]

начинаю с определения направления общего уклона и крутизны рельефа

Когда рельеф плоский и нет характерных уклонов (разница в отметках менее 0.5 м), то на небольшом участке местности горизонтали и провести невозможно. В таких случаях топографы оставляют только отметки - если нет отметок с "круглыми" значениями. Увидеть общую картину рельефа можно лишь на плане, охватывающие большую площадь. Это если действительно топосьемка.

Бывают и чертежи генплана без горизонталей, а только с отметками точек.

[sathalex]

Код:

[Выделить все]

 (vl-load-com)
;|============================================================================= 
*	Поиск координаты Z на прямой, образованной двумя точками.
*	Используя уравнение прямой по двум точкам
*	Параметры вызова:
		Нет
*	Примеры вызова:
		(pl-error-restore-sysvar)
*	Результат:
		сообщение в командной строке, показывающее координаты
		с точностью два знака после запятой
=============================================================================|; 
;_ 
(defun Find_Z_OnLine (/ XY1 XY2 Z1 Z2 Pt1 Pt2 Pt3)

  ;_ ***** защита от "дурака" **************
  (setq *error* pltool-err)
  (setq	osm (getvar "OSMODE")
  )
  (or *pl-activedoc*
      (setq *pl-activedoc*
	     (vla-get-activedocument (vlax-get-acad-object))
      )
  )
  (vla-startundomark *pl-activedoc*)
  (pl-error-save-sysvar
    (list '("ANGBASE" 0)
	  '("ANGDIR" 0)
	  '("UCSFOLLOW" 0)
	  '("UCSICON")
	  '("CLAYER")
;;;	  '("osmode" 512)
;;;	  '("CMDECHO" 0)
	  (list "pickbox" (apply 'max (list 7 (getvar "pickbox"))))
	  (list "aperture" (getvar "pickbox"))
    )
  )
  ;_ **************************************
  
  (initget 1)
  (if (setq XY1	(getpoint "\nУкажите 1-ую точку: ")
	    Z1	(getreal "\nУкажите координату Z в этом месте: ")
      )
    (progn
      (setq
	Pt1 (append (list (nth 0 XY1)) (list (nth 1 XY1)) (list Z1))
	XY2 (getpoint XY1 "\nУкажите 2-ую точку: ")
      )
      ;_ рисуем отрезок, определяющий линию
      (pl-error-save-sysvar
	(list '("CECOLOR" "4"))
      )
      (setq *pl-entLast*
	     (entmakex (list (cons 0 "LINE")
			     (cons 8 (getvar "CLAYER"))
			     (cons 10 XY1)
			     (cons 11 XY2)
		       )
	     )
      )
      (if (setq	Z2  (getreal "\nУкажите координату Z в этом месте: "))
	(progn
	  ;_ задаём ограничение на выбор, включаем ОРТО по углу отрезка
	  (pl-error-save-sysvar
	    (list '("ORTHOMODE" 1)
		  (append '("SNAPANG" ) (list (angle XY1 XY2))))
	    )
	  
	  (setq
	    Pt2
	     (append (list (nth 0 XY2)) (list (nth 1 XY2)) (list Z2))
	  )
	  (setq	Pt3 (getpoint XY2 "\nУкажите исследуюмую точку: ")
	  )
	  ;_ если точка не лужит на выбранной прямой - составляем проекцию на линию
	  (if (not (dwgru-geom-point-on-line Pt3 XY1 XY2))
	    (setq
	      Pt3 (inters XY1
			  XY2
			  Pt3
			  (polar Pt3 (+ (angle XY1 XY2) (/ Pi 2)) 7)
			  nil
		  )
	    )
	  ) ;_ end if

	  
	  
	  (princ "\nКоординаты исследуемой точки <X, Y, Z>: ")
	  (mapcar '(lambda (x)
		     (terpri)
		     (princ (rtos x 2 2)) ;_ Вывод координат с заданной точностью
		   )
		  (New_Z_OnLine Pt1 Pt2 Pt3)
	  )
	) ;_ end progn
	(princ "\nНе была задана координата Z. Попробуйте заново.")
      ) ;_ end if
    ) ;_ end progn
    (princ "\nНе была задана координата Z. Попробуйте заново.")
  ) ;_ end if

  ;_ ***** Восстановление исходного вида *************************
  (pl-error-restore-sysvar)
  (vla-endundomark *pl-activedoc*)
  (SSSETFIRST)
  ;_ *************************************************************
  (princ)
)

 ;|===========================================================================
*	Функция расчёта Z-координаты точки на прямой, образованной двумя точками
*	Параметры вызова:
		Point	- координаты точки, для которой надо расчитать Z
		Pt1 	- координаты 1-ой известной точки прямой
		Pt2 	- координаты 2-ой известной точки прямой
*	Результат: список координат
============================================================================|;
(defun New_Z_OnLine (Pt1 Pt2 Point / X X1 X2 Z Z1 Z2)
  (if (and Point Pt1 Pt2)
    (progn
      (setq X  (nth 0 Point)
	    X1 (nth 0 Pt1)
	    Z1 (nth 2 Pt1)
	    X2 (nth 0 Pt2)
	    Z2 (nth 2 Pt2)
      ) ;_ end setq
      (if (eq 0 (- X2 X1))
	(setq Z Z1)
	(setq Z (+ (* (/ (- X X1) (- X2 X1)) (- Z2 Z1)) Z1))
 ;_ Z = ((X-X1)/(X2-X1))*(Z2-Z1) + Z1
      ) ;_end if
      (setq Point (reverse (append (list Z) (cdr (reverse Point)))))
    ) ;_ end progn
  ) ;_ end if
) ;_ end defun new_Point

;| =========================================================================
*	Библиотека DWGruLispLib Copyright ©2007  DWGru Programmers Group
*	dwgru-geom-point-on-line
*	07/12/2007 Версия 0001. Редакция Владимир Азарко (VVA)
*	Параметры вызова:
		P — проверяемая точка
		P1, P2 — точки отрезка
	Результат: Возвращает t, если точка лежит на отрезке
===========================================================================|;
(defun dwgru-geom-point-on-line (P P1 P2)
 (equal (+ (distance P P1) (distance P P2)) (distance P1 P2) 1e-6)
)

;|============================================================================= 
*	Сохраняется текущее значение системных переменных. Список глобальный (*pl-sysvar-list*)
*	При условии, что заданы значения, они устанавливаются.
*	Поскольку список *pl-sysvar-list* не обнуляется, в нем хранится история изменения
*	значений переменных.
*	Параметры вызова:
		*pl-sysvar-list*	- список системных переменных, состояние которых надо сохранить.
					состоит из подсписков (Переменная Значение)
		В списке могут повторяться Переменные. В таком случае будет установлено последнее значение.
		Если в качестве второго параметра используется nil, то значение
		системной переменной просто сохраняется.
*	Примеры вызова:
		(kpblc-error-sysvar-list (list '("cmdecho" 0) '("blipmode") '("osmode" 503)))
=============================================================================|; 
(defun pl-error-save-sysvar (sysvar-list /)
  (foreach item	sysvar-list
    (setq *pl-sysvar-list*
	   (cons (list (car item) (getvar (car item)))
		 *pl-sysvar-list*
	   )
    )
    (if	(cadr item)
      (_pl-sysvar-set (car item) (cadr item))
    ) ;_ end of if
  ) ;_ end of foreach
) ;_ end of defun

;|============================================================================= 
*	Восстанавливаются системные переменные. Значения системных переменных
* 	должны храниться в глобальном списке *pl-sysvar-list*. Если списка нет
* 	(nil), происходит просто выход.
*	Параметры вызова:
		Нет
*	Примеры вызова:
		(pl-error-restore-sysvar)
=============================================================================|; 
(defun pl-error-restore-sysvar ()
  (if *pl-sysvar-list*
    (foreach item *pl-sysvar-list*
      (_pl-sysvar-set (car item) (cadr item))
    )
  )
  (setq *pl-sysvar-list* nil)

  ;_ Удаляем временные объекты
  (if *pl-entLast*
    (progn
      (entdel *pl-entLast*)
      (setq *pl-entLast* nil)
    )
  )
  (gc)
) ;_ end of defun

;|============================================================================= 
*	Установка системных переменных. Замена стандартному (setvar) для безошибочной обработки 
*	Параметры вызова: 
		sysvar	- имя системной переменной 
		value	- устанавливаемое значение 
*	Возвращаемое значение: 
		Установленное значение системной переменной либо nil в случае неудачи
=============================================================================|; 
(defun _pl-sysvar-set (sysvar value)
  (if (getvar sysvar)			; Такая переменная есть вообще или нет? 
    (if	(and (= value "") (wcmatch (strcase sysvar t) "dim*")) ;_ end of and 
      (setvar sysvar ".")
      (vl-catch-all-apply 'setvar (list sysvar value))
    )
  )
  (getvar sysvar)
) ;_ end of defun

;|==============================================================
*    Стандартный обработчик ошибок AutoCAD
==============================================================|;
(defun pltool-err (msg)
  (if (member msg
	      '("console break"		  "Function cancelled"
		"Функция отменена"	  "quit / exit abort"
		"выйти прервать"
	       )
      )
    (princ "\nКоманда прервана пользователем")
    (princ
      (strcat "\ERRNO # "
	      (itoa (getvar "ERRNO"))
	      ": "
	      msg
	      "\n"
      )
    )
  )
;;;Прерываем активную команду  
  (while (> (getvar "CMDACTIVE") 0) (command))
  (pl-error-restore-sysvar)
  (vla-endundomark *pl-activedoc*)
  (SSSETFIRST)
  (if acet-ui-progress-done
    (acet-ui-progress-done)
  )
  (vl-cmdf "_.redrawall")
  (princ)
) ;_ end of defun

[Mr. Tuvok]

Скинули бы свою топосъемку и не обязательно в двг формате, можно в растре.

Сообщение от engngr Может, не ваша компетенция сажать здание?

Архитектор обязан знать, что такое черные-красные отметки и уметь правильно посадить здание, хотя бы так чтоб его не затопило.