*#
*Intformat "%i"
*#
*# Vynulovat vsechno
*# WarningBox Warning: pred iniciaci TK_InitContactName
*tcl(TK_InitContactName)*\
*#
*#
*# pri prvnim pruchodu naplnim pole UniqueContactName()
*# WarningBox Warning: pred 1.pruchodem loop Intervals TK_CreateArraysContactName
*# /**
*loop Intervals
*Set Cond Fixed_2D_Shell_to_Solid_for_Point     *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_2D_Shell_to_Solid_for_Line      *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_2D_Shell_to_Solid_for_Surface   *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*If(CondNumEntities(Int)>0)
*#// selection 1 has *CondNumEntities entities
*loop nodes *OnlyInCond
*tcl(TK_CreateArraysContactName *Cond(ContactName))*\
*#
*End nodes
*EndIf
*# break
*End Intervals
*#
*tcl(TK_FinishArraysContactName)
*# **/
*#
*# // --- SELECTION MASTER ---
*# pri druhem pruchodu je Vypis selections pro Contacts MASTER/Slave
*#
*# WarningBox Warning: pred 2.pruchodem - MASTER
*# GenData(UniqueContactName)
*for(i=1;i<=GenData(UniqueContactName,Int);i=i+1)
*# // loop Master throw UniqueContactName = *GenData(UniqueContactName,*i) *i
*Set Var IntervalNum=0
*#
*loop Intervals
*End Intervals
*#
*Set Var delkaradku=0
*Set Var pocetPrvkuVSelection=0
*Set Var IntervalNum=Operation(IntervalIndex+0)
*#
*Set Cond Fixed_2D_Shell_to_Solid_for_Point     *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_2D_Shell_to_Solid_for_Line      *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_2D_Shell_to_Solid_for_Surface   *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*If(CondNumEntities(Int)>0)
*#// selection 2 has *CondNumEntities entities
SELECTION "*GenData(UniqueContactName,*i)_2D_Shell_to_solid_2D_SHELL_Interval*IntervalNum" LIST *\
*tcl(TK_CTRLclear)
*loop nodes *OnlyInCond
*#
*# // projizdim *NodesNum Type_of_Cond = *Cond(Type_of_Cond), ContactName = *Cond(ContactName) *\
*Set Var oContactName=strcmp(Cond(ContactName),GenData(UniqueContactName,*i))
*tcl(TK_CTRLc "Warning: Some selection of condition Fixed_2D_Shell_to_Solid_for_ 2D_SHELL has zero size. ContactName =" *GenData(UniqueContactName,*i) )*\
*Set Var oContactType=strcmp(Cond(Type_of_Cond),"2D_SHELL")
*#
*If( oContactName==0 && oContactType==0)
*Set Var delkaradku=Operation(delkaradku+1)
*Set Var pocetPrvkuVSelection=Operation(pocetPrvkuVSelection+1)
 *NodesNum *\
*If(delkaradku>=15)
*Set Var delkaradku=0

*EndIf
*EndIf
*#
*End nodes
 ;
*If(pocetPrvkuVSelection==0)
*#WarningBox Warning: Some selection of condition Fixed_2D_Shell_to_Solid_for_ (2D_SHELL) has zero size
*tcl(TK_TK_WarnWinTextTK_CTRLv)
*EndIf
*EndIf
*# break
*#End Intervals
*end
*#
*# // --- SELECTION SLAVE ---
*# pri tretim pruchodu je Vypis selections pro Contacts Master/SLAVE
*#
*# WarningBox Warning: pred 3.pruchodem - SLAVE
*# GenData(UniqueContactName)
*for(i=1;i<=GenData(UniqueContactName,Int);i=i+1)
*#// loop Slave throw UniqueContactName = *GenData(UniqueContactName,*i)
*Set Var IntervalNum=0
*loop Intervals
*End Intervals
*Set Var delkaradku=0
*Set Var pocetPrvkuVSelection=0
*Set Var IntervalNum=Operation(IntervalIndex)
*Set Cond Fixed_2D_Shell_to_Solid_for_Point     *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_2D_Shell_to_Solid_for_Line      *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_2D_Shell_to_Solid_for_Surface   *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*If(CondNumEntities(Int)>0)
*# // selection 3 has *CondNumEntities entities

SELECTION "*GenData(UniqueContactName,*i)_2D_Shell_to_solid_SOLID_Interval*IntervalNum" LIST *\
*tcl(TK_CTRLclear)
*loop nodes *OnlyInCond
*#
*Set Var oContactName=strcmp(Cond(ContactName),GenData(UniqueContactName,*i))
*tcl(TK_CTRLc "Warning: Some selection of condition Fixed_2D_Shell_to_Solid_for_ SOLID has zero size. ContactName =" *GenData(UniqueContactName,*i) )*\
*Set Var oContactType=strcmp(Cond(Type_of_Cond),"SOLID")
*#
*If( oContactName==0 && oContactType==0)
*Set Var delkaradku=Operation(delkaradku+1)
*Set Var pocetPrvkuVSelection=Operation(pocetPrvkuVSelection+1)
 *NodesNum *\
*If(delkaradku>=15)
*Set Var delkaradku=0

*EndIf
*EndIf
*#
*End nodes
 ;
*If(pocetPrvkuVSelection==0)
*#WarningBox Warning: Some selection of condition Fixed_2D_Shell_to_Solid_for_ (SOLID) has zero size
*tcl(TK_TK_WarnWinTextTK_CTRLv)
*EndIf
*EndIf
*# break
*end

