src/StepDimTol/StepDimTol_ModifiedGeometricTolerance.cdl

   1 -- File:        StepDimTol_ModifiedGeometricTolerance.cdl
   2 -- Created:     Wed Jun  4 13:34:35 2003
   3 -- Author:      Galina KULIKOVA
   4 -- Generator:   ExpToCas (EXPRESS -> CASCADE/XSTEP Translator) V1.2
   5 -- Copyright:   Open CASCADE 2002
   6
   7 class ModifiedGeometricTolerance from StepDimTol
   8 inherits GeometricTolerance from StepDimTol
   9
  10     ---Purpose: Representation of STEP entity ModifiedGeometricTolerance
  11
  12 uses
  13     HAsciiString from TCollection,
  14     MeasureWithUnit from StepBasic,
  15     ShapeAspect from StepRepr,
  16     LimitCondition from StepDimTol
  17
  18 is
  19     Create returns ModifiedGeometricTolerance from StepDimTol;
  20         ---Purpose: Empty constructor
  21
  22     Init (me: mutable; aGeometricTolerance_Name: HAsciiString from TCollection;
  23                        aGeometricTolerance_Description: HAsciiString from TCollection;
  24                        aGeometricTolerance_Magnitude: MeasureWithUnit from StepBasic;
  25                        aGeometricTolerance_TolerancedShapeAspect: ShapeAspect from StepRepr;
  26                        aModifier: LimitCondition from StepDimTol);
  27         ---Purpose: Initialize all fields (own and inherited)
  28
  29     Modifier (me) returns LimitCondition from StepDimTol;
  30         ---Purpose: Returns field Modifier
  31     SetModifier (me: mutable; Modifier: LimitCondition from StepDimTol);
  32         ---Purpose: Set field Modifier
  33
  34 fields
  35     theModifier: LimitCondition from StepDimTol;
  36
  37 end ModifiedGeometricTolerance;