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 |