תוכנית מאקרו כרסום אינטרפולציה ספירלית

O0001

#1=30 (קוטר חור)

#2=20 (עומק חור)

#3=20 (קוטר הכלי)

#4=0(קואורדינטת Z)

#5=1 (עומק חיתוך של כל שכבה)

#6=[#1-#3]/2 (קוטר מסתובב של מרכז הכלי) S2000 M03

G54 G90 G00 X0 Y0 Z50.

G0X#6 (G0 זז במהירות מעל נקודת הכלי התחתונה)

Z[-#4+1] (G0 יורד ל-1. במשטח Z-#4, כלומר ב-Z1.)

G1Z-#4F200. (G1 בכיוון Z יורד לעומק ההתחלה הנוכחי של עיבוד Z-#4)

WHILE[#4LT#2]DO1 (כאשר עומק עיבוד מס' 4 קטן מעומק חור מס' 2, מחזור תוכנית 1)

#4=#4+#5 (עומק חיתוך של כל שכבה)

G3I-#6Z-#4F500. (G03 עיבוד ספירלה נגד כיוון השעון לשכבה הבאה)

END1 (סוף לולאה 1)

G3I-#6 (הגיע לעומק החור, G03 הולך את כל המעגל נגד כיוון השעון)

G1X[#6-1] (G01 מחזירה 1 למרכז, כלומר למשוך את הכלי)

G0Z50.

M30