blob: 95a6660d5d5a468ab9b5ceb9dc85c7199f4cadb6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
--
-- File : NominalSize.cdl
-- Created : Sat 9 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( TCD )
--
---Copyright : MATRA-DATAVISION 1993
--
class NominalSize from IGESGraph inherits IGESEntity
---Purpose: defines IGESNominalSize, Type <406> Form <13>
-- in package IGESGraph
--
-- Specifies a value, a name, and optionally a
-- reference to an engineering standard
uses
HAsciiString from TCollection
is
Create returns mutable NominalSize;
-- Specific Methods pertaining to the class
Init (me : mutable;
nbProps : Integer;
aNominalSizeValue : Real;
aNominalSizeName : HAsciiString from TCollection;
aStandardName : HAsciiString from TCollection);
---Purpose : This method is used to set the fields of the class
-- NominalSize
-- - nbProps : Number of property values (2 or 3)
-- - aNominalSizeValue : NominalSize Value
-- - aNominalSizeName : NominalSize Name
-- - aStandardName : Name of relevant engineering standard
NbPropertyValues (me) returns Integer;
---Purpose : returns the number of property values in <me>
NominalSizeValue (me) returns Real;
---Purpose : returns the value of <me>
NominalSizeName (me) returns HAsciiString from TCollection;
---Purpose : returns the name of <me>
HasStandardName (me) returns Boolean;
---Purpose : returns True if an engineering Standard is defined for <me>
-- else, returns False
StandardName (me) returns HAsciiString from TCollection;
---Purpose : returns the name of the relevant engineering standard of <me>
fields
--
-- Class : IGESGraph_NominalSize
--
-- Purpose : Declaration of the variables specific to a Nominal Size.
--
-- Reminder : A Nominal Size is defined by :
-- - Number of property values
-- - Value
-- - Name
-- - Name of relevant engineering standard
--
theNbPropertyValues : Integer;
theNominalSizeValue : Real;
theNominalSizeName : HAsciiString from TCollection;
theStandardName : HAsciiString from TCollection;
end NominalSize;
|
