!aus dem Forum von straßenbauigel
!Schätzing, 8.6.2013

finish  $/clear

*abbr,strasse,/input,strasse,txt

/prep7
rad=150e-3
abmx=1
abmy=1
abmz=10e-3

pcirc,,rad,0,90
rectng,0,abmx,0,abmy
aovlap,all
numcmp,area
!A1: ViertelKreis  A2:Rechteck

et,1,mesh200,10   !3D-Element
et,2,mesh200,6    !2D-Hilfselement

type,2
esize,rad/8
eshape,2
amesh,1

lccat,5,6        !Linie 5 und 6 verbinden
esize,rad/2
amesh,2

ldel4,4         !Verbundlinie löschen

type,2
esize,,1
vext,1,2,,,,abmz

vext,1,2,,,,-abmz

aclear,all