[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
in the upper-left corner of the page.