save,file,db
/PREP7  
!*  
ET,1,PLANE183   
!*  
KEYOPT,1,1,0
KEYOPT,1,3,0
KEYOPT,1,6,0
!*  
ET,2,CONTA172   
KEYOPT,2,9,0
KEYOPT,2,10,2
!*  
ET,3,TARGE169
!ET,4,plane183 
!*  
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,210000 
MPDATA,PRXY,1,,0.3  
TB,BISO,1,1,2,  
TBTEMP,0
TBDATA,,200,1000,,,,
!*  
!*  
FINISH  
/AUX15  
!*  
IOPTN,IGES,SMOOTH   
IOPTN,MERGE,YES 
IOPTN,SOLID,YES 
IOPTN,SMALL,YES 
IOPTN,GTOLER, DEFA  
IGESIN,'baugruppe_frei_igs_2d','igs','\\IMACAD60\Benutzer\stohrer7\Simulationen\Test\'
! LPLOT   
!*  
FINISH  
/PREP7  
! Beginn Überschüssige Linien aus Skizze löschen
lsel,s,,,1
lsel,a,,,3
lsel,a,,,10
lsel,a,,,12
lsel,a,,,5
lsel,a,,,7
lsel,a,,,11
lsel,a,,,6
ldele,all
! Ende überschüssige Linien aus Skizze löschen
! Beginn Kreis als Fläche definieren
lsel,s,,,13
lsel,a,,,14
al,13,14
! Ende Kreis als Fläche definieren
! Beginn Würfel als Fläche definieren
lsel,s,,,2
lsel,a,,,4
lsel,a,,,8
lsel,a,,,9
al,2,4,8,9
! Ende Würfel als Fläche definieren
! Beginn Vernetzung Kreis
!type,4
asel,s,,,1
esize,0.5
amesh,all
! Ende Vernetzung Kreis
! Beginn Vernetzung Würfel
!type,1
asel,s,,,2
amesh,all
!
mp,mu,1,
mat,1
! Beginn obere Linie des Würfels als Target definieren
lsel,s,,,8
type,3
NSLL,S,1
ESLN,S,0
ESURF
! Ende Target definieren
! Beginn Kreis als Kontakt zu definieren
LSEL,S,,,13 
LSEL,A,,,14
TYPE,2  
NSLL,S,1
ESLN,S,0
ESURF
! ENde Kreis als Kontakt definieren
ALLSEL  
ESEL,ALL
!ESEL,S,TYPE,,3  
!ESEL,A,TYPE,,2
finish