GefObject.Rotation (read-only property)

Gets the current rotation of the object in radians.
Syntax: double = object.Rotation
Description: For GefObject, it returns the current rotation of the object in radians.

Many objects do not keep track of their rotation. Using the Rotate method on these objects modifies the coordinates of the object and the Rotation property remains zero.

Example:

Sub GefObject_Rotation()
    
    Dim oCimObj As GefObject
    Set oCimObj = CimGetObject
    oCimObj.Rotate pi / 4
    CimGetScreen.Refresh False
    MsgBox "The objects rotation is currently set to " & _
        oCimObj.Rotation & " radians"
    
End Sub