'** 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)
It doesn't seem to exist in this lib
Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.