blob: f15d0e292d19126f4f46e59fc1b436953d9cad1b (
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
|
--
-- File : RadiusDimension.cdl
-- Created : Sat 9 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( SIVA )
--
---Copyright : MATRA-DATAVISION 1993
--
class RadiusDimension from IGESDimen inherits IGESEntity
---Purpose: Defines IGES Radius Dimension, type <222> Form <0, 1>,
-- in package IGESDimen.
-- A Radius Dimension Entity consists of a General Note, a
-- leader, and an arc center point. A second form of this
-- entity accounts for the occasional need to have two
-- leader entities referenced.
uses
LeaderArrow from IGESDimen,
GeneralNote from IGESDimen,
XY from gp,
Pnt from gp,
XYZ from gp,
Pnt2d from gp
is
Create returns mutable RadiusDimension;
-- --specific-- --
Init(me : mutable;
aNote : GeneralNote;
anArrow : LeaderArrow;
arcCenter : XY;
anotherArrow : LeaderArrow);
-- This method is used to set fields of the
-- class RadiusDimension
-- - aNote : Note for the dimension
-- - anArrow : Leader arrow used for the dimensioning
-- - arcCenter : Center point of the arc
-- - anotherArrow : Second leader arrow used for the dimensioning
-- (will be Null, if Form no. is 0)
InitForm (me : mutable; form : Integer);
---Purpose : Allows to change Form Number
-- (1 admits null arrow)
Note(me) returns GeneralNote;
---Purpose : returns the General Note entity
Leader(me) returns LeaderArrow;
---Purpose : returns the Leader Arrow entity
Center(me) returns Pnt2d;
---Purpose : returns the coordinates of the Arc Center
TransformedCenter(me) returns Pnt;
---Purpose : returns the coordinates of the Arc Center after Transformation
-- (Z coord taken from ZDepth of Leader Entity)
HasLeader2(me) returns Boolean;
---Purpose : returns True if form is 1, False if 0
Leader2(me) returns LeaderArrow;
---Purpose : returns Null handle if Form is 0
fields
--
-- Class : IGESDimen_RadiusDimension
--
-- Purpose : Declaration of variables specific to the definition
-- of the Class RadiusDimension.
--
-- Reminder : A RadiusDimension instance is defined by :
-- - A General Note
-- - A Leader Arrow
-- - The arc center coordinates
-- - The second Leader Arrow
--
theNote : GeneralNote;
theLeaderArrow : LeaderArrow;
theCenter : XY;
theLeader2 : LeaderArrow; -- Null handle if form is 0
end RadiusDimension;
|
