blob: a1285f6eadbb64e4f5e6784c491fc80d7e05788c (
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: Geom2dToIGES_Geom2dEntity.cdl
-- Created: Wed Sep 13 14:27:57 1995
-- Author: Marie Jose MARTZ
-- <mjm@pronox>
---Copyright: Matra Datavision 1995
class Geom2dEntity from Geom2dToIGES
---Purpose : provides methods to transfer Geom2d entity from CASCADE to IGES.
uses
Real from Standard,
IGESEntity from IGESData,
IGESModel from IGESData
is
Create
returns Geom2dEntity from Geom2dToIGES;
---Purpose : Creates a tool Geom2dEntity
Create(GE : Geom2dEntity from Geom2dToIGES)
returns Geom2dEntity from Geom2dToIGES;
---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 millimeters.
fields
TheModel : IGESModel from IGESData ;
TheUnitFactor : Real from Standard;
end Geom2dEntity;
|
