mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08:00
49 lines
1.5 KiB
Plaintext
Executable File
49 lines
1.5 KiB
Plaintext
Executable File
-- File: AllShared.cdl
|
|
-- Created: Wed Sep 30 18:30:42 1992
|
|
-- Author: Christian CAILLET
|
|
-- <cky@phobox>
|
|
---Copyright: Matra Datavision 1992
|
|
|
|
|
|
class AllShared from IFGraph inherits GraphContent
|
|
|
|
---Purpose : this class determines all Entities shared by some specific
|
|
-- ones, at any level (those which will be lead in a Transfer
|
|
-- for instance)
|
|
|
|
uses Transient, EntityIterator, Graph
|
|
|
|
is
|
|
|
|
Create (agraph : Graph) returns AllShared;
|
|
---Purpose : creates an AllShared from a graph, empty ready to be filled
|
|
|
|
Create (agraph : Graph; ent : any Transient)
|
|
returns AllShared;
|
|
---Purpose : creates an AllShared which memrizes Entities shared by a given
|
|
-- one, at any level, including itself
|
|
|
|
GetFromEntity (me : in out; ent : any Transient);
|
|
---Purpose : adds an entity and its shared ones to the list (allows to
|
|
-- cumulate all Entities shared by some ones)
|
|
|
|
GetFromIter (me : in out; iter : EntityIterator);
|
|
---Purpose : Adds Entities from an EntityIterator and all their shared
|
|
-- ones at any level
|
|
|
|
ResetData (me : in out);
|
|
---Purpose : Allows to restart on a new data set
|
|
|
|
-- -- Results -- --
|
|
-- More-Next-Value give all entities noted as shared,
|
|
-- including the entities given for construction or to GetFromEntity
|
|
|
|
Evaluate (me : in out) is redefined;
|
|
---Purpose : does the specific evaluation (shared entities atall levels)
|
|
|
|
fields
|
|
|
|
thegraph : Graph;
|
|
|
|
end AllShared;
|