Code:
finish
/clear,nostart ! löscht die Anzeige! allgemeine Eingaben
/filename,aufgabe-a ! Dateiname
/titel,feder1 ! Titel für die Ausgabe
/eshape,0.5 !überhöhte darstellung
!##############################################
!Variablen Block
N = 3.5 !windungszahl
di = 5 !Durchmesser mittellinie
steig = 2 !steigung
verschieb = 10 !des neuen punktes y-achse
teil = 360/verschieb
!##############################################
/prep7
csys,1 !zylindrisches KOS
!keypoints erstellen
!keypoint,nr,x,y,z
k,1,di/2,0,0
!anzahl der widerholungen,keypoint1,x-verschiebung,y-verschiebung(abstand zwischen zwei keypoints),
!z-verschiebung(anstieg)
*repeat,teil*N,1,0,verschieb,steig/teil,
!linien erstellen
et,1,4
l,1,2
*repeat,(teil*N)-1,1,1
!tangentiale Abgänge
k,(teil*N)+1,(di/2),-verschieb,0
k,(teil*N)+2,(di/2),-verschieb*2,0
ltan,1-2,(teil*N)+1,
!???????????
csys,0 !kart.KOS
/eof