SetSnapSpacing method example

Sub  SetSnapSpacing_Example()

' This example sets the current X- and Y-snap spacing to 0.5

    Dim viewportObj As AcadViewport

    Set viewportObj = ThisDrawing.ActiveViewport

    ' Turn on Snap and reset the viewport.

    viewportObj.SnapOn = True

    ThisDrawing.ActiveViewport = viewportObj

    ' Find the current Snap spacing

    viewportObj.SetSnapSpacing 0.5, 0.5

    ThisDrawing.ActiveViewport = viewportObj

End Sub

 

Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved.