blob: 5c2c5f1ec42a6271e86c26c8b525094f3eeb30ee (
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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
--
-- File : CurveDimension.cdl
-- Created : Wed 13 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( Deepak PRABHU )
--
---Copyright : MATRA-DATAVISION 1993
--
class CurveDimension from IGESDimen inherits IGESEntity
---Purpose: defines CurveDimension, Type <204> Form <0>
-- in package IGESDimen
-- Used to dimension curves
-- Consists of one tail segment of nonzero length
-- beginning with an arrowhead and which serves to define
-- the orientation
uses
GeneralNote from IGESDimen,
LeaderArrow from IGESDimen,
WitnessLine from IGESDimen
is
Create returns mutable CurveDimension;
-- Specific Methods pertaining to the class
Init (me : mutable;
aNote : GeneralNote;
aCurve : IGESEntity;
anotherCurve : IGESEntity;
aLeader : LeaderArrow;
anotherLeader : LeaderArrow;
aLine : WitnessLine;
anotherLine : WitnessLine);
---Purpose : This method is used to set the fields of the class
-- CurveDimension
-- - aNote : General Note Entity
-- - aCurve : First Curve Entity
-- - anotherCurve : Second Curve Entity or a Null Handle
-- - aLeader : First Leader Entity
-- - anotherLeader : Second Leader Entity
-- - aLine : First Witness Line Entity or a Null
-- Handle
-- - anotherLine : Second Witness Line Entity or a Null
-- Handle
Note (me) returns GeneralNote;
---Purpose : returns the General Note Entity
FirstCurve (me) returns IGESEntity;
---Purpose : returns the First curve Entity
HasSecondCurve (me) returns Boolean;
---Purpose : returns False if theSecondCurve is a Null Handle.
SecondCurve (me) returns IGESEntity;
---Purpose : returns the Second curve Entity or a Null Handle.
FirstLeader (me) returns LeaderArrow;
---Purpose : returns the First Leader Entity
SecondLeader (me) returns LeaderArrow;
---Purpose : returns the Second Leader Entity
HasFirstWitnessLine (me) returns Boolean;
---Purpose : returns False if theFirstWitnessLine is a Null Handle.
FirstWitnessLine (me) returns WitnessLine;
---Purpose : returns the First Witness Line Entity or a Null Handle.
HasSecondWitnessLine (me) returns Boolean;
---Purpose : returns False if theSecondWitnessLine is a Null Handle.
SecondWitnessLine (me) returns WitnessLine;
---Purpose : returns the Second Witness Line Entity or a Null Handle.
fields
--
-- Class : IGESDimen_CurveDimension
--
-- Purpose : Declaration of variables specific to the definition
-- of the Class CurveDimension.
--
-- Reminder : A CurveDimension instance is defined by :
-- - General Note Entity
-- - First Curve Entity
-- - Second Curve Entity or a Null Handle.
-- - First Leader Entity
-- - Second Leader Entity
-- - First Witness Line Entity or a Null Handle.
-- - Second Witness Line Entity or a Null Handle.
-- A CurveDimension Entity consists of a general note, one or two
-- parametrized curves, two leaders, and zero, one, or two witness lines.
theNote : GeneralNote;
theFirstCurve : IGESEntity;
theSecondCurve : IGESEntity;
theFirstLeader : LeaderArrow;
theSecondLeader : LeaderArrow;
theFirstWitnessLine : WitnessLine;
theSecondWitnessLine : WitnessLine;
end CurveDimension;
|
