Тахеометрическая съёмка

Vivolg (2005-07-17 20:53:50)
Представь ,что ты уже работаешь-
находишься где-то далеко от жилья- У твоего бука сели аккумуляторы подзарядить нечем, а тебе надо срочно что-то подсчитать. Учись считать в ручнуую дальше будет легче жить :)

Я посоветую Credo Dat или ГИС Конструктор "Геодезия 2.4" я на практике именно этой программой все и считал.
с Уважением Михаил

> Vivolg
Как говорил герой одного анекдота: и ты прав и ты прав и я прав. Но легче от этого не становится.
Посмотри страничку https://www.caduser.ru/forum/forum40.html
Там я сказал где лежат бесплатные программы для тахеометрии. Правда тахеометрия подразумевается не электронная, а простая - теодолитная. Но по рассказам практикантов из МИИГАиК'а их к эл.тахеометрам не подпускают.
Есть и градусы и минуты и даже доли минут. Есть и конвертер содеянного в DXF-файл для АутоКАД'а.
А делать свою будущую работу готовься в самых разных условиях и при самой неожиданной экипировке, если конечно это твоя профессия.
Учись, студент! - как говорил еще один герой из кинофильма.

Добрый вечер.
Советую для работы с угловыми величинами в Excel использовать пользовательские функции:
Public Const pi = 3.14159265358979
Public Const delta = 0.00000000001
'Перевод углов в формате D.mmss в радианы
Function Radian(Grad As Double) As Double
If Grad >= 0 Then
Grad = Grad + delta
Else
Grad = Grad - delta
End If
g = Fix(Grad)
mm = (Fix((Grad - g) * 100)) / 60
ss = (Grad * 100 - Fix(Grad * 100)) / 36
Radian = (g + mm + ss) / 180 * pi
End Function
'Перевод углов из радиан в формат D.mmss.
Function Gradus(Rad As Double) As Double
Grad = Rad * 180 / pi
g = Fix(Grad)
mm = Fix((Grad - g) * 60) / 100
ss = ((Grad - g) * 60 - Fix((Grad - g) * 60)) * 0.006
Gradus = g + mm + ss
If Gradus >= 0 Then
Gradus = Gradus + delta
Else
Gradus = Gradus - delta
End If
End Function
'Вычисление дирекционного угла
Function Direct(x1 As Double, y1 As Double, _
x2 As Double, y2 As Double) As Double
dX = x1 - x2
dY = y1 - y2
S = Sqr(dX ^ 2 + dY ^ 2)
If dY >= 0 Then
Direct = Application.Acos(dX / S) + pi + delta
Else: Direct = Application.Acos(dX / S) * -1 + pi + delta
End If
If Direct >= pi * 2 Then
Direct = Direct - pi * 2
End If
End Function
'Вычисление расстояния между двумя точками
Function Dist(x1 As Double, y1 As Double, _
x2 As Double, y2 As Double) As Double
dX = x1 - x2
dY = y1 - y2
Dist = Sqr(dX ^ 2 + dY ^ 2)
End Function
В пустой книге откройте VBA, создайте модуль, скопируйте функции и вставте в модуль. Сохраните файл как надстройку с любым именем. В меню сервис-надстройки активируйте ее.
Вопросы можно на e-mail cneogeod@mail.ru
C edf;tybtv? Fktrcfylh/