Thanks for all the help Mark Ogilvie gave me the right answer. Peter. Include "MENU.DEF" Include "MAPBASIC.DEF" Dim i, this_rowid As Integer, f_x_st, f_y_st, f_x_sl, f_y_sl As Float i = 1 Fetch first from Test Do While Not EOT (test) f_x_st = ObjectGeograPhy (test.obj, OBJ_GEO_LINEBEGX) f_y_st = ObjectGeograPhy (test.obj, OBJ_GEO_LINEBEGY) f_x_sl = ObjectGeograPhy (test.obj, OBJ_GEO_LINEENDX) f_y_sl = ObjectGeograPhy (test.obj, OBJ_GEO_LINEENDY) this_rowid = test.rowid Update test Set x_START = f_x_st Where rowid = this_rowid Update test Set y_START = f_y_st Where Rowid = this_rowid Update test Set x_SLUT = f_x_sl Where Rowid = this_rowid Update test Set y_SLUT = f_y_sl where Rowid = this_rowid Fetch Next From test i = i + 1 Loop ---------------------------------------------------------------------- To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put "unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
