<CommandMethod("SetSB")> _
    Public Shared Sub SetSnapBase()
    Dim dwg As Document = Application.DocumentManager.MdiActiveDocument
    Dim ed As Editor = dwg.Editor
    Dim sBase As Point2d = CType(Application.GetSystemVariable("SNAPBASE"), Point2d)
    ed.WriteMessage("SNAPBASE: X={0} Y={1}", sBase.X, sBase.Y)
    Dim newBase As New Point2d(2.0, 2.0)
    Application.SetSystemVariable("SNAPBASE", newBase)
    ed.WriteMessage("SNAPBASE: X={0} Y={1} ", sBase.X, sBase.Y)
End Sub