!Quader mit Bohrung
!aus dem Forum von oedipussy
!Schätzing, 20.1.2012

fini
/clear 

*abbr,oedipussy,/input,oedipussy,txt

/prep7


ET,1,MESH200,6 ! Elemente
ET,2,SOLID70

MP,KXX,1,40 ! Materialeigenschaft

!----Parametervereinbarung------
abx=10   !Abmessung in X
aby=10   !Abmessung in Y
abz=20   !Abmessung in Z
radbo=3  !Radius Bohrung

!-----Geometrie Fläche am Bohrungsgrund--
rectng,0,abx/2,0,aby/2
pcirc,,radbo,0,90
aovlap,all
numcmp,area
!A1:Bohrung  A2:Rest
!/eof
!----Vernetzung Bohrungsgrund---------------------
type,1
esize,radbo/6
mshkey,1
amesh,1
!---Vernetzung Restfläche---------------
lsel,s,loc,x,abx/2
lsel,a,loc,y,aby/2
lccat,all  !Linien der Außenkanten verbinden
amesh,2
ldele,1   !Verbindungslinie wieder löschen
eplot

!-----Spiegeln------
allsel
arsym,x,all
arsym,y,all

!-----Extrudieren voll nach unten-------
type,2
esize,,10
vext,all,,,0,0,-abz/2

!-----Extrudieren Rest nach oben-------
asel,s,loc,z,0
asel,u,loc,x,-radbo/2,radbo/2
esize,,10
vext,all,,,0,0,+abz/2

!-----Flächenelemente löschen-----
asel,all
aclear,all
eplot