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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
-- File: IGESData_ToolLocation.cdl
-- Created: Tue Sep 21 17:08:46 1993
-- Author: Christian CAILLET
-- <cky@sdsun2>
---Copyright: Matra Datavision 1993
class ToolLocation from IGESData inherits TShared
---Purpose : This Tool determines and gives access to effective Locations
-- of IGES Entities as defined by the IGES Norm. These Locations
-- can be for each Entity :
-- - on one part, explicitly defined by a Transf in Directory
-- Part (this Transf can be itself compound); if not defined,
-- no proper Transformation is defined
-- - on the other part, implicitly defined by a reference from
-- another Entity : its Parent
-- Both implicit and explicit locations are combinable.
--
-- Implicit definition can be itself defined, either through the
-- definition of an Entity (i.e. a Composite Curve references
-- a list of Curves), or by a specific Associativity, of type
-- SingleParentEntity, by which the Location of the Parent is
-- applied to the Childs defined by this Associativity.
-- Remark that a Transf itself has no Location, but it can be
-- compound
--
-- This is a TShared object, then it is easier to use in an
-- interactive session
uses GTrsf from gp, Trsf from gp, Array1OfInteger from TColStd,
GeneralLib, IGESEntity, IGESModel, Protocol from IGESData
raises DomainError
is
Create (amodel : IGESModel; protocol : Protocol from IGESData)
returns mutable ToolLocation;
---Purpose : Creates a ToolLocation on a given Model, filled with the help
-- of a Protocol (which allows to known Entities referenced by
-- other ones)
Load (me : mutable);
---Purpose : Does the effective work of determining Locations of Entities
SetPrecision (me : mutable; prec : Real) is static;
---Purpose : Sets a precision for the Analysis of Locations
-- (default by constructor is 1.E-05)
-- -- Internal Actions to Compute and Edit the Result -- --
SetReference (me : mutable; parent, child : IGESEntity) is static;
---Purpose : Sets the "Reference" information for <child> as being <parent>
-- Sets an Error Status if already set (see method IsAmbiguous)
SetParentAssoc (me : mutable; parent, child : IGESEntity) is static;
---Purpose : Sets the "Associativity" information for <child> as being
-- <parent> (it must be the Parent itself, not the Associativity)
ResetDependences (me : mutable; child : IGESEntity) is static;
---Purpose : Resets all informations about dependences for <child>
SetOwnAsDependent (me : mutable; ent : IGESEntity);
---Purpose : Unitary action which defines Entities referenced by <ent>
-- (except those in Directory Part and Associativities List)
-- as Dependent (their Locations are related to that of <ent>)
-- -- Queries -- --
IsTransf (me; ent : IGESEntity) returns Boolean is static;
---Purpose : Returns True if <ent> is kind of TransfEntity. Then, it has
-- no location, while it can be used to define a Location)
IsAssociativity (me; ent : IGESEntity) returns Boolean is static;
---Purpose : Returns True if <ent> is an Associativity (IGES Type 402).
-- Then, Location does not apply.
HasTransf (me; ent : IGESEntity) returns Boolean is static;
---Purpose : Returns True if <ent> has a Transformation Matrix in proper
-- (referenced from its Directory Part)
ExplicitLocation (me; ent : IGESEntity) returns GTrsf from gp is static;
---Purpose : Returns the Explicit Location defined by the Transformation
-- Matrix of <ent>. Identity if there is none
IsAmbiguous (me; ent : IGESEntity) returns Boolean is static;
---Purpose : Returns True if more than one Parent has been determined for
-- <ent>, by adding direct References and Associativities
HasParent (me; ent : IGESEntity) returns Boolean
---Purpose : Returns True if <ent> is dependent from one and only one other
-- Entity, either by Reference or by Associativity
raises DomainError is static;
-- Error if more than one Parent has been noted
Parent (me; ent : IGESEntity) returns IGESEntity
---Purpose : Returns the unique Parent recorded for <ent>.
-- Returns a Null Handle if there is none
raises DomainError is static;
-- Error if more than one Parent has been noted
HasParentByAssociativity (me; ent : IGESEntity) returns Boolean
---Purpose : Returns True if the Parent, if there is one, is defined by
-- a SingleParentEntity Associativity
-- Else, if HasParent is True, it is by Reference
raises DomainError is static;
-- Error if more than one Parent has been noted
ParentLocation (me; ent : IGESEntity) returns GTrsf from gp
---Purpose : Returns the effective Location of the Parent of <ent>, if
-- there is one : this Location is itself given as compound
-- according dependences on the Parent, if there are some.
-- Returns an Identity Transformation if no Parent is recorded.
raises DomainError is static;
-- Error if more than one Parent has been noted
EffectiveLocation (me; ent : IGESEntity) returns GTrsf from gp
---Purpose : Returns the effective Location of an Entity, i.e. the
-- composition of its proper Transformation Matrix (returned by
-- Transf) and its Parent's Location (returned by ParentLocation)
raises DomainError is static;
-- Error if more than one Parent has been noted
AnalyseLocation (me; loc : GTrsf from gp; result : out Trsf from gp)
returns Boolean is static;
---Purpose : Analysis a Location given as a GTrsf, by trying to convert it
-- to a Trsf (i.e. to a True Location of which effect is
-- described by an Isometry or a Similarity)
-- Works with the Precision given by default or by SetPrecision
-- Calls ConvertLocation (see below)
ConvertLocation (myclass; prec : Real;
loc : GTrsf from gp; result : out Trsf from gp; uni : Real = 1)
returns Boolean;
---Purpose : Convertion of a Location, from GTrsf form to Trsf form
-- Works with a precision given as argument.
-- Returns True if the Conversion is possible, (hence, <result>
-- contains the converted location), False else
-- <unit>, if given, indicates the unit in which <loc> is defined
-- in meters. It concerns the translation part (to be converted.
--
-- As a class method, it can be called separately
fields
theprec : Real;
themodel : IGESModel;
thelib : GeneralLib;
therefs : Array1OfInteger from TColStd;
theassocs : Array1OfInteger from TColStd;
end ToolLocation;
|
