Fanuc Pattern Menu and Circular Hole Macro (English).

This video provides a general description of how to turn the "Pattern Menu" feature on and change the description and variable names. I am also adding a program and a sub-program that calls for a circular pattern semi-automated program. Please do not use this program without first checking it thoroughly, as this can cause your machine to crash.

O200 (BOLT HOLE PATTERN)
N1 G20
N2 G90 G00 G54 X0 Y0 S1200 M03 (MODIFY TO RPM BASED ON TOOL DIA)
N3 G43 Z1 H#500 M08
N4 G99 G82 R1.0 Z-1 P0 F15 L0
N5 G65 P6101 X#501 Y#502 W0.250 H#505 A#504 S#506
N6 G80 Z10.0 M09
N7 G28 Z10.0 M05
N8 M30
%

O6101 (BOLT HOLE CIRCLE MACRO);
#509 = #503/2;
#508=#506
WHILE[#508 LE #505] DO1;
#30 = [#508-1]*360/#505+#504;
X[COS[#30]*#509+#501] Y[SIN[#30]*#509+#502];
#508 = #508+1;
END1;
M99;
%

O9500(HOW TO NAME PG 1161 OR PNG);
N1 G65 H90 P072079 Q076069 R032080 I065084 J084069 K082078 (TITLE);
N2 G65 H91 P1 Q066079 R076084 I032072 J079076 K069032 (BOLT HOLE);
N3 G65 H91 P2 Q067073 R082067 I032080 J079067 K075084(CIRC POCKT);
N4 G65 H91 P3 Q083081 R032080 I079067 J075084 (SQ POCKT);
N5 G65 H91 P4 Q070082 R065077 I069032 J072079 K076069 (FRAME HOLE);
N12 M99;
%

O9501;
G65 H92 P066079 Q076084 R072072 I079076 J069072 (TITLE ON SUB PAGE BOLT HOLE);
G65 H93 P500 Q084079 R079076 (FIRST VARIABLE LINE TOOL);
G65 H93 P501 Q079082 R071032 I088032;
G65 H93 P502 Q079082 R071032 I08932;
G65 H93 P503 Q082065 R068073 I085083;
G65 H93 P504 Q083084 R082084 I032065 J078071 K076032;
G65 H93 P505 Q035079 R070032 I072079 J076069 K083032;
G65 H93 P506 Q083084 R082084 I032072 J079076 K069032;
G65 H94 P066079 Q076084 R032072 I079076 J069032 (FIRST COMMENT LINE);
G65 H94 P032032 Q032032 R080065 I084084 J069082 K078032;
G65 H94 P032032;
G65 H94 P078079 Q046053 R048048 I045053 J048053 K046032;
M99;
%