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
108
109
110
111
112
113
114
115
116
|
--
-- File : LabelDisplay.cdl
-- Created : Sat 9 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( TCD )
--
---Copyright : MATRA-DATAVISION 1993
--
class LabelDisplay from IGESDraw inherits LabelDisplayEntity
---Purpose: defines IGESLabelDisplay, Type <402> Form <5>
-- in package IGESDraw
--
-- Permits one or more displays for the
-- entity labels of an entity
uses
IGESEntity from IGESData,
HArray1OfIGESEntity from IGESData,
LeaderArrow from IGESDimen,
HArray1OfLeaderArrow from IGESDimen,
HArray1OfInteger from TColStd,
ViewKindEntity from IGESData,
HArray1OfViewKindEntity from IGESDraw,
Pnt from gp,
HArray1OfXYZ from TColgp
raises DimensionMismatch, OutOfRange
is
Create returns mutable LabelDisplay;
-- Specific Methods pertaining to the class
Init (me : mutable;
allViews : HArray1OfViewKindEntity;
allTextLocations : HArray1OfXYZ;
allLeaderEntities : HArray1OfLeaderArrow;
allLabelLevels : HArray1OfInteger;
allDisplayedEntities : HArray1OfIGESEntity)
raises DimensionMismatch;
---Purpose : This method is used to set the fields of the class
-- LabelDisplay
-- - allViews : Pointers to View Entities
-- - allTextLocations : Coordinates of text locations in the views
-- - allLeaderEntities : Pointers to Leader Entities in the views
-- - allLabelLevels : Entity label level numbers in the views
-- - allDisplayedEntities : Pointers to the entities being displayed
-- raises exception if Lengths of allViews, allTextLocations,
-- allLeaderEntities, allLabelLevels and allDisplayedEntities are
-- not same.
NbLabels (me) returns Integer;
---Purpose : returns the number of label placements in <me>
ViewItem (me; ViewIndex : Integer) returns ViewKindEntity
raises OutOfRange;
---Purpose : returns the View entity indicated by ViewIndex
-- raises an exception if ViewIndex <= 0 or ViewIndex > NbLabels().
TextLocation (me; ViewIndex : Integer) returns Pnt
raises OutOfRange;
---Purpose : returns the 3d-Point coordinates of the text location, in the
-- view indicated by ViewIndex
-- raises an exception if ViewIndex <= 0 or ViewIndex > NbLabels().
LeaderEntity (me; ViewIndex : Integer) returns LeaderArrow
raises OutOfRange;
---Purpose : returns the Leader entity in the view indicated by ViewIndex
-- raises an exception if ViewIndex <= 0 or ViewIndex > NbLabels().
LabelLevel (me; ViewIndex : Integer) returns Integer
raises OutOfRange;
---Purpose : returns the Entity label level number in the view indicated
-- by ViewIndex
-- raises an exception if ViewIndex <= 0 or ViewIndex > NbLabels().
DisplayedEntity (me; EntityIndex : Integer) returns IGESEntity
raises OutOfRange;
---Purpose : returns the entity indicated by EntityIndex
-- raises an exception if EntityIndex <= 0 or EntityIndex > NbLabels().
TransformedTextLocation (me; ViewIndex : Integer) returns Pnt
raises OutOfRange;
---Purpose : returns the transformed 3d-Point coordinates of the text
-- location, in the view indicated by ViewIndex
-- raises an exception if ViewIndex <= 0 or ViewIndex > NbLabels().
fields
--
-- Class : IGESDraw_LabelDisplay
--
-- Purpose : Declaration of the variables specific to a Label Display.
--
-- Reminder : A Label Display is defined by :
-- - Pointers to View Entities
-- - Coordinates of text locations in the views
-- - Pointers to Leader Entities in the views
-- - Entity label level numbers in the views
-- - Pointers to the entities being displayed
--
theViews : HArray1OfViewKindEntity;
theTextLocations : HArray1OfXYZ;
theLeaderEntities : HArray1OfLeaderArrow;
theLabelLevels : HArray1OfInteger;
theDisplayedEntities : HArray1OfIGESEntity;
end LabelDisplay;
|