真正的阿基米德螺旋線宏程序

#3=10(螺距）
#4=100（最大直徑）
#5=200（進給）
G54G90G00G43H01Z100
M03S2000
Z3#
G01Z-2F#5
#100=#3/360
N1#1=#1+#100
#2=#2+1IF[#1GE#4]GOTO2
#101=#1*COS[#2]
#102=#1*SIN[#2]
G1X#101Y#102' {!
GOTO16
N2G00Z100
M30  r; l

圓弧表面車螺紋

M3S3350T101)
#1=30%
N1G0G99X#1
Z2.5$ \
G32Z0.F2.5
G3U5.Z-30.R200.F2.5
G2U5.Z-60.R200.F2.5
G1W-5.F2.5
G0X60.7 
Z2.5
#1=#1-0.5#
IF[#1GE27.5]GOTO1#
G0X100

M5;
Z100.$ J
M30