*reset

||Einheiten: mm, s, t, N

||Definieren der Variablen

|Lochdurchmesser d
*define d 22

|Bauteillänge l
*define l 600+3.5*d

|Bauteilbreite b
*define b 4*d

|Abstand manuelle Vernetzung
*define a_m_vern d/2+2/3*(b-d)/2

|Abstand Einspannung - Schraubenmittelpunkt
*define a l-3.5*d



||Festlegen der Geometrie

|Bauteilgeometrie (= Kurve 1) generieren,  

*add_nodes
0 0 0
l 0 0
l b 0
0 b 0
*add_points
a b/2 0
*set_duplicate_point
a b/2 0
*set_duplicate_translations
b/2 b/2 0
*duplicate_points
 1
# | End of List
*set_duplicate_rotations
0 0 90
*set_duplicate_translations
0 0 0
*set_duplicate_repetitions
3
*duplicate_points
2
# | End of List

*duplicate_reset
*set_duplicate_translations
0 b/2 0
*duplicate_points
 4
# | End of List

*set_curve_type arc_craa
*add_curves
a b/2 0
d/2
0
360

*sub_divisions
8
1
1
*subdivide_curves
1
# | End of List

*convert_points
 3 4 6 2 5 60 11 40
# | End of List

*add_elements
 9 10 11 6
 7 12 10 9
 1 7 6 4
 8 2 3 5
*sub_divisions
6
4
1
*sub_bias_factor
0.3
0
0
*subdivide_elements
 2
 1
# | End of List

*set_duplicate_point
a b/2 0
*set_duplicate_rotations
0 0 90
*set_duplicate_translations
0 0 0
*set_duplicate_repetitions
3
*duplicate_elements
 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
#

*sub_divisions
40
8
1
*sub_bias_factor
0
0
0
*subdivide_elements
 3
# | End of List

*sub_divisions
3
8
1
*subdivide_elements
 4
# | End of List