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
|
-- File: TNaming_Selector.cdl
-- Created: Tue Sep 28 12:33:10 1999
-- Author: Denis PASCAL
-- <dp@dingox.paris1.matra-dtv.fr>
---Copyright: Matra Datavision 1999
class Selector from TNaming
---Purpose: This class provides a single API for selection of shapes.
-- This involves both identification and selection of
-- shapes in the data framework.
-- If the selected shape is modified, this selector will
-- solve its identifications.
-- This class is the user interface for topological
-- naming resources.
-- * The <IsIdentified> method returns (if exists)
-- the NamedShape which contains a given shape. The
-- definition of an identified shape is : a Shape
-- handled by a NamedShape (this shape is the only
-- one stored) , which has the TNaming_PRImITIVE evolution
--
-- * The <Select> method returns ALWAYS a new
-- NamedShape at the given label, which contains the
-- argument selected shape. When calling this
-- method, the sub-hierarchy of <label> is first cleared,
-- then a TNaming_NamedShape is ALWAYS created at
-- this <label>, with the TNaming_SELECTED evolution.
-- The <Naming attribute> is associated to the selected
-- shape which store the arguments of the selection .
-- If the given selected shape was already identified
-- (method IsIdentified) , this Naming attribute
-- contains the reference (Identity code) to the
-- argument shape.
--
-- * The <Solve> method update the current value of
-- the NamedShape, according to the <Naming> attribute.
-- A boolean status is returned to say if the
-- algorithm succeed or not. To read the current
-- value of the selected Named Shape use the
-- TNaming_Tool::GetShape method, as for any
-- NamedShape attribute.
uses Label from TDF,
LabelMap from TDF,
Shape from TopoDS,
NamedShape from TNaming,
Naming from TNaming,
AttributeMap from TDF
is
---Purpose: To know if a shape is already identified (not selected)
-- =======================================================
IsIdentified (myclass; access : Label from TDF;
selection : Shape from TopoDS;
NS : in out NamedShape from TNaming;
Geometry : Boolean = Standard_False)
returns Boolean from Standard;
---Purpose:
-- The label access defines the point of access to the data framework.
-- selection is the shape for which we want to know
-- whether it is identified or not.
-- If true, NS is returned as the identity of selection.
-- If Geometry is true, NS will be the named shape
-- containing the first appearance of selection and
-- not any other shape. In other words, selection
-- must be the only shape stored in NS.
Create (aLabel : Label from TDF) returns Selector from TNaming;
---Purpose: Create a selector on this label
---Purpose: to select a shape.
-- ==================
Select (me; Selection : Shape from TopoDS;
Context : Shape from TopoDS;
Geometry : Boolean = Standard_False;
KeepOrientatation : Boolean = Standard_False)
returns Boolean from Standard;
---Purpose:
-- Creates a topological naming on the label
-- aLabel given as an argument at construction time.
-- If successful, the shape Selection - found in the
-- shape Context - is now identified in the named
-- shape returned in NamedShape.
-- If Geometry is true, NamedShape contains the
-- first appearance of Selection.
-- This syntax is more robust than the previous
-- syntax for this method.
Select (me; Selection : Shape from TopoDS;
Geometry : Boolean = Standard_False;
KeepOrientatation : Boolean = Standard_False)
returns Boolean from Standard;
---Purpose:
-- Creates a topological naming on the label
-- aLabel given as an argument at construction time.
-- If successful, the shape Selection is now
-- identified in the named shape returned in NamedShape.
-- If Geometry is true, NamedShape contains the
-- first appearance of Selection.
Solve (me; Valid : in out LabelMap from TDF)
returns Boolean from Standard;
---Purpose:
-- Updates the topological naming on the label
-- aLabel given as an argument at construction time.
-- The underlying shape returned in the method
-- NamedShape is updated.
-- To read this shape, use the method TNaming_Tool::GetShape
Arguments (me; args : in out AttributeMap from TDF);
---Purpose: Returns the attribute list args.
-- This list contains the named shape on which the topological naming was built.
NamedShape(me) returns NamedShape from TNaming;
---Purpose: Returns the NamedShape build or under construction,
-- which contains the topological naming..
fields
myLabel : Label from TDF;
end Selector;
|
