*# GenerateBC_Sandwich3D *GenData(sw_Generate_Boundary_Cond,Int)
*If(GenData(sw_Generate_Boundary_Cond,Int)==1)
*#
*Set Var HorniMacr=0
*Set Var DolniMacr=0
*Set Var PraV3yMacr=0
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=1
*Set Var catalogue=1
*Set Var nLayers=GenData(Layer,Int)
*#
*If(strcmp(GenData(Predefined_Structure),"Simple_Panel")==0)
*# BE
*Set Var HorniMacr=1
*Set Var DolniMacr=1
*Set Var PraV3yMacr=1
*Set Var LeV3yMacr=1
*Set Var SandwicIndex=1
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*ElseIf(strcmp(GenData(Predefined_Structure),"Simple_Frame_Panel")==0)
*# CE
*Set Var HorniMacr=0
*Set Var DolniMacr=1
*Set Var PraV3yMacr=1
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=1
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*# CF
*Set Var HorniMacr=1
*Set Var DolniMacr=0
*Set Var PraV3yMacr=1
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=2
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*# BF
*Set Var HorniMacr=1
*Set Var DolniMacr=0
*Set Var PraV3yMacr=0
*Set Var LeV3yMacr=1
*Set Var SandwicIndex=3
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*ElseIf(strcmp(GenData(Predefined_Structure),"Simple_Window_Panel")==0)
*# AD
*Set Var HorniMacr=1
*Set Var DolniMacr=0
*Set Var PraV3yMacr=1
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=1
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*# BD
*Set Var HorniMacr=1
*Set Var DolniMacr=0
*Set Var PraV3yMacr=0
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=2
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*# CD
*Set Var HorniMacr=1
*Set Var DolniMacr=0
*Set Var PraV3yMacr=1
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=3
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*# AE
*Set Var HorniMacr=0
*Set Var DolniMacr=0
*Set Var PraV3yMacr=1
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=4
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*# CE
*Set Var HorniMacr=0
*Set Var DolniMacr=0
*Set Var PraV3yMacr=1
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=5
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*# AF
*Set Var HorniMacr=1
*Set Var DolniMacr=0
*Set Var PraV3yMacr=1
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=6
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*# BF
*Set Var HorniMacr=1
*Set Var DolniMacr=0
*Set Var PraV3yMacr=0
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=7
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*# CF
*Set Var HorniMacr=1
*Set Var DolniMacr=0
*Set Var PraV3yMacr=1
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=8
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*ElseIf(strcmp(GenData(Predefined_Structure),"Advanced_Frame_Panel")==0)
*#
*# zadani okrajove podminky pro teplotni zatizeni na obou povrsich
*Set Var HorniMacr=0
*Set Var DolniMacr=0
*Set Var PraV3yMacr=0
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=1
*For(j=SandwicIndex;j<=148;j=j+1)
*# include ..\include.src.bas\BC_Sandwich3D.bas
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*End
*#
*# zadani okrajove podminky podpor pro statiku na hornim povrchu
*Set Var HorniMacr=1
*Set Var DolniMacr=0
*Set Var PraV3yMacr=0
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=25
*Set Var iLen=28
*For(j=SandwicIndex;j<=iLen;j=j+1)
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*End
*Set Var HorniMacr=1
*Set Var DolniMacr=0
*Set Var SandwicIndex=141
*Set Var iLen=148
*For(j=SandwicIndex;j<=iLen;j=j+1)
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*End
*#
*# zadani okrajove podminky podpor pro statiku na levem povrchu
*Set Var HorniMacr=0
*Set Var DolniMacr=0
*Set Var PraV3yMacr=0
*Set Var LeV3yMacr=1
*Set Var SandwicIndex=1
*Set Var iLen=28
*For(j=SandwicIndex;j<=iLen;j=j+4)
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+4)
*End
*#
*# zadani okrajove podminky podpor pro statiku na dolnim povrchu
*Set Var HorniMacr=0
*Set Var DolniMacr=1
*Set Var PraV3yMacr=0
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=29
*Set Var iLen=36
*For(j=SandwicIndex;j<=iLen;j=j+1)
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+1)
*End
*#
*# zadani okrajove podminky podpor pro statiku na pravem povrchu
*Set Var HorniMacr=0
*Set Var DolniMacr=0
*Set Var PraV3yMacr=1
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=36
*Set Var iLen=148
*For(j=SandwicIndex;j<=iLen;j=j+8)
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*Set Var SandwicIndex=Operation(SandwicIndex+8)
*End
*# rohy - leV3y horni
*Set Var HorniMacr=1
*Set Var DolniMacr=0
*Set Var PraV3yMacr=0
*Set Var LeV3yMacr=1
*Set Var SandwicIndex=25
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*#
*# rohy - praV3y horni
*Set Var HorniMacr=1
*Set Var DolniMacr=0
*Set Var PraV3yMacr=1
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=148
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*#
*# rohy - praV3y dolni
*Set Var HorniMacr=0
*Set Var DolniMacr=1
*Set Var PraV3yMacr=1
*Set Var LeV3yMacr=0
*Set Var SandwicIndex=36
*tcl(Assign_BC_for_one_Sandwich3D *SandwicIndex *HorniMacr *DolniMacr *LeV3yMacr *PraV3yMacr )
*#
*# jednak BC aktivity - Delete - odebrat prvky pred prvnim krokem
*#
*Else
*MessageBox error: Type requested structure For Boundary Condition is not defined!
*Set Var catalogue=0
*EndIf
*#
*If(catalogue==1)
*tcl(sw_SetInternalVariable "sw_Generate_Boundary_Cond" 0)
*EndIf
*#
*Else
*MessageBox error: The boundary condititon has already been assign it!
*EndIf
