7fd59977 |
1 | -- File: BRepToIGESBRep_Entity.cdl |
2 | -- Created: Tue Apr 25 11:39:19 1995 |
3 | -- Author: Marie Jose MARTZ |
4 | -- <mjm@pronox> |
5 | ---Copyright: Matra Datavision 1995 |
6 | |
7 | class Entity from BRepToIGESBRep inherits BREntity from BRepToIGES |
8 | |
9 | |
10 | ---Purpose : provides methods to transfer BRep entity from CASCADE to IGESBRep. |
11 | |
12 | uses |
13 | |
14 | Geometry from Geom, |
15 | Shape from TopoDS, |
16 | Vertex from TopoDS, |
17 | Edge from TopoDS, |
18 | Wire from TopoDS, |
19 | Face from TopoDS, |
20 | Shell from TopoDS, |
21 | Solid from TopoDS, |
22 | CompSolid from TopoDS, |
23 | Compound from TopoDS, |
24 | IndexedMapOfShape from TopTools, |
25 | IndexedMapOfTransient from TColStd, |
26 | IGESEntity from IGESData, |
27 | IGESModel from IGESData, |
28 | VertexList from IGESSolid, |
29 | EdgeList from IGESSolid, |
30 | Loop from IGESSolid, |
31 | Face from IGESSolid, |
32 | Shell from IGESSolid, |
33 | ManifoldSolid from IGESSolid, |
34 | CString from Standard, |
35 | FinderProcess from Transfer |
36 | |
37 | is |
38 | |
39 | Create |
40 | returns Entity from BRepToIGESBRep; |
41 | ---Purpose : Creates a tool Entity |
42 | |
43 | |
44 | Clear (me : in out); |
45 | ---Purpose : Clears the contents of the fields |
46 | |
47 | |
48 | TransferVertexList (me : in out); |
49 | ---Purpose : Create the VertexList entity |
50 | |
51 | |
52 | IndexVertex (me; |
53 | myvertex : Vertex from TopoDS) |
54 | returns Integer |
55 | ---Purpose: Returns the index of <myvertex> in "myVertices" |
56 | is static; |
57 | |
58 | |
59 | AddVertex (me : in out; |
60 | myvertex : Vertex from TopoDS) |
61 | returns Integer |
62 | ---Purpose: Stores <myvertex> in "myVertices" |
63 | -- Returns the index of <myvertex>. |
64 | is static; |
65 | |
66 | |
67 | TransferEdgeList (me : in out); |
68 | ---Purpose : Transfert an Edge entity from TopoDS to IGES |
69 | |
70 | |
71 | IndexEdge (me; |
72 | myedge : Edge from TopoDS) |
73 | returns Integer |
74 | ---Purpose: Returns the index of <myedge> in "myEdges" |
75 | is static; |
76 | |
77 | |
78 | AddEdge (me : in out; |
79 | myedge : Edge from TopoDS; |
80 | mycurve3d : IGESEntity from IGESData) |
81 | returns Integer |
82 | ---Purpose: Stores <myedge> in "myEdges" and <mycurve3d> in "myCurves". |
83 | -- Returns the index of <myedge>. |
84 | is static; |
85 | |
86 | |
87 | TransferShape (me : in out; start : Shape from TopoDS) |
88 | returns IGESEntity from IGESData is redefined; |
89 | ---Purpose : Returns the result of the transfert of any Shape |
90 | -- If the transfer has failed, this member return a NullEntity. |
91 | |
92 | |
93 | TransferEdge (me : in out; |
94 | myedge : Edge from TopoDS) |
95 | returns mutable IGESEntity from IGESData; |
96 | ---Purpose : Transfert an Edge entity from TopoDS to IGES |
97 | -- If this Entity could not be converted, this member returns a NullEntity. |
98 | |
99 | |
100 | TransferEdge (me : in out; |
101 | myedge : Edge from TopoDS; |
102 | myface : Face from TopoDS; |
103 | length : in Real from Standard) |
104 | returns mutable IGESEntity from IGESData; |
105 | ---Purpose : Transfert an Edge entity from TopoDS to IGES |
106 | -- If this Entity could not be converted, this member returns a NullEntity. |
107 | |
108 | |
109 | TransferWire (me : in out; |
110 | mywire : Wire from TopoDS; |
111 | myface : Face from TopoDS; |
112 | length : in Real from Standard) |
113 | returns mutable Loop from IGESSolid; |
114 | ---Purpose : Transfert a Wire entity from TopoDS to IGES. |
115 | -- Returns the curve associated to mywire in the parametric space of myface. |
116 | -- If this Entity could not be converted, this member returns a NullEntity. |
117 | |
118 | |
119 | TransferFace (me : in out; |
120 | start : Face from TopoDS) |
121 | returns mutable Face from IGESSolid; |
122 | ---Purpose : Transfert a Face entity from TopoDS to IGES |
123 | -- If this Entity could not be converted, this member returns a NullEntity. |
124 | |
125 | |
126 | TransferShell (me : in out; |
127 | start : Shell from TopoDS) |
128 | returns mutable Shell from IGESSolid; |
129 | ---Purpose : Transfert an Shell entity from TopoDS to IGES |
130 | -- If this Entity could not be converted, this member returns a NullEntity. |
131 | |
132 | |
133 | TransferSolid (me : in out; |
134 | start : Solid from TopoDS) |
135 | returns mutable ManifoldSolid from IGESSolid; |
136 | ---Purpose : Transfert a Solid entity from TopoDS to IGES |
137 | -- If this Entity could not be converted, this member returns a NullEntity. |
138 | |
139 | |
140 | TransferCompSolid (me : in out; |
141 | start : CompSolid from TopoDS) |
142 | returns mutable IGESEntity from IGESData; |
143 | ---Purpose : Transfert an CompSolid entity from TopoDS to IGES |
144 | -- If this Entity could not be converted, this member returns a NullEntity. |
145 | |
146 | |
147 | TransferCompound (me : in out; |
148 | start : Compound from TopoDS) |
149 | returns mutable IGESEntity from IGESData; |
150 | ---Purpose : Transfert a Compound entity from TopoDS to IGES |
151 | -- If this Entity could not be converted, this member returns a NullEntity. |
152 | |
153 | fields |
154 | |
155 | myVertices : IndexedMapOfShape from TopTools; |
156 | myEdges : IndexedMapOfShape from TopTools; |
157 | myCurves : IndexedMapOfTransient from TColStd; |
158 | myEdgeList : EdgeList from IGESSolid; |
159 | myVertexList : VertexList from IGESSolid; |
160 | |
161 | |
162 | end Entity; |
163 | |