宏程序：矩形阵列螺旋铣孔

O0017

G17G90G0G54Z100

M3S1000

M6T1

#501=20

#502=20

#503=1

#504=1

#505=7

#506=5

#507=50

#508=60

IF[#530GE2]GOTO15

WHILE[#503LE#506]DO1

#520=#501+[#503-1]*#507

G0X#520

WHILE[#504LE#505]DO2

#521=#502+[#504-1]*#508

G0Y#521

G65 P117 X#520 Y#521 Z-15 D20 T10 R0.5 Q1 U10 S9000 F500

#504=#504+1

END2

G0Z100

Y#502

#504=1

#503=#503+1

END1

G0Z100.

M30

%

%

%

O117

#31=FIX[#26/#17]

#32=#26-#31*#17

#33=[#7-#20]/2.

G90G00 X[#24] Y[#25] M03 S[#19]

G91 X[#33]

G90 Z[#18+#17]

G01 Z[#18] F[#9]

WHILE [#18 GT #26] DO1

#18=#18-#17

G02 I-#33 J0. Z[#18] F[#9]

IF [[#18+#32] EQ #26] GOTO100

END1

N100

IF [#32NE0.] GOTO110

IF [#32EQ0.] GOTO120

N110

G02 I-[#33] J0. Z[#26] F[#9]

N120

G03 I-[#33] J0. F[#9]

G04 P0.2

G02 I-[#33] J0. F[#9/2.]

G03 X[#24] Y[#25] I-[#33/2.] F[#9*2.]

G00 Z[#21]

M99