1 -- File: ShapeUpgrade_RemoveLocations.cdl
2 -- Created: Wed Nov 13 11:48:40 2002
3 -- Author: Galina KULIKOVA
4 -- <gka@zamox.nnov.matra-dtv.fr>
5 ---Copyright: Matra Datavision 2002
8 class RemoveLocations from ShapeUpgrade inherits TShared from MMgt
10 ---Purpose: Removes all locations sub-shapes of specified shape
13 ShapeEnum from TopAbs,
15 MapOfShape from TopTools,
16 DataMapOfShapeShape from TopTools
18 Create returns RemoveLocations from ShapeUpgrade;
19 ---Purpose:Empy constructor
21 Remove(me : mutable;theShape : Shape from TopoDS) returns Boolean;
22 ---Purpose:Removes all location correspodingly to RemoveLevel.
24 MakeNewShape(me : mutable;theShape , theAncShape: Shape from TopoDS;
25 theNewShape:in out Shape from TopoDS;theRemoveLoc : Boolean)
26 returns Boolean is private;
28 GetResult(me) returns Shape from TopoDS;
29 ---Purpose:Returns shape with removed locatins.
32 SetRemoveLevel(me: mutable; theLevel : ShapeEnum from TopAbs);
33 ---Purpose:sets level starting with that location will be removed,
34 -- by default TopAbs_SHAPE. In this case locations will be kept for specified shape
35 -- and if specified shape is TopAbs_COMPOUND for sub-shapes of first level.
38 RemoveLevel(me) returns ShapeEnum from TopAbs;
39 ---Purpose:sets level starting with that location will be removed.Value of level can be set to
40 -- TopAbs_SHAPE,TopAbs_COMPOUND,TopAbs_SOLID,TopAbs_SHELL,TopAbs_FACE.By default TopAbs_SHAPE.
41 -- In this case location will be removed for all shape types for exception of compound.
45 ModifiedShape (me; theInitShape : Shape from TopoDS) returns Shape from TopoDS;
46 ---Purpose: Returns modified shape obtained from initial shape.
50 myLevelRemoving : ShapeEnum from TopAbs;
51 myShape : Shape from TopoDS;
52 myMapNewShapes : DataMapOfShapeShape from TopTools;