src/IGESAppli/IGESAppli_PartNumber.cdl

   1 -- Created on: 1993-01-11
   2 -- Created by: CKY / Contract Toubro-Larsen ( Anand NATRAJAN )
   3 -- Copyright (c) 1993-1999 Matra Datavision
   4 -- Copyright (c) 1999-2012 OPEN CASCADE SAS
   5 --
   6 -- The content of this file is subject to the Open CASCADE Technology Public
   7 -- License Version 6.5 (the "License"). You may not use the content of this file
   8 -- except in compliance with the License. Please obtain a copy of the License
   9 -- at http://www.opencascade.org and read it completely before using this file.
  10 --
  11 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
  12 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  13 --
  14 -- The Original Code and all software distributed under the License is
  15 -- distributed on an "AS IS" basis, without warranty of any kind, and the
  16 -- Initial Developer hereby disclaims all such warranties, including without
  17 -- limitation, any warranties of merchantability, fitness for a particular
  18 -- purpose or non-infringement. Please see the License for the specific terms
  19 -- and conditions governing the rights and limitations under the License.
  20
  21
  22 class PartNumber from IGESAppli  inherits IGESEntity
  23
  24         ---Purpose: defines PartNumber, Type <406> Form <9>
  25         --          in package IGESAppli
  26         --          Attaches a set of text strings that define the common
  27         --          part numbers to an entity being used to represent a
  28         --          physical component
  29
  30 uses
  31
  32         HAsciiString from TCollection
  33
  34 is
  35
  36         Create returns mutable PartNumber;
  37
  38         -- Specific Methods pertaining to the class
  39
  40         Init (me        : mutable;
  41               nbPropVal : Integer;
  42               aGenName  : HAsciiString;
  43               aMilName  : HAsciiString;
  44               aVendName : HAsciiString;
  45               anIntName : HAsciiString);
  46         ---Purpose : This method is used to set the fields of the class
  47         --           PartNumber
  48         --       - nbPropVal : number of property values, always = 4
  49         --       - aGenName  : Generic part number or name
  50         --       - aMilName  : Military Standard (MIL-STD) part number
  51         --       - aVendName : Vendor part number or name
  52         --       - anIntName : Internal part number
  53
  54         NbPropertyValues (me) returns Integer;
  55         ---Purpose : returns number of property values, always = 4
  56
  57         GenericNumber (me) returns HAsciiString from TCollection;
  58         ---Purpose : returns Generic part number or name
  59
  60         MilitaryNumber (me) returns HAsciiString from TCollection;
  61         ---Purpose : returns Military Standard (MIL-STD) part number
  62
  63         VendorNumber (me) returns HAsciiString from TCollection;
  64         ---Purpose : returns Vendor part number or name
  65
  66         InternalNumber (me) returns HAsciiString from TCollection;
  67         ---Purpose : returns Internal part number
  68
  69 fields
  70
  71 --
  72 -- Class    : IGESAppli_PartNumber
  73 --
  74 -- Purpose  : Declaration of variables specific to the definition
  75 --            of the Class PartNumber.
  76 --
  77 -- Reminder : A PartNumber instance is defined by :
  78 --            - number of property values, always = 4
  79 --            - Generic part number or name
  80 --            - Military Standard (MIL-STD) part number
  81 --            - Vendor part number or name
  82 --            - Internal part number
  83
  84         theNbPropertyValues : Integer;
  85         theGenericNumber    : HAsciiString;
  86         theMilitaryNumber   : HAsciiString;
  87         theVendorNumber     : HAsciiString;
  88         theInternalNumber   : HAsciiString;
  89
  90 end PartNumber;