CNC Tip:

Disclaimer: CNC Concepts, Inc. accepts no responsibility for the use or misuse of techniques shown in this web page. We simply publish information we feel will be of interest to CNC users. In all cases, the reader is totally responsible for considering the implications, good and bad, of implementing one or more of the techniques we show.

Main program:

• O2001 (Main program for cam)
• N005 G54 (Set program zero)
• N010 G65 P1002 A1.75 B-0.6 C1.0 I12.0 J1.75 I35.0 J1.625 I175.0 J1.1 I25.0 J1.75 I113.0 J1.75 (Mill entire cam)
• N015 M30 (End of program)

Custom macro:

• O1002 (Custom Macro for cam)
• #101=0 (Initialize current angle to zero)
• #102=0 (Initialize stepper for last I test)
• #104=#1 (Initialize starting radius)
• G90 S600 M03 (Start spindle)
• G00 X0 Y-[#1+.5] (Move to starting Y position at bottom)
• G43 H01 Z.1 (Instate tool length comp, move into Z position)
• G01 Z#2 F25. (Fast feed to bottom in Z)
• Y-[#1] F5. (Come flush to surface in Y)
• N10 IF [ #[4 + #102] EQ #0] GOTO 99
• (Start loop for ending I)
• #103=#101 + #[4 + #102] (Calculate ending angle for this rise or fall)
• #105=[#104 - #[5 + #102]] / #[4 + #102] * #3 (Calculate radius change per move)
• IF [[#[5 + #102]] EQ #104] GOTO 15 (If start and end radius of rise or fall are equal, make simple circular move)
• N1 #101=#101 + #3 (Step current angle)
• #104=#104 - #105 (Step current radius)
• IF [#101 GT #103] GOTO 50 (If finished with current rise or fall exit loop)
• #110=[SIN[#101] * #104] * [-1.] (Calculate current X position)
• #111=[COS[#101] * #104] * [-1.] (Calculate current Y position)
• G01 X#110 Y#111 (Make current move) GOTO 1 (Go back to beginning of loop)
• N50 #104=#[5 + #102] (Calculate next beginning radius)
• #102=#102 + 3 (Step the current I and J)
• #101=#103 (Reset current angle)
• GOTO 10 (Go to next rise or fall)
• N15 #101=#103 (Begin to make simple radius)
• #110=[SIN[#101] * #104] * [-1.] (Calculate ending X)
• #111=[COS[#101] * #104] * [-1.] (Calculate ending Y)
• G02 X#110 Y#111 R#104 (Make circular move to form dwell)
• GOTO 50 (Go to next rise or fall)
• N99 G00 Z.5 (Finished, get out in Z)
• G91 G28 X0 Y0 Z0 (Return to zero return position)
• M99 (End of Custom Macro)