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 |