1 # CEA/LGLS 2004, Francis KLOSS (OCC)
2 # ==================================
13 # Creer la geometrie en bloc hexahedrique d'une piece en forme de T composee de 2 cylindres de diametre different dont les axes se coupent orthogonalement,
14 # puis mailler en hexahedrique.
36 g_base = MakeVertex(cx, cy, cz)
37 g_dir = MakeVectorDXDYDZ(0, 0, 1)
38 t_hauteur = p_rayon+10.0
40 g_cyl = MakeCylinder(g_base, g_dir, g_rayon, g_hauteur)
42 g_coupe = MakeVectorDXDYDZ(1, 0, 0)
45 g_tools.append(MakePlane(MakeVertex(cx+t_hauteur, cy, cz), g_coupe, g_trim))
46 g_tools.append(MakePlane(MakeVertex(cx-t_hauteur, cy, cz), g_coupe, g_trim))
48 g_partie = MakePartition([g_cyl], g_tools, [], [], ShapeType["SOLID"])
49 g_bas, g_centre, g_haut = SubShapeAllSorted(g_partie, ShapeType["SOLID"])
51 # Partie basse du gros cylindre
52 # -----------------------------
57 b_boite = MakeBox(cx-t_hauteur, cy-b_base, cz, cx-t_hauteur-b_hauteur, cy+b_base, cz+g_hauteur)
60 b_cyl = MakeCut(g_bas, b_boite)
63 b_tools.append(MakePlane(MakeVertex(cx-t_hauteur-b_hauteur, cy+b_base, cz), MakeVectorDXDYDZ( 1, 1, 0), g_trim))
64 b_tools.append(MakePlane(MakeVertex(cx-t_hauteur-b_hauteur, cy-b_base, cz), MakeVectorDXDYDZ(-1, 1, 0), g_trim))
66 b_partie = MakePartition([b_cyl], b_tools, [], [], ShapeType["SOLID"])
67 b_element = SubShapeAll(b_partie, ShapeType["SOLID"])
70 # Partie haute du gros cylindre
71 # -----------------------------
73 h_plan = MakePlane(g_base, g_coupe, g_trim)
75 cpd.append(MakeMirrorByPlane(b_boite, h_plan))
78 h_symetrie = MakeMirrorByPlane(h, h_plan)
79 cpd.append(h_symetrie)
85 x_arete = z_arete*t_hauteur*2/g_hauteur
91 p_base = MakeVertex(cx, py, pz)
92 p_dir = MakeVectorDXDYDZ(0, 1, 0)
93 p_cyl = MakeCylinder(p_base, p_dir, p_rayon, p_hauteur)
95 p_boite = MakeBox(px, py, pz-z_arete, cx+x_arete, py+p_hauteur, pz+z_arete)
97 # Partie interieure du petit cylindre
98 # -----------------------------------
100 i_cyl = MakeCommon(p_cyl, g_cyl)
101 i_tuyau = MakeCut(i_cyl, p_boite)
102 i_boite = MakeCommon(p_boite, g_cyl)
104 # Partie exterieure du petit cylindre
105 # -----------------------------------
107 e_cyl0 = MakeCut(p_cyl, g_cyl)
108 e_cyl = SubShapeAllSorted(e_cyl0, ShapeType["SOLID"])
110 e_tuyau = MakeCut(e_cyl[1], p_boite)
112 e_boite0 = MakeCut(p_boite, g_cyl)
113 e_boite = SubShapeAllSorted(e_boite0, ShapeType["SOLID"])
115 cpd.append(e_boite[1])
117 # Partie centrale du gros cylindre
118 # --------------------------------
120 c_cyl = MakeCut(g_centre, p_cyl)
126 p_tools.append(MakePlane(MakeVertex(px, py, pz-z_arete), MakeVectorDXDYDZ(-z_arete, 0, x_arete), g_trim))
127 p_tools.append(MakePlane(MakeVertex(px, py, pz+z_arete), MakeVectorDXDYDZ( z_arete, 0, x_arete), g_trim))
129 p_partie = MakePartition([e_tuyau], p_tools, [], [], ShapeType["SOLID"])
130 p_element = SubShapeAll(p_partie, ShapeType["SOLID"])
131 cpd = cpd + p_element
133 q_partie = MakePartition([i_tuyau, c_cyl], p_tools, [], [], ShapeType["SOLID"])
134 q_element = SubShapeAll(q_partie, ShapeType["SOLID"])
136 q_element = q_element + [i_boite]
139 q_tools.append(MakePlane(MakeVertex(cx, cy-b_base, cz), MakeVectorDXDYDZ(0, 1, 0), g_trim))
140 q_tools.append(MakePlane(MakeVertex(cx, cy+b_base, cz), MakeVectorDXDYDZ(0, 1, 0), g_trim))
144 r_partie = MakePartition([e], q_tools, [], [], ShapeType["SOLID"])
145 r_element = r_element + SubShapeAll(r_partie, ShapeType["SOLID"])
147 cpd = cpd + r_element
152 comp_all = MakeCompound(cpd)
153 piece = BlocksOp.RemoveExtraEdges(comp_all)
155 # Ajouter la piece dans l'etude
156 # -----------------------------
158 piece_id = addToStudy(piece, "T2Cylindres")
163 # Mailler des hexahedres
164 # ----------------------
166 m_hexa=MeshHexa(piece, 4, "T2CylindresHexa")
168 # Calculer le maillage
169 # --------------------