GefObject.HorizontalShear (property)

Gets and sets the horizontal shear of the object in radians.
Syntax: double = object.HorizontalShear
object.HorizontalShear = double
Description: For GefObject, it returns the horizontal shear of the object in radians.

The shear angle will be constrained to lie between approximately -1.48 to 1.48 radians (-85 to 85 degrees).

Some object types ignore this property.

Example:



Example:

Sub GefObject_HorizontalShear()
    
    Dim oCimObj As GefObject
    
    Set oCimObj = CimGetObject
    oCimObj.HorizontalShear = 1.5
    
    CimGetScreen.Refresh False
    
    MsgBox "The horizontal shear was set to " & _
        oCimObj.HorizontalShear
    
End Sub