1 -- Created on: 1994-05-31
2 -- Created by: Christian CAILLET
3 -- Copyright (c) 1994-1999 Matra Datavision
4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
6 -- This file is part of Open CASCADE Technology software library.
8 -- This library is free software; you can redistribute it and/or modify it under
9 -- the terms of the GNU Lesser General Public License version 2.1 as published
10 -- by the Free Software Foundation, with special exception defined in the file
11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 -- distribution for complete text of the license and disclaimer of any warranty.
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
17 class SelectLevelNumber from IGESSelect inherits SelectExtract
19 ---Purpose : This selection looks at Level Number of IGES Entities :
20 -- it considers items attached, either to a single level with a
21 -- given value, or to a level list which contains this value
23 -- Level = 0 means entities not attached to any level
25 -- Remark : the class CounterOfLevelNumber gives informations
26 -- about present levels in a file.
28 uses AsciiString from TCollection, Transient, InterfaceModel, IntParam
32 Create returns SelectLevelNumber;
33 ---Purpose : Creates a SelectLevelNumber, with no Level criterium : see
34 -- SetLevelNumber. Empty, this selection filters nothing.
36 SetLevelNumber (me : mutable; levnum : IntParam);
37 ---Purpose : Sets a Parameter as Level criterium
39 LevelNumber (me) returns IntParam;
40 ---Purpose : Returns the Level criterium. NullHandle if not yet set
41 -- (interpreted as Level = 0 : no level number attached)
43 Sort (me; rank : Integer; ent : Transient; model : InterfaceModel)
45 ---Purpose : Returns True if <ent> is an IGES Entity with Level Number
46 -- admits the criterium (= value if single level, or one of the
47 -- attached level numbers = value if level list)
49 ExtractLabel (me) returns AsciiString from TCollection;
50 ---Purpose : Returns the Selection criterium :
51 -- "IGES Entity, Level Number admits <nn>" (if nn > 0) or
52 -- "IGES Entity attached to no Level" (if nn = 0)
58 end SelectLevelNumber;