ArcObjects Library Reference  (ArcScan)    

esriArcScan IRasterSnappingProperties Example

[Visual Basic 6.0]

The following code shows how to set Centerline Snap Agent and snap to a point.

 

Sub CenterlineSnap()
  Dim pSnapEnv As ISnapEnvironment
  Dim pSnapAgent As ISnapAgent
  Dim pUID As New UID
  Dim pEditor As IEditor
  Dim pPnt As IPoint
  Dim pGeom As IGeometry
 
  'Create CenterlinesSnap object
  Set pSnapAgent = New CenterlinesSnap
 
  'Set Snapping environment
  pUID = "esriEditor.Editor"
  Set pEditor = Application.FindExtensionByCLSID(pUID)
  Set pSnapEnv = pEditor  'QI
 
  'Add Centerlines snapAgent
  pSnapEnv.AddSnapAgent pSnapAgent
 
  'Set snapping tolerance
  pSnapEnv.SnapTolerance = 65415.9773462015
  pSnapEnv.SnapToleranceUnits = 1 'map units
 
  'Create a point to snap to
  Set pPnt = New Point
  pPnt.PutCoords 410972.13, -7638023.57
   
  'Call Snap function indirectly by calling ISnapEnvironment::SnapPoint
  pSnapEnv.SnapPoint pPnt

End Sub

[Visual Basic .NET, C#, C++]
No example is available for Visual Basic .NET, C#, or C++. To view a Visual Basic 6.0 example, click the Language Filter button Language Filter in the upper-left corner of the page.