1) komentarzy tam nie ma i nigdy nie było ponieważ nie ma co komentować
2) elipsesmi chciał funkcjonalne makro i je dostał, nie wiem na jakiej maszynie pracuje być może nic nie musi zmieniać
3) elipsesmi jeśli chce się bawić w pisanie makropoleceń to i tak musi przebrnąć przez instrukcje, opisy nic mu nie dadzą
4)

PiRo_man pisze:Jeżeli chciałeś się pochwalić, to Ci się udało

nie ma czym się chwalić...
5)

PiRo_man pisze:czy ten kod który widzisz pierwszy raz na oczy wydaje Ci się przejrzysty i zrozumiały

tak jest zrozumiały i przejrzysty, co prawda nie wiem do końca co ten program robi (i nie mam zamiaru się w to zagłębić) ale sama konstrukcja programu jest przejrzysta a o to przcież pytałeś???
6) faktycznie zapomniałem dołączyć wywołanie makra, jutro dopisze

[ Dodano: 2013-07-10, 21:35 ]
G65 P8091 D24. C0.2 B10. J30. F2000. H1000.
D- średnica otworu
C- wcięcie
B- średnica freza
J- zagłębienie
F- posuw zgrubny
H- posuw wykańczający, ostatnie przejście

[ Dodano: 2013-07-10, 21:39 ]
miejsce najazdu przed wykonaniem makropolecenia jest środkiem okręgu frezowanego

dawno temu wyskrobałem makra na frezowanie otworów po spirali, założenie było takie że zagłębiam się na pełna głębokość roboczą freza we wcześniej wywiercony otwór i po spirali z niewielkim "wcięciem" rozwiercam otwór w technologii HIGH SPEED, działa super.

dwa zastrzeżenia:
1) napisane to było na centrum tokarsko-frezerskie więc w płaszczyźnie XY x jest napisany na x2=Dr, na konwencjonalna frezarkę trzeba sobie to przepisać
2) wymaga szybkiego sterownika, jeśli sterownik muli program przystaje na końcu bloku


%
O8090(POCKET ZY)
G19
G40
G98
#130=#5001
#131=#5004
#132=#5002
#110=#7-#2
#115=#110/2
#116=#3*2
WHILE[#110LE0]DO1
#3000=1(ERROR D OR B)
END1
#111=#110/#116
#114=FIX[#111]
WHILE[#111LT1]DO1
#3000=2(ERROR C)
END1
G52Y#131Z#132
G0X#5
#112=#3
#113=#112/2
#112=-1*#112
#149=1
GOTO10
N1
#149=#149+1
WHILE[#112LT0]DO1
#112=-1*#112
#112=#112+#3
#113=#113+#3
GOTO10
END1
WHILE[#112GT0]DO1
#112=#112+#3
#113=#113+#3
#112=-1*#112
GOTO10
END1
M0
N2
#111=#114
WHILE[#112LT0]DO1
#112=-1*#112
#113=#115-[[#115-#112]/2]
#112=#115
GOTO10
END1
WHILE[#112GT0]DO1
#113=#115-[[#115-#112]/2]
#112=#115
#112=-1*#112
GOTO10
END1
M0
N10
G3Y#112R#113F#9
IF[#149LT#114]GOTO1
IF[#111GT#114]GOTO2
IF[#111EQ#114]GOTO3
N3
#149=0
N4
#149=#149+1
WHILE[#112LT0]DO1
#112=#115
#113=#115
GOTO20
END1
WHILE[#112GT0]DO1
#112=#115
#112=-1*#112
#113=#115
GOTO20
END1
N20
G3Y#112R#113F#11
IF[#149LT2]GOTO4
G3Y0.R#115F#9
G1Y0.Z0.F#9
G0X#130
G52Y0.Z0.X0.
G28V0.
G18
M99
%

########

%
O8091(POCKET XY)
G17
G40
G98
(X)
#130=#5001
(Y)
#131=#5004
(Z)
#132=#5002
#110=#7-#2
#115=#110/2
#116=#3*2
WHILE[#110LE0]DO1
#3000=1(ERROR D OR B)
END1
#111=#110/#116
#114=FIX[#111]
WHILE[#111LT1]DO1
#3000=2(ERROR C)
END1
G52Y#131X#130
G0Z#5
#112=#3
#113=#112/2
#112=-1*#112
#149=1
GOTO10
N1
#149=#149+1
WHILE[#112LT0]DO1
#112=-1*#112
#112=#112+#3
#113=#113+#3
GOTO10
END1
WHILE[#112GT0]DO1
#112=#112+#3
#113=#113+#3
#112=-1*#112
GOTO10
END1
M0
N2
#111=#114
WHILE[#112LT0]DO1
#112=-1*#112
#113=#115-[[#115-#112]/2]
#112=#115
GOTO10
END1
WHILE[#112GT0]DO1
#113=#115-[[#115-#112]/2]
#112=#115
#112=-1*#112
GOTO10
END1
M0
N10
G3Y#112R#113F#9
IF[#149LT#114]GOTO1
IF[#111GT#114]GOTO2
IF[#111EQ#114]GOTO3
N3
#149=0
N4
#149=#149+1
WHILE[#112LT0]DO1
#112=#115
#113=#115
GOTO20
END1
WHILE[#112GT0]DO1
#112=#115
#112=-1*#112
#113=#115
GOTO20
END1
N20
G3Y#112R#113F#11
IF[#149LT2]GOTO4
G3Y0.R#115F#9
G1Y0.X0.F#9
G0Z#132
G52Y0.Z0.X0.
G28V0.
G18
M99
%