Hier ein Beispiel für
FräsenUnterprogramm in einer Datei mit der Endung .SSB ( Kegel.SSB) Speichern .
__________________
(KEGELFRAESEN-INNEN)
OKEGI (CALL OKEG PA=... PE=.... PD=... STZ=...)
(PA ANFANGSRADIUS )
(PE ENDRADIUS )
(PD WERKSTUECKDICKE)
(STZ GEWUENSCHTE STEIGUNG)
VC97=PA
VC98=PE
VC99=PD
FRR=VTOFD[VC6]
ANRA=[VC97-FRR]
ENRA=[VC98-FRR]
VC100=[[ANRA-ENRA]/[VC99/STZ]]
STEI=VC100 (RADIUSABNAHME )
TEIL=1 (WINKELTEILUNG IN GRAD)
STAW=0 (STARTWINKEL)
XXX=00 (STARTPUNKT IN X)
YYY=0 (STARTPUNKT IN Y)
ZZZ=0 (STARTPUNKT IN Z)
G1 Z=ZZZ
X=ANRA*COS[STAW] Y=ANRA*SIN[STAW]
INK=360/TEIL
PLUS=STEI/INK
PLUZ=STZ/INK
ZAHL=0
G1Z=ZZZ
N999
ZAHL=ZAHL+1
RNEU=ANRA-PLUS*ZAHL
IF[RNEU LE ENRA]N1000
WINK=STAW+TEIL*ZAHL
XX=COS[WINK]*RNEU
YY=SIN[WINK]*RNEU
ZZ=ZZZ-PLUZ*ZAHL
G1 X=XX Y=YY Z=ZZ
GOTO N999
N1000
G1 X=XXX
G0Z2
RTS