[原创] 我编的铣带圆角的四方形内腔程序

洗心

模具初级

Rank: 4

帖子: 12
精华: 0
积分: 65
经验: 65 点
威望: 0 点
金钱: 167 ￥
阅读权限: 20
在线时间: 21 小时
注册时间: 2008-9-12
最后登录: 2008-11-25

楼主大中小发表于 2008-9-22 23:34 只看该作者

我编的铣带圆角的四方形内腔程序

G54G90G00X0Y0B0
S500M03W-100
T1D1Z30
R1=100（四方X方向边长）
R2=50（四方Y方向边长）
R3=20 （立铣刀直径）
R4=20（内腔深度）
R5=1（Z轴自变量初始值）
R13=20（内墙圆角）
R17=1（每次递增量）
R6=0.8*R3
R7=R1-R3 R8=R2-R3
GH1:IF R5>=R4 GOTOF PP
Z=(-R5+1)
G01Z=-(R5+R17)F150
IF R1>=R2 GOTOF BB1
BB1:R9=TRUNC(R8/R6)
IF R1>=R2 GOTOF BB3
IF R1<R2 GOTOF BB2
BB2:R9=TRUNC(R7/R6)
IF R1<R2 GOTOF BB3
BB3:R10=TRUNC(R9/2)
R18=R13-R3/2-R10*R6
BB4:IF R18>0 GOTOF BB5
R11=R7/2-R10*R6
R12=R8/2-R10*R6
Y=R12F1000
X=-R11
Y=-R12
X=R11
Y=R12
X0
R10=R10-1
BB5:IF R10<0 GOTOF PP
R11=R7/2-R10*R6
R12=R8/2-R10*R6
R18=R13-R3/2-R10*R6
IF R18<=0 GOTOB BB4
G01Y=R12F1000
X=-R11RND=R18
Y=-R12RND=R18
X=R11RND=R18
Y=R12RND=R18
G01X0
R10=R10-1
GOTOB BB5
PP:G00Z30
X0Y0
R5=R5+R17
GOTOB GH1
KK:M30
有兴趣的朋友可以在西门子840D铣床上试试

恒久，等待！