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
|
-- File: IGESSelect_AutoCorrect.cdl
-- Created: Wed Jun 1 16:18:06 1994
-- Author: Christian CAILLET
-- <cky@bravox>
---Copyright: Matra Datavision 1994
class AutoCorrect from IGESSelect inherits ModelModifier from IGESSelect
---Purpose : Does the absolutely effective corrections on IGES Entity.
-- That is to say : regarding the norm in details, some values
-- have mandatory values, or set of values with constraints.
-- When such values/constraints are univoque, they can be forced.
-- Also nullifies items of Directory Part, Associativities, and
-- Properties, which are not (or not longer) in <target> Model.
--
-- Works by calling a BasicEditor from IGESData
-- Works with the specific IGES Services : DirChecker which
-- allows to correct data in "Directory Part" of Entities (such
-- as required values for status, or references to be null), and
-- the specific IGES service OwnCorrect, which is specialised for
-- each type of entity.
--
-- Remark : this does not comprise the computation of use flag or
-- subordinate status according references, which is made by
-- the ModelModifier class ComputeStatus.
--
-- The Input Selection, when present, designates the entities to
-- be corrected. If it is not present, all the entities of the
-- model are corrected.
uses AsciiString from TCollection,
CopyTool, IGESModel, ContextModif,
GeneralLib, SpecificLib, IGESEntity
is
Create returns mutable AutoCorrect;
---Purpose : Creates an AutoCorrect.
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : corrects entities when it is absolutely
-- obvious, i.e. non equivoque (by DirChecker and specific
-- service OwnCorrect) : works with a protocol.
Label (me) returns AsciiString from TCollection;
---Purpose : Returns a text which is
-- "Auto-correction of IGES Entities"
end AutoCorrect;
|
