Dim wcs2ucs As Matrix3d = doc.Editor.CurrentUserCoordinateSystem.Inverse()Dim ucsPoint As Point3d = worldPoint.TransformBy(wcs2ucs)