FINISH
/CLEAR  
/PREP7
/TITLE,Zylinderverschneidung for Stefan Reckel at www.cad.de by Mechanixx
!
!
*SET,my_radius,50.0                     ! Geometrieparameter
*SET,my_hoehe,60.0
*SET,my_meshsize,5.0
!
!
CYL4,0,0,my_radius,0,,90,my_hoehe       ! 1. Viertelzylinder
WPRO,,,90 
CYL4,0,0,my_radius,90,,180,my_hoehe     ! 2. Viertelzylinder
VADD,1,2                                ! 1. und 2. Viertelzylinder vereinigen
!
!
ALLSEL                                  ! ueberschuessige Flaechen verbinden
ASEL,S,LOC,Z,0,-999  
AADD,ALL
ALLSEL
ASEL,S,LOC,X,0,-999
AADD,ALL
ALLSEL
ASEL,S,LOC,Y,0,-999  
AADD,ALL
!
! 
ALLSEL
WPCSYS,-1,0 
WPRO,,,-45
VSBW,3                                  ! Volumen teilen
VGLUE,ALL                               ! Teilvolumina verbinden 
WPCSYS,-1,0 
!
!
ET,1,SOLID186                           ! Elementtyp
ESIZE,my_meshsize                       ! Globale Elementgroesze
VSWEEP,ALL                              ! Teilvolumina mit Sweep-Methode vernetzen
!
!
ALLSEL
/VIEW,1,1,1,1   
/ANG,1   
EPLOT                                   ! Elemente darstellen