// selection of GiD layers
*loop layers
*#---- 
*# *LayerNum *LayerName *LayerColorRGB
*# *Operation(LayerColorRGB(1)/255)
*# //LayerNumEntities
*set layer *LayerName *elems
*Set Var delkaradku=0
*Format "%i"
*if(LayerNumEntities)
SELECTION "_|Layer|_*tcl(TK_replaceLomitka *LayerName)" LIST  *\
*#elements: *LayerNumEntities
*loop elems *onlyinlayer
*Set Var ElemConstrActiv=1
*include ..\include.src.bas\CurrentElementGroupID.bas
*Set Var ElemConstrActiv=0
*#
*#
*#*ElemsMatProp(Material_Prototype)
*#*ElemsType
*If(strcmp(ElemsMatProp(Material_Prototype),"CCSteelDRC")==0 || strcmp(ElemsMatProp(Material_Prototype),"CC1DElastIsotropic")==0 || strcmp(ElemsMatProp(Material_Prototype),"CCReinforcement")==0 || strcmp(ElemsMatProp(Material_Prototype),"CCCyclingReinforcement")==0 || strcmp(ElemsMatProp(Material_Prototype),"CCReinforcementWithTempDepProperties")==0)
*#
*#// reinf ZJ
*Else
 *groupID *elemsnum *\
*Set Var delkaradku=Operation(delkaradku+1)
*EndIf
*#
*#
*#
*If(delkaradku>=20)
*Set Var delkaradku=0

*EndIf
*end elems
*end if
         
          
*end layers
// end selection of GiD layers