GetSnapSpacing Method (IntelliCAD)

Collapse All Expand All

Viewport Object : GetSnapSpacing Method

Description

Sets or returns the current snap spacing setting value.

Visual Basic
Public Sub GetSnapSpacing( _ ByRef Xspacing As Double, _ ByRef Yspacing As Double _ )

Sub GetSnapSpacing_Example()

' This example finds the current Snap spacing.

' First, find the current active viewport

Dim viewportObj As IntelliCAD.Viewport

Dim XSnap As Double

Dim YSnap As Double

Set viewportObj = ThisDocument.ActiveViewport

' Turn on Snap and reset the viewport.

viewportObj.SnapOn = True

ThisDocument.ActiveViewport = viewportObj

' Find the current Snap spacing

viewportObj.GetSnapSpacing XSnap, YSnap

MsgBox "X Snap Spacing = " & XSnap & " Y Snap Spacing = " & YSnap

End Sub