1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Quintiq file version 2.0
| #parent: #root
| Method GetUniqueClassEntities () const remote as owning Lib3DS_Entities
| {
| TextBody:
| [*
| classtypes := selectuniquevalues( this, Entities, entity,
| true,
| entity.Type() );
| entities := construct( Lib3DS_Entities );
|
| traverse( classtypes, Elements, classtype )
| {
| entity := select( this, Entities, entity,
| entity.Type() = classtype );
| entities := entities.Union( entity );
| }
|
| return &entities;
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|
