This VBA script calculates x/y values from the Shape field to another field. It used to work for me in 9.3 but doesn't work anymore for 10 because of the switch to VB/Python. How would I rewrite this in VB or Python to work in 10? The 'Calculate Geometry' function is useless to me because I want to use it in a model and 'Add X/Y' creates new fields rather than calculating existing ones.
Pre-Logic Script Code: dim dblx as double dim dbly as double dim pPoint as Ipoint set pPoint = [Shape] dblx = pPoint.x dbly = pPoint.y Field= dbly