finish
/clear

/prep7
et,1,mesh200,6                            !Elementtyp1 (Flächenelement) festlegen
et,2,solid186  


!************ Grundfläche *************
rad1=10
rad2=11
rad3=12
rad4=13
pcirc,rad1,rad2,0,360
pcirc,rad2,rad3,0,360
pcirc,rad3,rad4,0,360

lesize,all,,,12
aglue,all
amesh,all



!*************Extrudiepfad *************
k,101,0,0,0
k,102,0,0,100
k,103,0,100,100

l,101,102            !LineNum=13
l,102,103            !LineNum=14

lfillt,13,14,100     !LineNum=15




!**************Extrudieren*****************
type,2
ElemLeng=5              !Elementlänge in Längsrichtung
esize,5

vdrag,all,,,,,,15



!***********KOOS positionieren***************

*get,LineLeng,line,15,leng       !Länge des Extrudiepfades
ElemAnz=(LineLeng/ElemLeng)-MOD(LineLeng/ElemLeng,1)+1         !Wert wird aufgerundet

*do,i,0,ElemAnz
   lwplan,11,15,i/(ElemAnz)                 !WP in nächsten Querschnitt setzen
   csys,4
   clocal,100+i,1,0,0,0,0,0,0
*enddo