Calculate distance between consecutive points

Question

Hi 
I wish to calculate the distance between consecutive points in a feature class.
I tried using the following code in the "Pre-Logic VBA Script Code" box in the Field Calculator dialog -
 
static x0 as double, y0 as double ' Previous location
dim pPoint as IPoint
set pPoint = [Shape]

x = pPoint.X
y = pPoint.Y
d = sqr((x - x0)^2 + (y - y0)^2) ' Distance
x0 = x
y0 = y

but it doesn't work. Does anyone have any suggestions? Thanks for any help anyone can give me.

RichardFairhurst · Answer

Hi Richard,
great! thanks for that. One slight error the if statement should read - if x0 == 0.0 and y0 = =0.0:
Very much appreciated!

I only write VB Script calculations if I don't have to use Python, so when I have to use Python I always forget that = is not == (there is no such thing as == in VB Script).  So I normally make that mistake in all the code examples I write from memory on the Forum that I have not actually run.  In any case, glad it works for what you needed.

RichardFairhurst · Answer

Hi Richard,
great! thanks for that. One slight error the if statement should read - if x0 == 0.0 and y0 = =0.0:
Very much appreciated!

I always forget that.  I am a VB Script guy more than a Python guy and that trips me up all the time.  Anyway, glad you got it working.

karreno · Answer

Hi Richard,
great! thanks for that. One slight error the if statement should read - if x0 == 0.0 and y0 = =0.0:
Very much appreciated!