螺旋铣程序

螺旋铣

O0001

:

G01X20Y50 预设G52坐标点

G65P2014B20C16J0K20F300 宏程序调用子程序号2014，B附值为孔直径，C附值为刀具径，

J附值为Z轴增量基数，K附值为铣孔深度，F附值为进给量。

%

O2014 子程序号为2014

G52X#24Y#25 设置刀轴当前点为局部坐标系X0Y0点（以下移动使用局部坐标系）G0X0.Y0. 快速移动至坐标系零点

#4=[#2-#3]/2 孔直径减刀具直径后除以2（做为起点在X向偏置）

Z3. 快速移动至Z3

G01Z0.5F500 直线插补Z轴以500MM/分钟进给至Z0.5

X#4Z0.F200 直线插补至X轴偏置，Z0 进给200MM/分钟

WHILE[#5LT#6]DO1 如果#5小于#6时执行DO到END之间的程序，如果#5大于#6时

执行END后的程序。DO为条件执行符号

#5=#5+0.5 Z轴每次增量为0.5

G03X#4Y0Z-[#5]I-[#4]F#9 逆时针圆弧插补至上一个坐标Z轴增量点（X.Y不变）

END1 END为条件执行符号

G03X#4Y0.I-[#4]F#9 指定螺旋铣终点

G01X[#4-0.5] 在停止点向圆心方向偏置0.5（准备抬刀）

G0Z50. 抬刀至Z50

G52X0.Y0. 回局部坐标零点

M99 子程序结束

%

自变量指定：

自变量中不允许出现地址：G、L、N、O、P 。不需要的地址省略，对应变量为空。除I、J、K有字母顺序要求外其余为顺序要求。

坐标系旋转

%

O0001

G40 G17 G90

G91 G28 Z0.0

T01 M06

G54G0 G90 X-50 Y50 S3500 M03

Z50

G43 Z50. H01

M98P2014 子程序调用号2014

G68X0Y0R45 坐标旋转45度（角度第一象限至第四象限渐增）M98P2014 调用子程序号2014

G68X0Y0R90 坐标旋转90度

M98P2014 调用子程序号2014

G49Z50 取消刀具长度补偿

G69M05 取消坐标系旋转

M30

%

%

O2014

G41G01X20Y5D02F300

:

G40X0Y0

:M99

铣螺纹

Ф100圆心及圆周均分M30*1.5，底孔Ф28.5 牙高0.974 刀径8

%

O0001 主程序号

G54G90G17 提取坐标，绝对编程，选择XY平面

M03S3500 主轴正转，转速3500转/分钟

G0Z50 安全平面高50

G0X0Y0 定位

M98P1000 调用子程序号O1000

#4=0 附值

N30#5=50*COS[#4] 计算X轴坐标

#6=50*SIN[#4] 计算Y轴坐标

G52X#5Y#6 临时坐标零点

G0X0Y0 零点

M98P1000 调用子程序号O1000

#4=#4+90 附值

IF[#4LE271]GOTO30 如果#4小于271，则由N30开始，如大于271，则执行下行。G0Z100 Z轴提升

G52X0Y0 回到临时坐标零点

G54G0X0Y0 使用G54坐标，移动

M30 结束，回到程序头

%

%

O1000 子程序号

G0X0Y0 孔中心

G0Z3 接近

#1=0.3 附值，第一刀单边加工量

N10#2=10.25+#1 偏置（-底孔-刀径）/2

G02X#2Y0I[#2/2]J0F300 顺时针走正圆，Z轴下降一个螺距接近工件

#3=1.5 Z轴附值

N20G02X#2Y0Z#3I-[#2]J0F300 顺时针走正圆，Z轴下降一个螺距切入工件

#3=#3-1.5 Z轴附值

IF[#3GE-15.1]GOTO20 如果#3大于-15.1则由N20开始，如果#3下于-15.1则执行下行G02X0Y0I-[#2/2] J0F300 圆弧切出

G0Z3 Z轴提升

#1=#1+0.2 附值

IF[#1LE0.91]GOTO10 如果#1小于0.91则由N10开始，如果#1大于0.91则执行下行G1X0Y0F300 回到孔中心

G0Z100 Z轴提升

M30 结束，回到程序头