Setting the UCS to WCS

        <CommandMethod("restoreWCS")> _

        Public Sub restoreWCS()

            Dim doc As Document = _

                       Application.DocumentManager.MdiActiveDocument

            Dim ed As Editor = doc.Editor

            ed.CurrentUserCoordinateSystem = Matrix3d.Identity

            ed.Regen()

        End Sub