Месец: април 2013

Categories
Упътвания

Софтуер за изравнение на нивелачни мрежи

Параметрично изравнение на нивелачни мрежи с прорамата ПИНМ

Структура на входния файл с измервания

Всеки ред от файла трябва да има следната структура:

нр100 нр200 5 100 10
  • нр100 – от нивелачен репер;
  • нр200 – до нивелачен репер;
  • 5 – измерено превишение;
  • 10 – брой станции (незадължителен параметър).

Структура на входния файл с нивелачни репери

Всеки ред от файла трябва да има следната структура:

нр100 500.25
  • нр100 – име на репер;
  • 500.25 – височина на репера.

Тежести

Предлагат се три модела на тежестите:

  • Тежест P = средна дължина на нивелачен ход S ср. / дължина на нивелачен ход S;
  • Тежест P = 1 / брой станции за нивелачен ход n;
  • Тежест P = 1 / абсолютна стойност на измерено превишение |h|.

Анализ

Показва следните параметри:

  • Коефициентите пред неизвестните в уравненията на поправките;
  • Свободните членове в уравненията на поправките;
  • Коефициентите пред неизвестните в нормалните уравнения;
  • Неизвестните при решаване на Система нормални уравнения.

Приблизителни височини

  • Ръчно въвеждане на приблизителни височини;
  • Автоматично изчисляване на приблизителни височини.
Categories
VBA

Гирусно измерване на посоки

Екселска таблица за гирусно измерване на посоки.

Връзка: Гирусно измерване на посоки

Визуализация:

Excel - Гирусно измерване на посоки
Categories
VB.NET

Отваряне на ESRI Shape (SHP) файлове

Проект на VB.NET за отваряне на ESRI Shape (*.shp) файлове.

Използва е библиотеката SharpMap.

Функционалност:

  • Отваряне на файл;
  • Показване/скриване на слой;
  • Приближаване в пълен обхват;
  • Местене.

Този код може да се използва и модифицира без никакви ограничения.

Автор: GNNMobile.eu

Imports SharpMap
Imports System.IO
Imports System.Drawing
Public Class Main
Private isNewLayer As Boolean = False
Private Sub formLoad() Handles MyBase.Load
Try
btnZoomToExtents.Enabled = False
btnPan.Enabled = False
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub zoomToExtents() Handles btnZoomToExtents.Click
Try
With MC
.Map.ZoomToExtents()
.Refresh()
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub pan() Handles btnPan.Click
Try
MC.ActiveTool = SharpMap.Forms.MapBox.Tools.Pan
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub open() Handles btnOpen.Click
Try
With OpenFD
.InitialDirectory = Directory.GetCurrentDirectory
.Title = "Отваряне на Shp файл:"
.Filter = "Shp файлове (*.shp)|*.shp"
End With
If OpenFD.ShowDialog = DialogResult.OK Then
addLayer(OpenFD.SafeFileName, OpenFD.FileName)
isNewLayer = True
Layers.Items.Add(OpenFD.SafeFileName, True)
btnZoomToExtents.Enabled = True
btnPan.Enabled = True
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub changeLayerVisibility() Handles Layers.ItemCheck
Try
If isNewLayer = False Then
Dim layer As SharpMap.Layers.ILayer = MC.Map.Layers(Layers.SelectedItem)
layer.Enabled = If(Layers.GetItemCheckState(Layers.SelectedIndex) = 0, True, False)
MC.Refresh()
Else
isNewLayer = False
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub addLayer(ByVal layerName As String, ByVal file As String)
Dim vectorLayer = New SharpMap.Layers.VectorLayer(layerName)
vectorLayer.DataSource = New SharpMap.Data.Providers.ShapeFile(file, True)
With MC
.Map.Layers.Add(vectorLayer)
.Map.ZoomToExtents()
.Refresh()
End With
End Sub
End Class
view raw Main.vb hosted with ❤ by GitHub

Визуализация:

SharpMap Shapefile Demo
Categories
VBA

Вмъкване на точки от файл в AutoCAD

Описание:

Програма на VBA за вмъкване на точки от файл в AutoCAD.

Точките трябва да са форматирани по следния начин: N X Y Z, като не е задължително да се въвежда Z координата.

За разделител се използва интервал.

Работа със скрипта:

  • С команда appload се зарежда файла PntIn.dvb;
  • С команда -vbarun се стартира pntin.

Връзка: PntIn – Вмъкване на точки в AutoCAD

Визуализация:

pntin
Categories
VBA

Автоматична номерация в AutoCAD

Описание:

Програма на VBA за автоматична номерация в AutoCAD.

Има следните функции:

  • Добавяне на префикс (текст, който ще се показва преди номера);
  • Добавяне на стъпка при номериране (по подразбиране 1);
  • Избор на обхват Начало-Край (Край – незадължителен);
  • Избор на римски или арабски цифри при номериране;
  • Възможност за промяна височината на текста.

Работа със скрипта:

  • С команда appload се зарежда файла AutoNum.dvb;
  • С команда -vbarun се стартира autonum.

Връзка: AutoNum – Автоматична номерация в AutoCAD

Визуализация:

autonum