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
|
-- File: IGESToBRep.cdl
-- Created: Tue Mar 22 16:47:32 1994
-- Author: Frederic UNTEREINER
-- <fun@ecolox>
---Copyright: Matra Datavision 1994
package IGESToBRep
---Purpose : Provides tools in order to transfer IGES entities
-- to CAS.CADE.
uses
Interface,
Transfer,
MoniTool,
Message,
IGESData,
IGESBasic,
IGESGeom,
IGESSolid,
gp,
Geom,
Geom2d,
TColGeom,
TColGeom2d,
TColStd,
TopoDS,
TopTools,
ShapeExtend,
ShapeAnalysis
is
class CurveAndSurface;
class BasicSurface;
class BasicCurve;
class TopoSurface;
class TopoCurve;
class BRepEntity;
class IGESBoundary;
class Reader;
class Actor;
class AlgoContainer;
class ToolContainer;
Init;
---Purpose: Creates and initializes default AlgoContainer.
SetAlgoContainer (aContainer: AlgoContainer from IGESToBRep);
---Purpose: Sets default AlgoContainer
AlgoContainer returns AlgoContainer from IGESToBRep;
---Purpose: Returns default AlgoContainer
IsCurveAndSurface(start : IGESEntity from IGESData)
returns Boolean;
---Purpose: Return True if the IGESEntity can be transfered by
-- TransferCurveAndSurface.
-- ex: All IGESEntity from IGESGeom
IsBasicCurve (start : IGESEntity from IGESData)
returns Boolean;
---Purpose: Return True if the IGESEntity can be transfered by
-- TransferBasicCurve.
-- ex: CircularArc, ConicArc, Line, CopiousData,
-- BSplineCurve, SplineCurve... from IGESGeom :
-- 104,110,112,126
IsBasicSurface(start : IGESEntity from IGESData)
returns Boolean;
---Purpose: Return True if the IGESEntity can be transfered by
-- TransferBasicSurface.
-- ex: BSplineSurface, SplineSurface... from IGESGeom :
-- 114,128
IsTopoCurve(start : IGESEntity from IGESData)
returns Boolean;
---Purpose: Return True if the IGESEntity can be transfered by
-- TransferTopoCurve.
-- ex: all Curves from IGESGeom :
-- all basic curves,102,130,142,144
IsTopoSurface(start : IGESEntity from IGESData)
returns Boolean;
---Purpose: Return True if the IGESEntity can be transfered by
-- TransferTopoSurface.
-- ex: All Surfaces from IGESGeom :
-- all basic surfaces,108,118,120,122,141,143
IsBRepEntity (start : IGESEntity from IGESData)
returns Boolean;
---Purpose: Return True if the IGESEntity can be transfered by
-- TransferBRepEntity.
-- ex: VertexList, EdgeList, Loop, Face, Shell,
-- Manifold Solid BRep Object from IGESSolid :
-- 502, 504, 508, 510, 514, 186.
WriteShape(shape : Shape from TopoDS;
number : Integer from Standard);
---Purpose: Creates a file Shape_'number' with the shape being
-- able to be restored by Draw.
IGESCurveToSequenceOfIGESCurve (curve : IGESEntity from IGESData;
sequence: out HSequenceOfTransient from TColStd)
returns Integer;
TransferPCurve (fromedge: Edge from TopoDS;
toedge : Edge from TopoDS;
face : Face from TopoDS)
returns Boolean;
end IGESToBRep;
|
