Have been trying to make a rect. pocket milling macro, so far as below but only if X is greater than or equal to Y, but can be rotated.
If anyone knows of a better way can they please post it.
O9999(RECT POCKET MACRO)
(X GE Y OR ROTATE AXIS)
#1=200.(LENGTH)
#2=100.(WIDTH)
#3=6.5(DEPTH) (**)
#4=20.(TOOL DIA.)
#5=10.(STEP OVER)
#6=2.(Z CUT) (**)
#7=200(FEED)
#8=1.5(Z START) (**)(MUST DIVIDE EQUALLY)
#9=[#3+#8]/#6(NO OF Z CUTS)
#24=#3+10.
#10=#1-#4(INC. X)
#11=#2-#4(INC. Y)
#12=#10/2(S.P. X)
#13=#11/2(S.P. Y)
#14=#10-#11
#15=#14/2
#16=#15+#12
#17=#14+#4
#18=#5+#5
#19=#12/2
#23=FUP[#11/#4]
#5=#11/[#23*2]
G68X0Y0R0.(R= ANGLE ABOUT X AND Y)
(CUTTER MUST START IN CENTRE OF POCKET)
G0G91
X-#12Y-#13
G01Z#8F50(Z1.0)
M98P9998L#9
G0Z#24
G69
M30
O9998
G01X#16 Y#13 Z-#6 F#7
X-#14
#21=1
WHILE[#21LE#23]DO2
X-#5Y#5
#22=#22+[#5*2]
#14=#14+[#5*2]
X#14
Y-#22
X-#14
Y#22
#21=#21+1
END2
Y-#22
M99