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 |