Gets and sets the vertical shear of the object in radians. | |
Syntax: | double =
object.VerticalShear object.VerticalShear = double |
Description: | For GefObject it returns the vertical 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: Sub GefObject_VerticalShear() Dim oCimObj As GefObject Dim nRadians As Double Set oCimObj = CimGetObject oCimObj.VerticalShear = pi /
4 CimGetScreen.Refresh False If oCimObj.VerticalShear = 0
Then MsgBox "This
object ignores the vertical shear property" Else MsgBox "The
current vertical shear is now set to " & _ "45
degrees" End If End Sub |