jak by kolega Primoza2007 uważnie przeglądał program to by na pewno zauważył ze zaczynamy na dnie otworu ( Z=-R3 ) i frezujemy gwint " wyjeżdżając " z otworu

Tu przykład podprogramu do frezowania gwintów frezem z płyta wieloostrzowa jednak bez G41 i G42 gdyż korekcja jest realizowana za pomocą parametru R
program był sprawdzany na sterowaniu SINUMERIK 840d i działa bez problemu w razie jakiś pytań pisać


:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;R1-ROZMIAR GWINTU ( NP DLA M24 WPISUJEMY 24 )
;R2-SKOK GWINTU
;R3-GLEBOKOSC GWINTU
;R4-SREDNICA FREZA
;R5-PROMIEN TORU FREZA
;R6-POLOWA PROMIENIA TORU FREZA
;R7-ILOSC ZEBOW NA PLYTCE
;R8-KOREKTOR SREDNICY GWINTU ( tu korygujemy jesli nam wyjdzie zbyt ciasny gwint wartosc zmienia srednice gwintu )
;R11 ILOSC POWTORZEN

;XXXXXXXXXXXXXXXXXXXX WPROWADZ DANE XXXXXXXXXXXXXXXXXXXXXXXXXXXX
R1=
R2=
R3=
R4=.....
R5=((R1+R8)-R4)/2
R6=R5/2
R7=
R8=
R11=
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX


G90 G0 X0 Y0
G90 G0 Z100
X0 Y0
M42
Z0
M3 S1300 F150 G64
G00 Z=-R3 CFTCP
G91 X=R6 Y=-R6 Z=-(R2/8)
R10=0

DALEJ:
R10=(R10+1)
G3 X=R6 Y=R6 CR=R6 Z=(R2/8)
G3 X0 Y0 I=-R5 J0 Z=R2
G3 X=-R6 Y=R6 CR=R6 Z=(R2/8)
G0 Z=((R2*R7)-(R2/4))
G0 Y=(-R6*2)

IF R10<R11 GOTOB DALEJ

G90
G0 X0 Y0
Z100
M17

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX