If Not IsNothing(pLocator) Then 'pGeocodingProperties = CType(pLocator, IGeocodingProperties2) '10/25/2010, cannot cast Arc9 Locator to IGeocodingProperties2, go back to older interface pGeocodingProperties = CType(pLocator, IGeocodingProperties) ''print out the ESRI default properties BEFORE resetting them: Debug.Print("SpellingSensitivity: " & pGeocodingProperties.SpellingSensitivity.ToString) Debug.Print("MinimumCandidateScore: " & pGeocodingProperties.MinimumCandidateScore.ToString) Debug.Print("MinimumMatchScore: " & pGeocodingProperties.MinimumMatchScore.ToString) Debug.Print("SideOffset: " & pGeocodingProperties.SideOffset.ToString) Dim iEsriUnits As Int32 = pGeocodingProperties.SideOffsetUnits 'esriSystem.esriUnits Select Case iEsriUnits Case 0 Debug.Print("SideOffsetUnits: Unknown") Case 1 Debug.Print("SideOffsetUnits: Inches") Case 2 Debug.Print("SideOffsetUnits: Points") Case 3 Debug.Print("SideOffsetUnits: Feet") Case 4 Debug.Print("SideOffsetUnits: Yards") Case 5 Debug.Print("SideOffsetUnits: Miles") Case 6 Debug.Print("SideOffsetUnits: Nautical miles") Case 7 Debug.Print("SideOffsetUnits: Millimeters") Case 8 Debug.Print("SideOffsetUnits: Centimeters") Case 9 Debug.Print("SideOffsetUnits: Meters") Case 10 Debug.Print("SideOffsetUnits: Kilometers") Case 11 Debug.Print("SideOffsetUnits: Decimal degrees") Case 12 Debug.Print("SideOffsetUnits: Decimeters") Case Else Debug.Print("SideOffsetUnits: other") End Select Debug.Print("MatchIfScoresTie: " & pGeocodingProperties.MatchIfScoresTie.ToString) Debug.Print("AddXYCoordsToMatchFields: " & pGeocodingProperties.AddXYCoordsToMatchFields.ToString) Debug.Print("AddReferenceIDToMatchFields: " & pGeocodingProperties.AddReferenceIDToMatchFields.ToString) Debug.Print("AddPercentAlongToMatchFields: " & pGeocodingProperties.AddPercentAlongToMatchFields.ToString) 'Debug.Print("AddStandardizeStringToMatchFields: " & pGeocodingProperties.AddStandardizeStringToMatchFields.ToString) With pGeocodingProperties .SpellingSensitivity = 63 .MinimumCandidateScore = 10 .MinimumMatchScore = 30 .SideOffset = 20 .SideOffsetUnits = esriUnits.esriFeet .AddXYCoordsToMatchFields = True .AddReferenceIDToMatchFields = True .AddPercentAlongToMatchFields = True '.AddStandardizeStringToMatchFields = True '10/04/2010, ArcGIS 10.0 bug: AddStandardizeStringToMatchFields: "The method or operation is not implemented."} System.NotImplementedException '10/08/2010, the Output Fields checkbox for "Standardized address" is grayed-out in ArcCatalog 10.0 Locator Properties for "US Address -Dual Zone" End With val = pLocator ''NOW print out the properties AFTER resetting them: Debug.Print(vbNewLine & "SpellingSensitivity: " & pGeocodingProperties.SpellingSensitivity.ToString) Debug.Print("MinimumCandidateScore: " & pGeocodingProperties.MinimumCandidateScore.ToString) Debug.Print("MinimumMatchScore: " & pGeocodingProperties.MinimumMatchScore.ToString) Debug.Print("SideOffset: " & pGeocodingProperties.SideOffset.ToString) 'Dim iEsriUnits As Int32 = pGeocodingProperties.SideOffsetUnits 'esriSystem.esriUnits Select Case iEsriUnits Case 0 Debug.Print("SideOffsetUnits: Unknown") Case 1 Debug.Print("SideOffsetUnits: Inches") Case 2 Debug.Print("SideOffsetUnits: Points") Case 3 Debug.Print("SideOffsetUnits: Feet") Case 4 Debug.Print("SideOffsetUnits: Yards") Case 5 Debug.Print("SideOffsetUnits: Miles") Case 6 Debug.Print("SideOffsetUnits: Nautical miles") Case 7 Debug.Print("SideOffsetUnits: Millimeters") Case 8 Debug.Print("SideOffsetUnits: Centimeters") Case 9 Debug.Print("SideOffsetUnits: Meters") Case 10 Debug.Print("SideOffsetUnits: Kilometers") Case 11 Debug.Print("SideOffsetUnits: Decimal degrees") Case 12 Debug.Print("SideOffsetUnits: Decimeters") Case Else Debug.Print("SideOffsetUnits: other") End Select Debug.Print("MatchIfScoresTie: " & pGeocodingProperties.MatchIfScoresTie.ToString) Debug.Print("AddXYCoordsToMatchFields: " & pGeocodingProperties.AddXYCoordsToMatchFields.ToString) Debug.Print("AddReferenceIDToMatchFields: " & pGeocodingProperties.AddReferenceIDToMatchFields.ToString) Debug.Print("AddPercentAlongToMatchFields: " & pGeocodingProperties.AddPercentAlongToMatchFields.ToString) 'Debug.Print("AddStandardizeStringToMatchFields: " & pGeocodingProperties.AddStandardizeStringToMatchFields.ToString) End If
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.