Salome HOME
PAL9022. enable creation of groups on SHELLs
[modules/smesh.git] / src / SMESH_SWIG / ex18_dome2.py
1 # CEA/LGLS 2004-2005, Francis KLOSS (OCC)
2 # =======================================
3
4 from geompy import *
5
6 import smesh
7
8 import math
9
10 # Geometrie
11 # =========
12
13 # Creer un cylindre ayant a chaque bout un morceau de sphere et le tout troue par un petit cylindrique excentre.
14 # Decouper en hexahedre et mailler.
15
16 # Donnees
17 # -------
18
19 # unite: millimetre
20
21 g_ox = 0
22 g_oy = 0
23 g_oz = 0
24
25 g_cyl_rayon       = 1000
26 g_cyl_demiHauteur = 3000
27
28 g_trou_rayon       =   5
29 g_trou_centre      = 300
30
31 g_sphere_rayon = 3500
32
33 g_trim = 15000
34
35 # Cylindre
36 # --------
37
38 c_point    = MakeVertex(g_ox, g_oy, g_oz-g_cyl_demiHauteur)
39 c_dir      = MakeVectorDXDYDZ(0, 0, 1)
40 c_hauteur  = 2*g_cyl_demiHauteur
41
42 c_cylindre = MakeCylinder(c_point, c_dir, g_cyl_rayon, c_hauteur)
43
44 # Sphere
45 # ------
46
47 s_hauteur = math.sqrt(g_sphere_rayon*g_sphere_rayon - g_cyl_rayon*g_cyl_rayon) - g_cyl_demiHauteur
48
49 s_sphere  = MakeSphere(g_ox, g_oy, g_oz-s_hauteur, g_sphere_rayon)
50
51 # Calottes
52 # --------
53
54 c_outils = []
55 c_outils.append(MakePlane(MakeVertex(g_ox, g_oy, g_oz+g_cyl_demiHauteur), MakeVectorDXDYDZ(0, 0, 1), g_trim))
56
57 c_cpd = MakePartition([s_sphere], c_outils, [], [], ShapeType["SOLID"])
58 c_calotte_haut, c_reste = SubShapeAllSorted(c_cpd, ShapeType["SOLID"])
59
60 c_plan = MakePlane(MakeVertex(g_ox, g_oy, g_oz), MakeVectorDXDYDZ(0, 0, 1), g_trim)
61 c_calotte_bas = MakeMirrorByPlane(c_calotte_haut, c_plan)
62
63 # Fusionner
64 # ---------
65
66 f_piece1 = MakeFuse(c_cylindre, c_calotte_haut)
67 f_piece  = MakeFuse(f_piece1, c_calotte_bas)
68
69 # Trouer
70 # ------
71
72 t_hauteur = g_sphere_rayon
73 t_point   = MakeVertex(g_ox-g_trou_centre, g_oy, g_oz-t_hauteur)
74 t_trou    = MakeCylinder(t_point, c_dir, g_trou_rayon, 2*t_hauteur)
75
76 t_piece   = MakeCut(f_piece, t_trou)
77
78 # Decouper
79 # --------
80
81 h_outils = []
82 h_outils.append(MakePlane(t_point, MakeVectorDXDYDZ(1, 0, 0), g_trim))
83 h_outils.append(MakePlane(t_point, MakeVectorDXDYDZ(0, 1, 0), g_trim))
84
85 h_piece = MakePartition([t_piece], h_outils, [], [], ShapeType["SOLID"])
86
87 # Reparer
88 # -------
89
90 piece = RemoveExtraEdges(h_piece)
91
92 # Ajouter la piece dans l'etude
93 # -----------------------------
94
95 piece_id = addToStudy(piece, "ex18_dome2")
96
97 # Maillage
98 # ========
99
100 # Maillage hexahedrique
101 # ---------------------
102
103 hexa = smesh.Mesh(piece, "ex18_dome2:hexa")
104
105 algo = hexa.Segment()
106 algo.NumberOfSegments(2)
107
108 hexa.Quadrangle()
109
110 hexa.Hexahedron()
111
112 # Calcul du maillage
113 # ------------------
114
115 hexa.Compute()