7fd59977 |
1 | -- |
2 | -- File : PWBDrilledHole.cdl |
3 | -- Created : Mon 11 Jan 1993 |
4 | -- Author : CKY / Contract Toubro-Larsen ( Anand NATRAJAN ) |
5 | -- |
6 | ---Copyright : MATRA-DATAVISION 1993 |
7 | -- |
8 | |
9 | class PWBDrilledHole from IGESAppli inherits IGESEntity |
10 | |
11 | ---Purpose: defines PWBDrilledHole, Type <406> Form <26> |
12 | -- in package IGESAppli |
13 | -- Used to identify an entity that locates a drilled hole |
14 | -- and to specify the characteristics of the drilled hole |
15 | |
16 | uses Integer, Real -- no one specific type |
17 | |
18 | is |
19 | |
20 | Create returns mutable PWBDrilledHole; |
21 | |
22 | -- Specific Methods pertaining to the class |
23 | |
24 | Init (me : mutable; |
25 | nbPropVal : Integer; |
26 | aDrillDia : Real; |
27 | aFinishDia : Real; |
28 | aCode : Integer); |
29 | ---Purpose : This method is used to set the fields of the class |
30 | -- PWBDrilledHole |
31 | -- - nbPropVal : number of property values, always = 3 |
32 | -- - aDrillDia : Drill diameter size |
33 | -- - aFinishDia : Finish diameter size |
34 | -- - aCode : Function code for drilled hole |
35 | |
36 | NbPropertyValues (me) returns Integer; |
37 | ---Purpose : returns number of property values, always = 3 |
38 | |
39 | DrillDiameterSize (me) returns Real; |
40 | ---Purpose : returns Drill diameter size |
41 | |
42 | FinishDiameterSize (me) returns Real; |
43 | ---Purpose : returns Finish diameter size |
44 | |
45 | FunctionCode (me) returns Integer; |
46 | ---Purpose : returns Function code for drilled hole |
47 | -- is 0, 1, 2, 3, 4, 5 or 5001-9999 |
48 | |
49 | fields |
50 | |
51 | -- |
52 | -- Class : IGESAppli_PWBDrilledHole |
53 | -- |
54 | -- Purpose : Declaration of variables specific to the definition |
55 | -- of the Class PWBDrilledHole. |
56 | -- |
57 | -- Reminder : A PWBDrilledHole instance is defined by : |
58 | -- - number of property values, always = 3 |
59 | -- - Drill diameter size |
60 | -- - Finish diameter size |
61 | -- - Function code for drilled hole |
62 | |
63 | theNbPropertyValues : Integer; |
64 | theDrillDiameter : Real; |
65 | theFinishDiameter : Real; |
66 | theFunctionCode : Integer; |
67 | |
68 | end PWBDrilledHole; |