% 
O7015( HELIX EINTAUCHEN AUSSEN X,Y,R,Z,S ) 
( ****************************** ) 
( ** 12.11.2007, V1.0, CNC-HK ** ) 
( ****************************** ) 
G0X#24Y[#25+#8+#7/2] 
IF[#2LT#26]THEN#3000=1( RUECKZUG -R- ZU KLEIN )
IF[#2EQ#0]THEN#3000=2(PARAMETER -B- VERGESSEN) 
#1=[#7/2]( RADIUS )
G0Z#18 
#19=#19*[-1] 
#5=FIX[[#26-#18]/#19]( ANZ. UMDRH. ) 
#19=[[#26-#18]/#5] 
 
G91G41G64X-#8 
G3X#8Y-#8I#8J0 
WHILE[#5GT0]DO1
G2X0Y0I0J-#1Z#19 
#5=#5-1( ANZAHL -1 ) 
END1 
G2X0Y0I0J-#1 
G3X#8Y#8I0J#8
G0G40G61X-#8
M1 
G0G90Z#2 
M[99]
 
 
( X = ANSTELLPOSITION   #24 )
( Y = ANSTELLPOSITION   #25 )
( R = ANSTELLPOSITION   #18 )
( B = RUECKZUG          #2  )
( Z = TIEFE ABSOLUT     #26 )
( D = DURCHMESSER       #7  )
( S = STEIGUNG DER HELIX #19)
( E = EINFAHRRADIUS     #8 ) 
 
( DER BODEN WIRD NOCH MAL OHNE  )
( Z-ZUSTELLUNG NACHGESCHLICHTET )
M30
%