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 |