数控铣常用宏程序

圆角半径R3

基圆半径R25

球刀半径R3

G90G54G0Z50

M3 S1200

X55Y0

Z5

Z0

#1=90       (起始角度)                      

WHILE#1GE[0] (结束角度) 

#2=6*COS[#1*PI/180]-3 (X轴变量)

#3=6*SIN[#1*PI/180]-6（Z轴变量） 

#101=#2             （X轴变量转换成刀补变量）  

G1Z[#3]              

G41D101X50Y0F300   （建立刀补）

G2I -25       （导角轮廓）

G1G40X55Y0    （取消补偿）

#1=#1-9 

ENDW

G0Z50

M30

用ø10立铣刀铣斜孔

G90G54G0Z50

M3S1000

X0Y0

Z5

G1Z0F100

#1=30

WHILE#1GE[0]

#2=5-TAN20[#1*PI/180]

#3=#1-30

#2=#101

G1Z[#3]F30

G41D101X10Y0F300

G3I-10

G1G40X0Y0

#1=#1-0.2

ENDW

G0Z50

M30

R3刀导R5内凹导角

％1

G90G54G0Z50

M3S1500

X0Y0

Z5

G1Z0F100

＃1=0

WHILE#1LE[90]

#2=2*COS[#1*PI/180]   

#3=2*COS[#1*PI/180]+3

#101=-#2

G1Z[-#3]F50

G41D101G1X10Y0

G3I-10F500

G1G40X0Y0

#1=#1+9

ENDW

G0Z50

M30

R6刀铣R20凹半球

％1

G90G54G0Z50

M3S1200

X0Y0

Z5

Z0

＃1=0

WHILE#1GE[-90]

#2=14*COS[#1*PI/180]

#3=14*SIN[#1*PI/180]

G1Z[#3]

X[#2]Y0

G3I[-#2]

#1=#1-10

ENDW

G0Z50

M30

凸半球

G90G54G0Z50

M3S1200

X0Y0

Z5

#1=90

WHILE#1GE[0]

#2=26*COS[#1*PI/180]

#3=26*SIN[#1*PI/180]

G1X[#2]Y0

Z[-#3+20]

G3I[-#2]

#1=#1-6

ENDW

G0Z50

M30

椭圆

％1

G90G54G0Z50

M3S1000

X40Y0

Z5

G1Z0F100

#1=0

WHILE#1LE[360]

#2=35（长半轴刀具半径)*COS[#1*PI/180]

#2=25*SIN[#1*PI/180]

G1X[#2] Y[#3]

#1=#1+3

ENDW

G0Z50

M30