b311480e |
1 | -- Created on: 2002-12-10 |
2 | -- Created by: data exchange team |
973c2be1 |
3 | -- Copyright (c) 2002-2014 OPEN CASCADE SAS |
b311480e |
4 | -- |
973c2be1 |
5 | -- This file is part of Open CASCADE Technology software library. |
b311480e |
6 | -- |
d5f74e42 |
7 | -- This library is free software; you can redistribute it and/or modify it under |
8 | -- the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
9 | -- by the Free Software Foundation, with special exception defined in the file |
10 | -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
11 | -- distribution for complete text of the license and disclaimer of any warranty. |
b311480e |
12 | -- |
973c2be1 |
13 | -- Alternatively, this file may be used under the terms of Open CASCADE |
14 | -- commercial license or contractual agreement. |
b311480e |
15 | |
7fd59977 |
16 | -- Generator: ExpToCas (EXPRESS -> CASCADE/XSTEP Translator) V2.0 |
7fd59977 |
17 | |
18 | class VolumeElementPurpose from StepElement |
19 | inherits SelectType from StepData |
20 | |
21 | ---Purpose: Representation of STEP SELECT type VolumeElementPurpose |
22 | |
23 | uses |
24 | SelectMember from StepData, |
25 | EnumeratedVolumeElementPurpose from StepElement, |
26 | HAsciiString from TCollection |
27 | |
28 | is |
29 | Create returns VolumeElementPurpose from StepElement; |
30 | ---Purpose: Empty constructor |
31 | |
32 | CaseNum (me; ent: Transient) returns Integer; |
33 | ---Purpose: Recognizes a kind of VolumeElementPurpose select type |
34 | -- return 0 |
35 | |
36 | CaseMem (me; ent: SelectMember from StepData) returns Integer is redefined; |
37 | ---Purpose: Recognizes a items of select member VolumeElementPurposeMember |
38 | -- 1 -> EnumeratedVolumeElementPurpose |
39 | -- 2 -> ApplicationDefinedElementPurpose |
40 | -- 0 else |
41 | |
42 | |
43 | NewMember(me) returns SelectMember from StepData is redefined; |
44 | ---Purpose: Returns a new select member the type VolumeElementPurposeMember |
45 | |
46 | SetEnumeratedVolumeElementPurpose(me: in out; aVal :EnumeratedVolumeElementPurpose from StepElement); |
47 | ---Purpose: Set Value for EnumeratedVolumeElementPurpose |
48 | |
49 | EnumeratedVolumeElementPurpose (me) returns EnumeratedVolumeElementPurpose from StepElement; |
50 | ---Purpose: Returns Value as EnumeratedVolumeElementPurpose (or Null if another type) |
51 | |
52 | SetApplicationDefinedElementPurpose(me: in out; aVal :HAsciiString from TCollection); |
53 | ---Purpose: Set Value for ApplicationDefinedElementPurpose |
54 | |
55 | ApplicationDefinedElementPurpose (me) returns HAsciiString from TCollection; |
56 | ---Purpose: Returns Value as ApplicationDefinedElementPurpose (or Null if another type) |
57 | |
58 | end VolumeElementPurpose; |