Properties
- Property ShiftValue() As
- Retrieves or sets shift value of tolerance zone (in millimeters). The shift value is the distance between the toleranced surface and the median surface of tolerance zone. The value is always positive because shift side is given by GetShiftSide method.
Methods
- Sub GetShiftDirection( opDirection)
-
Retrieves the shift direction by two points.
- Parameters:
-
- opDirection
- The first 3 values of opDirection correspond to the X,Y and Z values of the start point respectively and the next 3 values correspond to the X, Y and Z values of the end point respectively.
- Example:
-
This example gets the start and end points in a VB Script Dim oTab(6) As CATSafeArrayVariant Set shiftTol = annotation.ShiftedProfileTolerance shiftTol.GetShiftDirection(oTab) oStream.Write " Shifted Direction Start Point : "& oTab(0) & " " & oTab(1) & " " & oTab(2) & sLF oStream.Write " Shifted Direction End Point : "& oTab(3) & " " & oTab(4) & " " & oTab(5) & sLF
- Sub GetShiftSide( opPoint)
-
Retrieves shift side.
- Parameters:
-
- opPoint
- a mathematical point located on the shift side of surface. The 3 values of opPoint correspond to the X,Y and Z values of the point located on the shift side of surface.
- Example:
-
This example gets the shift side point in a VB Script Dim oShiftTab(3) As CATSafeArrayVariant Set shiftTol = annotation.ShiftedProfileTolerance shiftTol.GetShiftSide(oShiftTab) oStream.Write " Shifted Side Point : "& oShiftTab(0) & " " & oShiftTab(1) & " " & oShiftTab(2) & sLF