src/StepDimTol/StepDimTol_CommonDatum.cdl

   1 -- Created on: 2003-06-04
   2 -- Created by: Galina KULIKOVA
   3 -- Copyright (c) 2003-2014 OPEN CASCADE SAS
   4 --
   5 -- This file is part of Open CASCADE Technology software library.
   6 --
   7 -- This library is free software; you can redistribute it and/or modify it under
   8 -- the terms of the GNU Lesser General Public License version 2.1 as published
   9 -- by the Free Software Foundation, with special exception defined in the file
  10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  11 -- distribution for complete text of the license and disclaimer of any warranty.
  12 --
  13 -- Alternatively, this file may be used under the terms of Open CASCADE
  14 -- commercial license or contractual agreement.
  15
  16 -- Generator:   ExpToCas (EXPRESS -> CASCADE/XSTEP Translator) V1.2
  17
  18 class CommonDatum from StepDimTol
  19 inherits CompositeShapeAspect from StepRepr
  20
  21     ---Purpose: Representation of STEP entity CommonDatum
  22
  23 uses
  24     HAsciiString from TCollection,
  25     ProductDefinitionShape from StepRepr,
  26     Logical from StepData,
  27     Datum from StepDimTol
  28
  29 is
  30     Create returns CommonDatum from StepDimTol;
  31         ---Purpose: Empty constructor
  32
  33     Init (me: mutable; aShapeAspect_Name: HAsciiString from TCollection;
  34                        aShapeAspect_Description: HAsciiString from TCollection;
  35                        aShapeAspect_OfShape: ProductDefinitionShape from StepRepr;
  36                        aShapeAspect_ProductDefinitional: Logical from StepData;
  37                        aDatum_Name: HAsciiString from TCollection;
  38                        aDatum_Description: HAsciiString from TCollection;
  39                        aDatum_OfShape: ProductDefinitionShape from StepRepr;
  40                        aDatum_ProductDefinitional: Logical from StepData;
  41                        aDatum_Identification: HAsciiString from TCollection);
  42         ---Purpose: Initialize all fields (own and inherited)
  43
  44     Datum (me) returns Datum from StepDimTol;
  45         ---Purpose: Returns data for supertype Datum
  46     SetDatum (me: mutable; Datum: Datum from StepDimTol);
  47         ---Purpose: Set data for supertype Datum
  48
  49 fields
  50     theDatum: Datum from StepDimTol; -- supertype
  51
  52 end CommonDatum;