Längen automatisch in Attributtabellen

Es gibt dazu eine nette Homepage von IANKO auf der verschiedenen Rechnungsformeln/Befehlsketten zu finden sind. Das Modul heißt Easy Calculate 5.0. Diese Rechenausdrücke als .cal-Datei kann man sich in den Taschenrechner laden und dann die jeweilige Berechnung durchführen!

http://www.ian-ko.com/

Der Ausdruck zum Berechnen der Längen von Polylinien ist gemäß IANKO der folgende:

'=========================
'shape_Return_Length.cal
'Author: Ianko Tchoukanski
'http://www.ian-ko.com
'=========================
On Error Resume Next
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pGeometry As IGeometry
Dim pCurve As ICurve
Dim dLength As Double
Dim bSrefFromMap As Boolean
'=======================
'Adjust the parameter below
'True ==> the length will be calculated in the projection of the Map
'False ==> the length will be calculated in the projection of the data
bSrefFromMap = True
'=======================
If (IsNull([Shape])) Then
dLength = -1
Else
Set pGeometry = [Shape]
If (pGeometry.IsEmpty) Then
dLength = -1
Else
If (bSrefFromMap) Then
Set pMxDoc = ThisDocument
Set pMap = pMxDoc.FocusMap
pGeometry.Project pMap.SpatialReference
End If
Set pCurve = pGeometry
dLength = pCurve.Length
End If
End If


Du kannst entweder diesen Ausdruck direkt in den Taschenrechner hineinkopieren und berechnen oder gehst auf die HP und schaust dich da mal um, um dir das Easy Calculate- Modul herunterzuladen!
Sehr hilfreich!
Gruß Alex

Danke für den Link - echt guter Tip und wirklich hilfreiche Seite!