Support

As evidenced by over 30 years of development history, trust-worthy Korean CAD, CADian!

FAQ · 2013.12.11
CADian VBA Sample Code - 20 [ Snap ]
Check the SNAP Gap in current drawing.

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

Added to cart.

VIEW CART

Please sign in first.

JOIN