Huh, nehéz szülés volt, de sikerült leszenvednem életem első paraméteres programját. Még sok finomítani való van rajta, de ahhoz képest, hogy az első ilyen programom, és működő képes, örülök a fejemnek
Ami a lényege: bárhonnan elkezdhető a szúrás (nem úgy mint a G74 ciklusnál), és vannak benne kiállások, a forgács miatt, valamint azért van ennyi paraméter, hogy sok fajta homlokbeszúráshoz használható legyen (különböző rádiuszok az alján, valamint az alsó és a felső átmérő hossza sokszor nem egyezik meg). Valamit bárhonnan újra lehet indítani a programot, ha esetleg a forgács miatt resetelni kellene.
Még meg akarom csinálni, hogy 1 vagy 2 fogásból vegye ki a mélységét, ha mélyebb, azért van egy felesleges paraméter.
%
O1001
(-- HOMLOKBESZURAS --)
(25 FOKOS)
#1=25.5(KEZDO SZURAS ATMEROJE, FELSO ELKORREKCIOVAL KEZD!)
#2=95. (NAGY ATMERO)
#3=10. (KIS ATMERO)
#4=10. (X FOGASMELYSEG)
#5=50. (Z MELYSEG)
#6=0. (Z KEZDOPONT)
#7=1. (Z FOGASOK SZAMA, 1/2) (ez lesz a két fogáshoz)
#8=4. (FOKOK HOSSZA)
#9=1.5. (CSAP RADIUSZA)
#10=1.5.(NAGY ATMERO RADIUSZA)
#11=0.5 (SIMITASI RAHAGYAS)
#12=4. (CSAP MELYSEGE)
#13=6. (LAPKA SZELESSEG)
#15=#1 (PARAMETER TAROLAS)
#16=#12 (PARAMETER TAROLAS)
GOTO100
(NAGY ATMERO KORREKCIO)
N100 G96 S100 T212 N3
G0 X#1 Z2. M8
IF [#12EQ0] GOTO1
N1 #12=#6
G1 Z-[#12-0.5] F2.
IF [#5LT30] GOTO2
Z-[[#5+#6]/2] F0.06
G0 Z10. M9
M0 (FORGACS)
(NAGY ATMERO KORREKCIO)
N200 G96 S100 T212 M3
G0 X#1 Z2. M8
G1 Z-[[#5+#6]/2-0.5] F2.
N2 G1 Z-#5 F0.06
G0 Z10. M9
M0 (FORGACS)
(NAGY ATMERO KORREKCIO)
N300G96 S100 T212 M3
G0 X#1 Z2. M8
#20=#2-#10*2-#11 (NAGY ATMERO NAGYOLASA)
WHILE [#1LE#20] DO1
#1=#1+#4
IF [#1GT#20] GOTO3
G1 X#1 Z-[#12-0.5] F2.
Z-#5 F0.06
U-0.5 W0.5 F1.
G0 Z2.
G1 X#1 F2.
END1
N3 G1 X#20 Z-[#12-0.5]
G1 Z-#5 F0.06
U-0.5 W0.5 F1.
IF [#10LT3] GOTO4
G0 Z2.
G1 X[#2-#11-1] Z-[#12-0.5] F2.
Z-[#5-#10] F0.08
U-0.5 W0.5 F1.
N4 G0 Z10. M9
M0 (FORGACS)
(KIS ATMERO KORREKCIO)
N400 G96 S100 T202 M3
#1=#15-[#13*2]
G0 X#1 Z2. M8
#21=#3+#9*2+#11 (CSAP NAGYOLASA)
WHILE [#1GE#21] DO2
#1=#1-#4
IF [#1LT#21] GOTO5
G1 X#1 Z-[#12-0.5] F2.
Z-#5 F0.06
U0.5 W0.5 F1.
G0 Z2.
G1 X#1 F2.
END2
N5 G1 X#21 Z-[#12-0.5] F2.
G1 Z-#5 F0.06
U0.5 W0.5 F1.
IF [#9LT3] GOTO6
G0 Z2.
G1 X[#3+#11+1] Z-[#12-0.5] F2.
Z-[#5-#9] F0.08
U0.5 W0.5 F1.
N6 G0 Z10. M9
#1=#15
M0 (FORGACS)
(FOKOK RADIUSZOK)
(CSAP)
N500 G96 S100 T202 M3
#12=#16
G0 X#1 Z2. M8
G42
IF [#6GT#12] GOTO7
GOTO8
N8 G1 X[#3-#8-2.] Z-[#12-0.05] F1.
A90. R0.8 F0.1
X[#3+#11] Z-[#12+#8+#11] A-25.
GOTO9
N7 G1 X[#3+#11] Z-[#6-1.] F2.
N9 Z-#5 R#9
X[#20-[#13*2]-1.] F0.15
G40
W1. F1.
G0 Z2.
(KORREKCIO VALTAS)
(NAGY ATMERO)
T212
G41
G1 X[#2+#8+2.] Z-[#6-0.05] F1.
A90. R0.8 F0.1
X[#2-#11] Z-[#6+#8+#11] A25.
Z-#5 R#10
X[#3+[#13*2]+1.] F0.15
G40
W1. F1.
G0 Z2.
X100. Z20. M9
M30
%
[ Szerkesztve ]