!aus dem Forum von Thisisnottheend
!Schätzing, 24,3,2016

finish
/clear

*abbr,bohrungen3,/input,bohrungen3,txt

/prep7
elementlaenge=0.1
laenge=-2 
laengehalb=laenge/2 
breite=1 
hoehe=0.2 
a_1=0.167*1 
a_2=0.167*2    
a_3=0.167*3    
a_4=0.167*4    
a_5=0.167*5 
b_1=0.1 
b_2=0.1    
b_3=0.1    
b_4=0.1    
b_5=0.1    
r_1=0.025 
r_2=0.025    
r_3=0.025      
r_4=0.025      
r_5=0.025   

!-----Geometrie------
block,0,a_1,0,hoehe,0,laenge
zugabe=r_1
winkel=1
local,11,0,a_1/2,hoehe/2,zugabe,,,-winkel
wpcsys,,11
cylind,,r_1,0,+laenge-2*zugabe
vsbv,1,2
numcmp,volu
wpcsys,,0
csys,0

!----Vernetzung Vorderfläche----------
asel,s,loc,z,0

et,2,mesh200,7  !Vernetzngshilfe
type,2
esize,r_1/3
mshkey,0
mshape,0
amesh,all

!-----Vernetzung Volumen------
et,1,solid186
type,1
mat,1
esize,,12
vsweep,1
aclear,all    !Vernetzunghilfe entfernen
eplot

!------Spiegelung------
local,12,0,a_1
wpcsys,,12
vsymm,x,1
wpcsys,,0
csys,0
eplot
nummrg,node    !doppelte Knoten entfernen