blob: 6467101613db6588af20a70ae074efdc9b36e7fa (
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
|
-- File: GeomToIGES_GeomEntity.cdl
-- Created: Wed Sep 13 14:23:04 1995
-- Author: Marie Jose MARTZ
-- <mjm@pronox>
---Copyright: Matra Datavision 1995
class GeomEntity from GeomToIGES
---Purpose : provides methods to transfer Geom entity from CASCADE to IGES.
uses
Real from Standard,
IGESEntity from IGESData,
IGESModel from IGESData
is
Create
returns GeomEntity from GeomToIGES;
---Purpose : Creates a tool GeomEntity
Create(GE : GeomEntity from GeomToIGES)
returns GeomEntity from GeomToIGES;
---Purpose : Creates a tool ready to run and sets its
-- fields as GE's.
SetModel(me : in out; model : IGESModel from IGESData);
---Purpose : Set the value of "TheModel"
GetModel(me)
returns IGESModel from IGESData;
---Purpose : Returns the value of "TheModel"
SetUnit(me: in out; unit: Real);
---Purpose : Sets the value of the UnitFlag
GetUnit(me)
returns Real from Standard;
---Purpose : Returns the value of the UnitFlag of the header of the model
-- in meters.
fields
TheModel : IGESModel from IGESData ;
TheUnitFactor : Real from Standard;
end GeomEntity;
|