!Versuch mit vdrag
!Schätzing 29.7.2014

fini  $/cle
*abbr,vdragtest2,/input,vdragtest2,inp

rad1=30e-3
rad2=120e-3

/prep7 

et,1,mesh200,6
et,2,mesh200,10 

!-----Geometrie-------
!-----Fläche----------
pcirc,rad1,,  0, 90
pcirc,rad1,, 90,180
pcirc,rad1,,180,270
pcirc,rad1,,270,360
aglue,all
numcmp,area
numcmp,line
numcmp,kp

!----Vernetzen------
type,1 
esize,,4
amesh,all

!------Linien-------
K_anf=kp(0,0,0)
*get,k_max,kp,,num,max
k,k_max+1,0,0,rad2      !Ende der Geraden
l,k_anf,k_max+1
*get,l_max,line,,num,max
!------------------------
k,k_max+2,rad2,,rad2     !K_zentrum
k,k_max+3,rad2,,rad2*2   !K_oben
k,k_max+4,rad2*2,,rad2   !K_
k,k_max+5,Rad2*2,,0      !K_daneben

!-----Bögen-------
larc,k_max+1,k_max+3,k_max+2,rad2  !l_max+1
larc,k_max+3,k_max+4,k_max+2,rad2  !l_max+2

!----Gerade-------------
l,k_max+4,k_max+5        !l_max+3

!/eof

!-----vdrag-------
type,2
esize,,6
vdrag,all,,,,,,l_max,l_max+1,l_max+2,l_max+3
/view,,1,1,1
eplot