!aus dem Forum von LieToMe
!Schätzing, 25.6.2018
!Bauteil schneiden
!

finish   $/clear

*abbr,lietome,/input,lietome,txt

!----Parameter--------
hoch=12
rad=2

/prep7
/color,outl,blac
!---------Zylinder--------
cylind,,rad,0,hoch
!----Hilfsquader zum Schneiden des Zylinders---
block,-rad*2,rad*2,-rad*2,rad*2,0,hoch*3/4
!-----alle Volumen überlappen----
vovlap,all
!-----Volumennummerierung minimieren--
numcmp,volu
!-----Hilfsvolumen löschen----
vdele,3,,,1
!/eof
!-----Vernetzungsbeispiel------
et,1,mesh200,10   !8-KnotenElement
esize,rad/2       !Elementgröße
vsweep,1
esize,rad/10
vsweep,2