Generate_Sandwich3D *GenData(sw_GenerateMacroelem,Int)
*If(GenData(sw_GenerateMacroelem,Int)==1)
*Set Var px=GenData(pX,Real)
*Set Var py=GenData(pY,Real)
*Set Var pz=GenData(pZ,Real)
*#
*Set Var HorniMacr=0
*Set Var DolniMacr=0
*Set Var PraV3yMacr=0
*Set Var LeV3yMacr=0
*Set Var catalogue=1
*#
*If(strcmp(GenData(Predefined_Structure),"Simple_Panel")==0)
*# BE
*Set Var dx=0.0
*Set Var dy=GenData(_B,Real)
*Set Var dz=GenData(_E,Real)
*# include ..\include.src.bas\Create_Layered_Sandwich3D.bas
*tcl(Create_Layered_Sandwich3D *px *py *pz *dx *dy *dz)
*# WarningBox Warning: Simple Panel - BE
*ElseIf(strcmp(GenData(Predefined_Structure),"Simple_Frame_Panel")==0)
*# CE
*Set Var px=GenData(pX,Real)
*Set Var dx=0.0
*Set Var py=Operation(GenData(pY,Real)+GenData(_B,Real))
*Set Var dy=GenData(_C,Real)
*Set Var dz=GenData(_E,Real)
*# include ..\include.src.bas\Create_Layered_Sandwich3D.bas
*tcl(Create_Layered_Sandwich3D *px *py *pz *dx *dy *dz)
*# CF
*Set Var px=GenData(pX,Real)
*Set Var dx=0.0
*Set Var py=Operation(GenData(pY,Real)+GenData(_B,Real))
*Set Var dy=GenData(_C,Real)
*Set Var pz=Operation(GenData(pZ,Real)+GenData(_E,Real))
*Set Var dz=GenData(_F,Real)
*# include ..\include.src.bas\Create_Layered_Sandwich3D.bas
*tcl(Create_Layered_Sandwich3D *px *py *pz *dx *dy *dz)
*# BF
*Set Var px=GenData(pX,Real)
*Set Var dx=0.0
*Set Var py=GenData(pY,Real)
*Set Var dy=GenData(_B,Real)
*Set Var pz=Operation(GenData(pZ,Real)+GenData(_E,Real))
*Set Var dz=GenData(_F,Real)
*# include ..\include.src.bas\Create_Layered_Sandwich3D.bas
*tcl(Create_Layered_Sandwich3D *px *py *pz *dx *dy *dz)
*ElseIf(strcmp(GenData(Predefined_Structure),"Simple_Window_Panel")==0)
*# AD
*Set Var px=GenData(pX,Real)
*Set Var dx=0.0
*Set Var py=GenData(pY,Real)
*Set Var dy=Operation(-1*GenData(_A_,Real))
*Set Var pz=GenData(pZ,Real)
*Set Var dz=Operation(-1*GenData(_D,Real))
*# include ..\include.src.bas\Create_Layered_Sandwich3D.bas
*tcl(Create_Layered_Sandwich3D *px *py *pz *dx *dy *dz)
*# BD
*Set Var px=GenData(pX,Real)
*Set Var dx=0.0
*Set Var py=GenData(pY,Real)
*Set Var dy=GenData(_B,Real)
*Set Var pz=GenData(pZ,Real)
*Set Var dz=Operation(-1*GenData(_D,Real))
*# include ..\include.src.bas\Create_Layered_Sandwich3D.bas
*tcl(Create_Layered_Sandwich3D *px *py *pz *dx *dy *dz)
*# CD
*Set Var px=GenData(pX,Real)
*Set Var dx=0.0
*Set Var py=Operation(GenData(pY,Real)+GenData(_B,Real))
*Set Var dy=GenData(_C,Real)
*Set Var pz=GenData(pZ,Real)
*Set Var dz=Operation(-1*GenData(_D,Real))
*# include ..\include.src.bas\Create_Layered_Sandwich3D.bas
*tcl(Create_Layered_Sandwich3D *px *py *pz *dx *dy *dz)
*# AE
*Set Var px=GenData(pX,Real)
*Set Var dx=0.0
*Set Var py=GenData(pY,Real)
*Set Var dy=Operation(-1*GenData(_A_,Real))
*Set Var pz=GenData(pZ,Real)
*Set Var dz=GenData(_E,Real)
*# include ..\include.src.bas\Create_Layered_Sandwich3D.bas
*tcl(Create_Layered_Sandwich3D *px *py *pz *dx *dy *dz)
*# CE
*Set Var px=GenData(pX,Real)
*Set Var dx=0.0
*Set Var py=Operation(GenData(pY,Real)+GenData(_B,Real))
*Set Var dy=GenData(_C,Real)
*Set Var pz=GenData(pZ,Real)
*Set Var dz=GenData(_E,Real)
*# include ..\include.src.bas\Create_Layered_Sandwich3D.bas
*tcl(Create_Layered_Sandwich3D *px *py *pz *dx *dy *dz)
*# AF
*Set Var px=GenData(pX,Real)
*Set Var dx=0.0
*Set Var py=GenData(pY,Real)
*Set Var dy=Operation(-1*GenData(_A_,Real))
*Set Var pz=Operation(GenData(pZ,Real)+GenData(_E,Real))
*Set Var dz=GenData(_F,Real)
*# include ..\include.src.bas\Create_Layered_Sandwich3D.bas
*tcl(Create_Layered_Sandwich3D *px *py *pz *dx *dy *dz)
*# BF
*Set Var px=GenData(pX,Real)
*Set Var dx=0.0
*Set Var py=GenData(pY,Real)
*Set Var dy=GenData(_B,Real)
*Set Var pz=Operation(GenData(pZ,Real)+GenData(_E,Real))
*Set Var dz=GenData(_F,Real)
*# include ..\include.src.bas\Create_Layered_Sandwich3D.bas
*tcl(Create_Layered_Sandwich3D *px *py *pz *dx *dy *dz)
*# CF
*Set Var px=GenData(pX,Real)
*Set Var dx=0.0
*Set Var py=Operation(GenData(pY,Real)+GenData(_B,Real))
*Set Var dy=GenData(_C,Real)
*Set Var pz=Operation(GenData(pZ,Real)+GenData(_E,Real))
*Set Var dz=GenData(_F,Real)
*# include ..\include.src.bas\Create_Layered_Sandwich3D.bas
*tcl(Create_Layered_Sandwich3D *px *py *pz *dx *dy *dz)
*ElseIf(strcmp(GenData(Predefined_Structure),"Advanced_Frame_Panel")==0)
*# include ..\include.src.bas\Advance_Frame_Panel.bas
*tcl(Advanced_Frame_Panel_BF )
*tcl(Advanced_Frame_Panel_CE )
*tcl(Advanced_Frame_Panel_CF )
*Else
*MessageBox error: Type requested structure For Generate is not defined!
*Set Var catalogue=0
*#
*#GenData(Predefined_Structure),"Simple_Panel","Simple_Frame_Panel","Simple_Window_Panel"...
*#
*EndIf
*#
*If(catalogue==1)
*tcl(sw_SetInternalVariable "sw_GenerateMacroelem" 0)
*EndIf
*#
*Else
*MessageBox error: The Macroelements has already been Generated!
*EndIf