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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
-- File: STEPConstruct_ValidationProps.cdl
-- Created: Wed Sep 8 16:39:51 1999
-- Author: Andrey BETENEV
-- <abv@doomox.nnov.matra-dtv.fr>
---Copyright: Matra Datavision 1999
class ValidationProps from STEPConstruct inherits Tool from STEPConstruct
---Purpose: This class provides tools for access (write and read)
-- the validation properties on shapes in the STEP file.
-- These are surface area, solid volume and centroid.
uses
WorkSession from XSControl,
InterfaceModel from Interface,
HGraph from Interface,
FinderProcess from Transfer,
TransientProcess from Transfer,
RepresentationItem from StepRepr,
Pnt from gp,
Shape from TopoDS,
MapOfShape from TopTools,
SequenceOfTransient from TColStd,
Unit from StepBasic,
CharacterizedDefinition from StepRepr,
RepresentationContext from StepRepr,
--ShapeDefinitionRepresentation from StepShape,
--ContextDependentShapeRepresentation from StepShape,
ProductDefinition from StepBasic,
NextAssemblyUsageOccurrence from StepRepr,
PropertyDefinition from StepRepr,
RepresentationContext from StepRepr
is
Create returns ValidationProps;
---Purpose: Creates an empty tool
Create (WS: WorkSession from XSControl) returns ValidationProps;
---Purpose: Creates a tool and loads it with worksession
Init (me: in out; WS: WorkSession from XSControl) returns Boolean;
---Purpose: Load worksession; returns True if succeeded
AddProp (me: in out; Shape: Shape from TopoDS;
Prop: RepresentationItem from StepRepr;
Descr: CString;
instance: Boolean = Standard_False)
returns Boolean;
---Purpose: General method for adding (writing) a validation property
-- for shape which should be already mapped on writing itself.
-- It uses FindTarget() to find target STEP entity
-- resulting from given shape, and associated context
-- Returns True if success, False in case of fail
AddProp (me: in out; target: CharacterizedDefinition from StepRepr;
Context: RepresentationContext from StepRepr;
Prop: RepresentationItem from StepRepr;
Descr: CString)
returns Boolean;
---Purpose: General method for adding (writing) a validation property
-- for shape which should be already mapped on writing itself.
-- It takes target and Context entities which correspond to shape
-- Returns True if success, False in case of fail
AddArea (me: in out; Shape: Shape from TopoDS; Area: Real)
returns Boolean;
---Purpose: Adds surface area property for given shape (already mapped).
-- Returns True if success, False in case of fail
AddVolume (me: in out; Shape: Shape from TopoDS; Vol: Real)
returns Boolean;
---Purpose: Adds volume property for given shape (already mapped).
-- Returns True if success, False in case of fail
AddCentroid (me: in out; Shape: Shape from TopoDS; Pnt: Pnt from gp;
instance: Boolean = Standard_False)
returns Boolean;
---Purpose: Adds centroid property for given shape (already mapped).
-- Returns True if success, False in case of fail
-- If instance is True, then centroid is assigned to
-- an instance of component in assembly
FindTarget (me: in out; S: Shape from TopoDS;
target: out CharacterizedDefinition from StepRepr;
Context: out RepresentationContext from StepRepr;
instance: Boolean = Standard_False)
returns Boolean;
---Purpose: Finds target STEP entity to which validation props should
-- be assigned, and corresponding context, starting from shape
-- Returns True if success, False in case of fail
LoadProps (me; seq: out SequenceOfTransient from TColStd) returns Boolean;
---Purpose: Searches for entities of the type PropertyDefinitionRepresentation
-- in the model and fills the sequence by them
GetPropNAUO (me; PD: PropertyDefinition from StepRepr)
returns NextAssemblyUsageOccurrence from StepRepr;
---Purpose: Returns CDSR associated with given PpD or NULL if not found
-- (when, try GetPropSDR)
GetPropPD (me; PD: PropertyDefinition from StepRepr)
returns ProductDefinition from StepBasic;
---Purpose: Returns SDR associated with given PpD or NULL if not found
-- (when, try GetPropCDSR)
GetPropShape (me; ProdDef: ProductDefinition from StepBasic)
returns Shape from TopoDS;
---Purpose: Returns Shape associated with given SDR or Null Shape
-- if not found
GetPropShape (me; PD: PropertyDefinition from StepRepr)
returns Shape from TopoDS;
---Purpose: Returns Shape associated with given PpD or Null Shape
-- if not found
GetPropReal (me; item: RepresentationItem from StepRepr;
Val: out Real; isArea: out Boolean)
returns Boolean;
---Purpose: Returns value of Real-Valued property (Area or Volume)
-- If Property is neither Area nor Volume, returns False
-- Else returns True and isArea indicates whether property
-- is area or volume
GetPropPnt (me; item: RepresentationItem from StepRepr;
Context: RepresentationContext from StepRepr;
Pnt: out Pnt from gp)
returns Boolean;
---Purpose: Returns value of Centriod property (or False if it is not)
SetAssemblyShape (me: in out; shape: Shape from TopoDS);
---Purpose: Sets current assembly shape SDR (for FindCDSR calls)
fields
areaUnit, volUnit: Unit from StepBasic; -- units for sharing on writing
myAssemblyPD: ProductDefinition from StepBasic;
end ValidationProps;
|
