| Gets and sets maximum angle of rotation in radians. | |
| Syntax: | VARIANT =
object.MaxAngle object.MaxAngle = VARIANT |
| Description: | This is the angle the object will be rotated when
the expression is at MaxExprValue. Example: Sub GefRotateAnim_MaxAngle() Dim oCimObj As GefObject Dim oCimRotateAnim As
GefRotateAnim Set oCimObj = CimGetObject Set oCimRotateAnim =
oCimObj.RotateAnim If Not oCimRotateAnim Is Nothing
Then MsgBox "The
maximum angle for the rotation is " & _ oCimRotateAnim.MaxAngle
& " radians" End If End Sub |