#1=0          起始角度  0°

#2=16         邊數  16

#4=360+#1     

#3=10/COS[360/2*#2]

WHILE[#1LE#4]DO1

G01X[#3*COS[#1]]Y[#3*SIN[#1]]

#1=#1+360/#2

END1

#1=0   起始角度

#2=15  起始半徑

#3=30  終止半徑

WHILE[#2LE#3]DO1;  

G01X[#2*COS[#1]]Y[#2*SIN[#1]]

#1=#1+1

#2=#2+15/200  跨度200增加半徑15  （每旋轉1°半徑r增加15/200）

END1

G00 G90 G54 X0. Y0.

G43 H01 Z30.

Z0.

#1=0

#10=0.2 

N10 #2=-7

#3=16.216-#1

#4=SQRT[30*30-#3*#3]

#5=#4-7

G01X[#5]Y0Z[#1]F1200

G02I[-#5]J0

#1=#1-#10

IF[#1GE#2]GOTO10

M3S200

Z-35.

#1=0

WHILE[#1LE35]DO1

#2=50-#1*TAN[45]

G1X#2Z[-35+#1]

G3I-#2

#1=#1+3

END1

M30

G43G00Z50H3

X0Y0

Z0

G41G01X17D01F1000

#1=0

#2=-7

N10 #3=7+#1

#4=SQRT[7*7-#3*#3]

#5=17-#4

G01X[#5]Y0Z[#1]F1000

G02I[-#5]J0

#1=#1-0.1

IF[#1GE#2]GOTO10

G40X0

G00X0Y0Z0

#1=-15

N10 #2=0

#3=27.059+15+#1

#4=SQRT[45*45-#3*#3]

#5=#4+8

G01X[#5]Y0Z[#1]F1200

G02I[-#5]J0

#1=#1+0.02

IF[#1LE#2]GOTO10

臥加自動找正宏程序

1.取兩個任一點，用百分表壓在同一個數（先壓在旋轉中心的負方向）

2.壓好第一點運行程序 O0428；

                    #1=ABS[#5021]；

                    #2=ABS[#5023]；

                    M99；

3.壓好第二點運行程序 O0429；

                    #3=ABS[#5021]；

                    #4=ABS[#5023]；

                    #5=#3-#1；

                    #6=#4-#2；

                    #7=ABS[ATAN[#6]/[#5]]；

                    G91 G0 Z100.;

                    IF[#7GT90] GOTO10;

                    G91 G0 B#7;（先壓在旋轉中心的負方向才能不轉反）

                    M30;

                    N10;

                    G91 G0 B-[180-[#7]];

                    M30;

4.#5021、#5023分別為X、Z軸當前的位置坐標；

5.機床自動運用反正切計算出當前夾角，B軸自動找正。

6.#6004為反正切的角度計算范圍：#6004為“0”時，角度為0-360度；#6004為“1”時，角度為（-180）-180度；

7.Tan1-89度（為正數）分別對應Tan91-179度（為負數）Tan0、180為0，Tan90不存在；

此程序有局限性：不適用于梳齒盤類型B軸結構的機床(一度一分、和半度一分的)。

#1=0

WHILE[#1LE360]DO1

G01X[50*#1/180-50]Y[10*SIN[#1]]

#1=#1+1

END1

#1=50        圓孔直徑

#2=40        圓孔深度

#3=30        刀具直徑

#4=0         Z坐標設為自變量，賦值為0

#17=1        Z坐標每次遞增量

#5=[#1-#3]/2  刀具回轉直徑

G00 G90 G54 X0 Y0 S1000 M3

G43 H01 Z30. M08

G00 X#5

Z[-#4+1]

G01 Z-#4 F200

WHILE[#4 LT #2]DO01

#4= #4+#17

G03 I-#5 Z-#4 F1000

END 01

G03 I-#5

G01 X[#5-1]

G00 Z100.

G91 G28 Z0. M09

M30

#1=8   ( 圈數 )

#2=2   ( 螺距 )

#3=0

#4=-360*#1

#5=10   ( 螺旋直徑 )

#6=0

WHILE[#3GE#4]DO1

G01X[#5*COS[#3]]Y[#5*SIN[#3]]Z-#6

#3=#3-1

#6=#6+#2/360

END1