Trying to calculate sinuosity via Field Calculator (ArcGIS v 10.2.2); VBA
Pre-Logic Script Code:
Dim dblLe as double Dim dblLf as double Dim dblS as double Dim pCurve as Icurve Dim pFPoint as IPoint Dim pTPoint as IPoint Set pCurve = [Shape] Set pFPoint = pCurve.FromPoint Set pTPoint = pCurve.ToPoint dblLe = Sqr((pFPoint.X - pTPoint.X)^2 + (pFPoint.Y - pTPoint.Y)^2) dblLf = pCurve.Length dblS = dblLe/dblLf
I know ESRI has a python script put I am try to run via Field Calculator. Anyone see my error?