Witam
Trzeba zacząć od podstawowych spraw
IF Jeśli
EQU Równy
NE Nie równy
GT Większy niż
LT Mniejszy niż
GOTO Skok
Q10 = Q1 + Q5 Dodawanie
Q25 = Q7 – Q108 Odejmowanie
Q12 = 5 * Q5 Mnożenie
Q25 = Q1 / Q2 Dzielenie
Q12 = Q1 * (Q2 + Q3) Otworzyć nawias
Q12 = Q1 * (Q2 + Q3) Zamknąć nawias
Q15 = SQ 5 Wartość podnieść do kwadratu
Q22 = SQRT 25 Obliczyć pierwiastek
Q44 = SIN 45 Sinus kąta
Q45 = COS 45 Cosinus kąta
Q46 = TAN 45 Tangens kąta
Poczym prosty progam :
BEGIN PGM 0000 MM
; Nr rys.000000
BLK FORM 0.1 Z X0,0 Y0,0 Z0,0
BLK FORM 0.2 X0,0 Y0,0 Z0,0
;---frez---
TOOL CALL 127 Z S300
;---------------------
LBL 10 ; FREZOWANIE WSTEPNIE
L X+0 Y+0 F MAX
L Z+390 F1000
; ---------------------------------
Q1 = 5 ; DOSUW
Q2 = 25 ; GLEBOKOSC
Q3 = 5000 ; POSUW FREZOWANIA
; ---------------------------------
Q4 = Q1
FN 11: IF +Q4 GT +Q2 GOTO LBL 3
FN 12: IF +Q4 LT +Q2 GOTO LBL 1
LBL 1
CALL LBL 2
Q4 = Q4 + Q1
FN 11: IF +Q4 GT +Q2 GOTO LBL 3
FN 10: IF +Q4 NE +Q2 GOTO LBL 1
FN 12: IF +Q4 LT +Q2 GOTO LBL 1
LBL 0
LBL 2 ; FREZOWANIE WSTEPNIE
L X+305,137 Y+232,034 R0 F MAX M3
L Z-Q4 F1000
L X+192,5 Y+118,897 RL FQ3
L Y-107,59
L X+0 Y-220,53
L X-192,5 Y-107,59
L Y+107,59
L X+0 Y+220,53
L X+202,313 Y+101,832
L X+305,137 Y+232,034 R0 F1000
LBL 0
LBL 3 ; ODEJSCIE
L Z+400 R0 F MAX
LBL 0
Mam nadzieję że tym razem się przyda