'ADDS THE PERCENTAGE POINT POSITION ON A (PRE-ADDED) FIELD (NAMED x_Val) RELATIVE TO A CONTIGUOUS POLYLINE SHAPEFILE

theView = av.GetActiveDoc
TheThemeList=TheView.GetThemes
TheTheme1=TheThemeList.Get(0)
TheTheme2=TheThemeList.Get(1)

TheLineFtab=TheTheme1.GetFtab
ThepoinFtab=TheTheme2.GetFtab

TheLine=TheLineFtab.ReturnValue(TheLineFtab.FindField("Shape"),0)

for each rec in ThePoinFtab
  ThePoint=ThePoinFtab.ReturnValue(ThePoinFtab.FindField("Shape"),rec)
  ThePos=TheLine.PointPosition(ThePoint)
  ThePoinFtab.SetValue(ThePoinFtab.FindField("x_val"),rec,ThePos)
end