[jameswiskirchen]

Nice macros ! I would love to have these for slot milling. Anyone ?

I do not currently have any slot milling macros, but would you be interested in trying out one of my 3D custom macros. Here is the first macro I ever wrote and it can machine 1/2 a sphere or cap any size radius on any size diameter.

O7777(CAP 0-90 DEG FULL RAD. OD PART)
(ABSOLUTE SURFACING MACRO)
(START OF TANGENT/ TOP OF PART)
(END OF TANGENT/ OD OF PART)
(WORKS)

(FORMAT G65/G66 CDTSKRZF)
(C = #3 - CUSP HEIGHT/ DEG. OF ROTATION)
(D = #7 - TOOL DIAMETER)
(T = #20 - TOOL RADIUS/ BALL OR BULL)
(S = #19 - PART DIAMETER)
(K = #6 - PART CORNER RADIUS)
(R = #18 - R PLANE)
(Z = #26 - Z START ZERO)
(F = #9 FEEDRATE)
(******************************)

IF[[#19/2]LT#6]GOTO1000
#100=0
#101=#6+#20
#102=#3
IF[#102GT15.]THEN#102=15.
#102=ROUND[90./#102]
#102=90./#102
#103=#5001
#104=[#103-.1]-[[#7/2]+[#19/2]]
#105=#5002
#113=#105
#115=[#105+.1]+[[#7/2]+[#19/2]]
#145=0
IF[#7EQ[#20*2]]GOTO1
#105=#105+[[#7/2]-#20]
#145=#145+[[#7/2]-#20]
N1G0G90X#104Y#115
Z[#26+.1]
G1Z#26F#9
#106=#5003-#101
WHILE[#100LE90.]DO1
IF[#100GT90.]GOTO100
#107=#105+[SIN[#100]*[#101]]
#147=#145+[SIN[#100]*[#101]]
#108=#106+[COS[#100]*[#101]]
IF[#6EQ[#19/2]]GOTO10
#107=#107+[[#19/2]-#6]
#147=#147+[[#19/2]-#6]
N10#100=#100+#102
G1Z#108F#9
G41Y#107
X#103
G02J-#147
G03X[#103+.1]Y[#107+.1]J.1F[#9/2]
G0Z[#108+.1]
G40X#104
END1
N100G0G90Z#18
X#103Y#113
M99
N1000M00( PART CORNER RAD. TOO BIG )