'** Project the specified points into the appropriate UTM projection Private Function UTMNAD83(ByVal UTM_Zone As Integer, _ ByVal pPCS As IProjectedCoordinateSystem) As Boolean Dim pSpatialRefFactory As ISpatialReferenceFactory2 UTMNAD83 = False 'Specify the output map projection pSpatialRefFactory = New SpatialReferenceEnvironment Select Case UTM_Zone Case 1 pPCS = pSpatialRefFactory.CreateProjectedCoordinateSystem _ (esriSRProjCS_NAD1983UTM_10N) '(esriSRProjCS_NAD1983_UTM_Zone_1N) Case 2 pPCS = pSpatialRefFactory.CreateProjectedCoordinateSystem _ (esriSRProjCS_NAD1983_UTM_Zone_2N) Case 3 pPCS = pSpatialRefFactory.CreateProjectedCoordinateSystem _ (esriSRProjCS_NAD1983UTM_3N) Case 4 pPCS = pSpatialRefFactory.CreateProjectedCoordinateSystem _ (esriSRProjCS_NAD1983UTM_4N)
Solved! Go to Solution.
It doesn't seem to exist in this lib