!aus dem Forum
!Schätzing, 16.3.2016

finish   $/clear

*abbr,bohrungen,/input,bohrungen,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------
rectng,0,a_1/2,0,hoehe
rectng,a_1/2,a_1,0,hoehe
rectng,0,a_1,0,hoehe/2
cyl4,a_1/2,b_1,r_1
aovlap,all
/pnum,area,1
aplot
adele,5,8
numcmp,area

!-----Vernetzung Fläche------
et,2,mesh200,7  !Vernetzngshilfe
type,2
esize,r_1/2
mshkey,0
mshape,0
amesh,all

!-----Vernetzung Volumen------
et,1,Solid186
type,1
mat,1
esize,,12
vext,all,,,0,0,laenge
aclear,all   !Vernetzunghilfe entfernen

eplot