*#
*Intformat "%i"
*#
*# Vynulovat vsechno
*# WarningBox Warning: pred iniciaci TK_InitSelectionName
*tcl(TK_InitSelectionName)*\
*#
*#
*# pri prvnim pruchodu naplnim pole UniqueSelectionName()
*# WarningBox Warning: pred 1.pruchodem loop Intervals TK_CreateArraysSelectionName
*Set Cond Selection_Elements_for_Volume    *elems *or(1,Real) *or(2,Real) *CanRepeat 
*Add Cond Selection_Elements_for_Surface   *elems *or(1,Real) *or(2,Real) *CanRepeat 
*Add Cond Selection_Elements_for_Line      *elems *or(1,Real) *or(2,Real) *CanRepeat 
*If(CondNumEntities(Int)>0)
// selection elements loop 1 has *CondNumEntities entities
*loop elems *OnlyInCond
*tcl(TK_CreateArraysSelectionName *Cond(SelectionName))*\
*#
*End elems
*EndIf
*# break
*#
*# // *\
*tcl(TK_FinishArraysSelectionName)
*#
*# pri druhem pruchodu je Vypis selections 
*#
*# WarningBox Warning: pred 2.pruchodem 
*# GenData(UniqueSelectionName)
*for(i=1;i<=GenData(UniqueSelectionName,Int);i=i+1)
*Set Var IntervalNum=0
*Set Var delkaradku=0
*Set Var IntervalNum=Operation(IntervalIndex)
*#
*Set Cond Selection_Elements_for_Volume  *elems  *or(1,Real) *or(2,Real) *CanRepeat 
*Add Cond Selection_Elements_for_Surface *elems  *or(1,Real) *or(2,Real) *CanRepeat  
*Add Cond Selection_Elements_for_Line    *elems  *or(1,Real) *or(2,Real) *CanRepeat 
*If(CondNumEntities(Int)>0)
// selection elements loop 2 has *CondNumEntities entities
SELECTION "*GenData(UniqueSelectionName,*i)" LIST *\
*loop elems *OnlyInCond
*#
*Set Var oSelectionName=strcmp(Cond(SelectionName),GenData(UniqueSelectionName,*i))
*#
*If( oSelectionName==0)
*Set Var delkaradku=Operation(delkaradku+1)
 *ElemsNum *\
*If(delkaradku>=15)
*Set Var delkaradku=0

*EndIf
*EndIf
*#
*End elems
 ;
*EndIf
*# break
*end
