1 # The following example constructs (however, not trying to follow the drawings
2 # precisely) an airplane part called Gehause Rohteil from MBB Deutsche Aerospace.
3 # In this example the planar geometry is combined together with cylindrical parts.
4 # There are many ways to create a single mechanical workpiece like the following
5 # one. Here we choose Booleans as a main tool for material cutting. Fillets
6 # (presented in the original model) are not employed herein as we are focused
7 # on BOPs only. However, Gehause Rohteil is a good model to test blendings as well.
9 # This model was used as a test part for comparing modeling systems in 1979 and
10 # again in 1983. The tests were organized by Computer Aided Manufacturing
11 # International (CAM-I).
14 #Title: MBB Gehause Rohteil (classic test for CAD modelling by CAM-I)
18 # -----------------------------------------------------------------------------
19 # Prepare base contour
20 # -----------------------------------------------------------------------------
42 line l1 0 0 1 0; trim l1 l1 0 35
43 line l2 39 4 0 1; trim l2 l2 0 6
44 line l3 35 13 -1 0; trim l3 l3 0 8
45 line l4 27 13 0 -1; trim l4 l4 0 3
46 line l5 27 10 -1 0; trim l5 l5 0 5
47 line l6 20 8 0 -1; trim l6 l6 0 4
48 line l7 20 4 -1 0; trim l7 l7 0 9
49 line l8 11 4 0 -1; trim l8 l8 0 1
50 line l9 11 3 -1 0; trim l9 l9 0 6
51 line l10 5 3 0 1; trim l10 l10 0 10
52 line l11 5 13 -1 0; trim l11 l11 0 5
53 line l12 0 13 0 -1; trim l12 l12 0 4
54 line l13 0 9 1 0; trim l13 l13 0 4
55 line l14 4 9 0 -1; trim l14 l14 0 5
56 line l15 4 4 -1 0; trim l15 l15 0 4
57 line l16 0 4 0 -1; trim l16 l16 0 4
59 # We use Bezier curves here instead of circles. This does not make
60 # a great sense since we are focused on a principle rather than
61 # trying to follow the drawing precisely
62 2dbeziercurve c1 3 35 0 1 39 0 1 39 4 1
63 2dbeziercurve c2 3 39 10 1 39 13 1 35 13 1
64 2dbeziercurve c3 3 22 10 1 20 10 1 20 8 1
66 # Circle for a big hole
67 circle cbig 33 6.5 4.0
89 wire wout e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16 e17 e18 e19
98 # -----------------------------------------------------------------------------
100 # -----------------------------------------------------------------------------
104 # -----------------------------------------------------------------------------
105 # Prepare a contour on top face
106 # -----------------------------------------------------------------------------
121 line l1 0 0 1 0; trim l1 l1 0 28
122 line l2 28 0 0 1; trim l2 l2 0 13
123 line l3 28 13 -1 0; trim l3 l3 0 1
124 line l4 27 13 0 -1; trim l4 l4 0 3
125 line l5 27 10 -1 0; trim l5 l5 0 5
126 line l6 20 8 0 -1; trim l6 l6 0 4
127 line l7 20 4 -1 0; trim l7 l7 0 9
128 line l8 11 4 0 -1; trim l8 l8 0 1
129 line l9 11 3 -1 0; trim l9 l9 0 6
130 line l10 5 3 0 1; trim l10 l10 0 10
131 line l11 5 13 -1 0; trim l11 l11 0 5
132 line l12 0 13 0 -1; trim l12 l12 0 13
133 2dbeziercurve c3 3 22 10 1 20 10 1 20 8 1
135 # Create topology on top face
163 wire wout e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13
164 mkface ftop top_pln wout
167 # -----------------------------------------------------------------------------
169 # -----------------------------------------------------------------------------
171 prism ptop ftop 0 0 1.5
173 # -----------------------------------------------------------------------------
174 # Fuse top and bottom parts and make features
175 # -----------------------------------------------------------------------------
177 # Fuse top and bottom
182 circle csmall 23 6.5 2.0
183 to3d hole_top csmall top_pln
184 plane bot_pln 0 0 -10
185 to3d hole_bot csmall bot_pln
186 mkedge ehole_top hole_top
187 mkedge ehole_bot hole_bot
188 wire whole_top ehole_top
189 wire whole_bot ehole_bot
190 thrusections tool 1 1 whole_top whole_bot
193 # Add extrusion around the hole
194 plane top_pln 0 0 4.5
195 circle csmall_outer 23 6.5 3.0
196 circle csmall_inner 23 6.5 2.0
197 to3d hole_top_outer csmall_outer top_pln
198 to3d hole_top_inner csmall_inner top_pln
199 mkedge e_hole_top_outer hole_top_outer
200 mkedge e_hole_top_inner hole_top_inner
201 wire w_hole_top_outer e_hole_top_outer
202 wire w_hole_top_inner e_hole_top_inner
203 mkface ftube_outer top_pln w_hole_top_outer
204 mkface ftube_inner top_pln w_hole_top_inner
205 fixshape ftube_outer ftube_outer
206 fixshape ftube_inner ftube_inner
207 prism ptube_outer ftube_outer 0 0 3
208 prism ptube_inner ftube_inner 0 0 3
209 bcut ptube ptube_outer ptube_inner
212 # Build elevation "teeths" near the big hole
213 box t1 26 0 0 3 2.5 7
214 box t2 26 13 0 3 -3 7
218 # Build elevation "teeths" near the tail
224 # Remove some material from tail "teeths"
225 box blend_box 0 -5 0 5 25 5
226 trotate blend_box blend_box 0 0 0 0 1 0 -10
227 ttranslate blend_box blend_box 2.5 0 2.25
230 # Remove some material from "teeths" near big hole
231 box blend_box 0 -5 0 5 25 5
232 trotate blend_box blend_box 0 0 0 0 1 0 -9
233 ttranslate blend_box blend_box 14.5 0 1.5
237 ellipse tail_hole1 0 0 0.75 0.5
238 plane base_pln 2 6.5 0
239 to3d tail_hole_3d1 tail_hole1 base_pln
240 mkedge e_tail_hole1 tail_hole_3d1
241 wire w_tail_hole1 e_tail_hole1
242 plane base_pln 2 6.5 20
243 to3d tail_hole_3d2 tail_hole1 base_pln
244 mkedge e_tail_hole2 tail_hole_3d2
245 wire w_tail_hole2 e_tail_hole2
246 thrusections tail_tube 1 1 w_tail_hole1 w_tail_hole2
250 box blend_box 0 3 0 5 7 5
251 trotate blend_box blend_box 0 0 0 0 1 0 -5
252 ttranslate blend_box blend_box 2 0 1.5
255 # -----------------------------------------------------------------------------
256 # Extract final solid and simplify it
257 # -----------------------------------------------------------------------------
260 unifysamedom result p_1
264 vinit Driver1/Viewer1/View1
265 vbackground -color 0.784314 0.784314 1
266 vdisplay -dispMode 1 result
268 vaspects result -setFaceBoundaryDraw 1