Community
This code uses Editor.CurrentUserCoordinateSystem, and returns the angle in radians.
Friend Shared Function GetUCSRotation() As Double
Try
Dim CurUcs As CoordinateSystem3d = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocum ent.Editor.CurrentUserCoordinateSystem.CoordinateSystem3d()
Dim WorldNormal As New Vector3d(0, 0, 1)
Dim CurXvec As Vector3d = CurUcs.Xaxis
Dim WorldXY As New Plane(CurUcs.Origin, WorldNormal)
Return CurXvec.AngleOnPlane(WorldXY)
Catch ex As System.Exception
EdWrite(ex.Message & " In: " & ex.Source & vbCrLf & ex.StackTrace & vbCrLf)
Return Nothing
End Try
End Function