| 7fd59977 |
1 | -- |
| 2 | -- File : DrilledHole.cdl |
| 3 | -- Created : Mon 11 Jan 1993 |
| 4 | -- Author : CKY / Contract Toubro-Larsen ( Arun MENON ) |
| 5 | -- |
| 6 | ---Copyright : MATRA-DATAVISION 1993 |
| 7 | -- |
| 8 | |
| 9 | class DrilledHole from IGESAppli inherits IGESEntity |
| 10 | |
| 11 | ---Purpose: defines DrilledHole, Type <406> Form <6> |
| 12 | -- in package IGESAppli |
| 13 | -- Identifies an entity representing a drilled hole |
| 14 | -- through a printed circuit board. |
| 15 | |
| 16 | uses Integer, Real -- no one specific type |
| 17 | |
| 18 | |
| 19 | is |
| 20 | |
| 21 | Create returns mutable DrilledHole; |
| 22 | |
| 23 | -- Specific Methods pertaining to the class |
| 24 | |
| 25 | Init (me : mutable; |
| 26 | nbPropVal : Integer; |
| 27 | aSize : Real; |
| 28 | anotherSize : Real; |
| 29 | aPlating : Integer; |
| 30 | aLayer : Integer; |
| 31 | anotherLayer : Integer); |
| 32 | ---Purpose : This method is used to set the fields of the class |
| 33 | -- DrilledHole |
| 34 | -- - nbPropVal : Number of property values = 5 |
| 35 | -- - aSize : Drill diameter size |
| 36 | -- - anotherSize : Finish diameter size |
| 37 | -- - aPlating : Plating indication flag |
| 38 | -- False = not plating |
| 39 | -- True = is plating |
| 40 | -- - aLayer : Lower numbered layer |
| 41 | -- - anotherLayer : Higher numbered layer |
| 42 | |
| 43 | NbPropertyValues (me) returns Integer; |
| 44 | ---Purpose : is always 5 |
| 45 | |
| 46 | DrillDiaSize (me) returns Real; |
| 47 | ---Purpose : returns the drill diameter size |
| 48 | |
| 49 | FinishDiaSize (me) returns Real; |
| 50 | ---Purpose : returns the finish diameter size |
| 51 | |
| 52 | IsPlating (me) returns Boolean; |
| 53 | ---Purpose : Returns Plating Status : |
| 54 | -- False = not plating / True = is plating |
| 55 | |
| 56 | NbLowerLayer (me) returns Integer; |
| 57 | ---Purpose : returns the lower numbered layer |
| 58 | |
| 59 | NbHigherLayer (me) returns Integer; |
| 60 | ---Purpose : returns the higher numbered layer |
| 61 | |
| 62 | fields |
| 63 | |
| 64 | -- |
| 65 | -- Class : IGESAppli_DrilledHole |
| 66 | -- |
| 67 | -- Purpose : Declaration of variables specific to the definition |
| 68 | -- of the Class DrilledHole. |
| 69 | -- |
| 70 | -- Reminder : A DrilledHole instance is defined by : |
| 71 | -- - Number of property values (equal to 5) |
| 72 | -- - Drill diameter size |
| 73 | -- - Finish diameter size |
| 74 | -- - Plating indication flag |
| 75 | -- - Lower numbered layer |
| 76 | -- - Higher numbered layer |
| 77 | |
| 78 | theNbPropertyValues : Integer; |
| 79 | theDrillDiaSize : Real; |
| 80 | theFinishDiaSize : Real; |
| 81 | thePlatingFlag : Integer; |
| 82 | theNbLowerLayer : Integer; |
| 83 | theNbHigherLayer : Integer; |
| 84 | |
| 85 | end DrilledHole; |
projects / occt.git / blame