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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
-- File: BRepToIGESBRep_Entity.cdl
-- Created: Tue Apr 25 11:39:19 1995
-- Author: Marie Jose MARTZ
-- <mjm@pronox>
---Copyright: Matra Datavision 1995
class Entity from BRepToIGESBRep inherits BREntity from BRepToIGES
---Purpose : provides methods to transfer BRep entity from CASCADE to IGESBRep.
uses
Geometry from Geom,
Shape from TopoDS,
Vertex from TopoDS,
Edge from TopoDS,
Wire from TopoDS,
Face from TopoDS,
Shell from TopoDS,
Solid from TopoDS,
CompSolid from TopoDS,
Compound from TopoDS,
IndexedMapOfShape from TopTools,
IndexedMapOfTransient from TColStd,
IGESEntity from IGESData,
IGESModel from IGESData,
VertexList from IGESSolid,
EdgeList from IGESSolid,
Loop from IGESSolid,
Face from IGESSolid,
Shell from IGESSolid,
ManifoldSolid from IGESSolid,
CString from Standard,
FinderProcess from Transfer
is
Create
returns Entity from BRepToIGESBRep;
---Purpose : Creates a tool Entity
Clear (me : in out);
---Purpose : Clears the contents of the fields
TransferVertexList (me : in out);
---Purpose : Create the VertexList entity
IndexVertex (me;
myvertex : Vertex from TopoDS)
returns Integer
---Purpose: Returns the index of <myvertex> in "myVertices"
is static;
AddVertex (me : in out;
myvertex : Vertex from TopoDS)
returns Integer
---Purpose: Stores <myvertex> in "myVertices"
-- Returns the index of <myvertex>.
is static;
TransferEdgeList (me : in out);
---Purpose : Transfert an Edge entity from TopoDS to IGES
IndexEdge (me;
myedge : Edge from TopoDS)
returns Integer
---Purpose: Returns the index of <myedge> in "myEdges"
is static;
AddEdge (me : in out;
myedge : Edge from TopoDS;
mycurve3d : IGESEntity from IGESData)
returns Integer
---Purpose: Stores <myedge> in "myEdges" and <mycurve3d> in "myCurves".
-- Returns the index of <myedge>.
is static;
TransferShape (me : in out; start : Shape from TopoDS)
returns IGESEntity from IGESData is redefined;
---Purpose : Returns the result of the transfert of any Shape
-- If the transfer has failed, this member return a NullEntity.
TransferEdge (me : in out;
myedge : Edge from TopoDS)
returns mutable IGESEntity from IGESData;
---Purpose : Transfert an Edge entity from TopoDS to IGES
-- If this Entity could not be converted, this member returns a NullEntity.
TransferEdge (me : in out;
myedge : Edge from TopoDS;
myface : Face from TopoDS;
length : in Real from Standard)
returns mutable IGESEntity from IGESData;
---Purpose : Transfert an Edge entity from TopoDS to IGES
-- If this Entity could not be converted, this member returns a NullEntity.
TransferWire (me : in out;
mywire : Wire from TopoDS;
myface : Face from TopoDS;
length : in Real from Standard)
returns mutable Loop from IGESSolid;
---Purpose : Transfert a Wire entity from TopoDS to IGES.
-- Returns the curve associated to mywire in the parametric space of myface.
-- If this Entity could not be converted, this member returns a NullEntity.
TransferFace (me : in out;
start : Face from TopoDS)
returns mutable Face from IGESSolid;
---Purpose : Transfert a Face entity from TopoDS to IGES
-- If this Entity could not be converted, this member returns a NullEntity.
TransferShell (me : in out;
start : Shell from TopoDS)
returns mutable Shell from IGESSolid;
---Purpose : Transfert an Shell entity from TopoDS to IGES
-- If this Entity could not be converted, this member returns a NullEntity.
TransferSolid (me : in out;
start : Solid from TopoDS)
returns mutable ManifoldSolid from IGESSolid;
---Purpose : Transfert a Solid entity from TopoDS to IGES
-- If this Entity could not be converted, this member returns a NullEntity.
TransferCompSolid (me : in out;
start : CompSolid from TopoDS)
returns mutable IGESEntity from IGESData;
---Purpose : Transfert an CompSolid entity from TopoDS to IGES
-- If this Entity could not be converted, this member returns a NullEntity.
TransferCompound (me : in out;
start : Compound from TopoDS)
returns mutable IGESEntity from IGESData;
---Purpose : Transfert a Compound entity from TopoDS to IGES
-- If this Entity could not be converted, this member returns a NullEntity.
fields
myVertices : IndexedMapOfShape from TopTools;
myEdges : IndexedMapOfShape from TopTools;
myCurves : IndexedMapOfTransient from TColStd;
myEdgeList : EdgeList from IGESSolid;
myVertexList : VertexList from IGESSolid;
end Entity;
|
