作者:齐重数控 杜宏祺 王英瑞 迟毅
3~Ln:4[6ID S:YL<_oI| 在2002年我厂为某公司改造一台立式车床,该机床为双刀架控制,应用户要求将该机床右刀架改造为磨削刀架。由于802D系统主要应用在车削控制,因此在改造中主要难点是如何利用R参数实现磨削循环的加工程序编制。
CiuN26> !d\GD8|4 机床改造后可以通过电磨头对工件进行回转支承任意表面、内、外圆锥面、圆柱面等进行加工。由于砂轮在磨削过程中不断磨损,因此需要在磨削过程中对砂轮进行砂轮修整。砂轮修整基本上是通过金钢笔、砂轮修整器对砂轮进行手动修整,在砂轮修整完毕后,可直接进行工件的磨削加工而不需要进行再次对刀。
}/spo3,6 +][P*/ Ek 工件的磨削加工流程
{ 9 ".o, "o3"1s>d{ 工件的磨削加工流程图如图1:
@>5<m'}2
~-`02 图1 工件的磨削加工流程图
d*$<%J %B*dj9n^q 用户参数说明
=LxmzQO# uw=Ube( R1:砂轮最小直径
<gLtX[v!CL R2:砂轮最大直径
$0}bi:7 R3:砂轮直径
r6JkoPMh R4:砂轮宽度
MjB[5:s R5:速度下限
kW&Z%k R6:线速度上限
3+3m`%G R7:线速度
Q~JKKq R8:砂轮转速
1`lFF_stkP R9:砂轮圆弧半径
fR4l4 GU?) R10:金刚笔半径
&.hRVW( R11:金刚笔与花盘圆心距离
L_"(A
#H: R12:金刚笔高度
f9UaAdJ( R13:垫块高度
Uob |Q=MQ R14:磨架角度
NCnId}BT R15:停顿时间
/\cu!yiX 1:zu$|%7 R18:X轴精磨尺寸
i8_x1=A R19:Z轴精磨尺寸
jHH R20:X轴起始尺寸
;J-Ogt @d7 R21:Z轴起始尺寸
zL'IN)7MU R22:精磨每次进刀量
!`[I>:Ex R23:精磨进给率
""3m!qn# R24:精磨砂轮修整计数器
~88 Tz+
R25:精磨余量
9}cuAVI sLdUrD% R28:粗磨每次进刀量
}.UI&UZ- R29:粗磨进给率
9jGuelwN R30:粗磨砂轮修整计数器
VhFRh,J(T |8 2tw|<o R32:光磨次数
NcBe|qxQ R33:光磨进给率
?vn 0%e868 =8p+-8M[d R36:砂轮修整量
&17,]# 3 R37:砂轮修整每次进给量
H
r^15 R38:砂轮修整进给率
XYHCggy R39:砂轮修整用安全让刀
~}-p5 q2 @gSFvb bc R42:安全让刀量
l$VxE'&LQ R43:安全让刀每次进给量
>xV<nLf/ R44:安全让刀进给率
/~l/_Jct@G (1AA;)`Kp R46:中间点X轴坐标
mERrcY Y{ R47:中间点Z轴坐标
ix7
e])m( w<~<(5mM5; R50:单次磨削量
x*&&?nV Iz R51:进给率
?e y&Un" R52:起始点
O%K?l}e R53:终点
ccn`f]5w R54:当前位置
+GYMJK`S+ \As oeeF R56:砂轮修磨量
)n}]]^Sc R57:砂轮每次修磨量
J'ZFIT_> R58:返回位置
TdP{{&'9 ?FV7|)f R60:当前砂轮位置
37O#aJ,K R61:修砂轮用计数器
OKZam ik~ R62:错误标志
lii]4k+z Stw+Dm\! 磨削加工程序
RUk<=!U _Hd1sx 磨削加工程序如下:
hGA!1a4 c ,/?%y\:J N10 G90 G94 G18
5&HT$"H: N20 R62=0 ;错误标志
-S,ir N30 L1 ;线速度计算
5G'&9{oB N40 IF R62<>0 GOTOF BB4
Jn[q<e" N50 R58=R20 ;修砂轮准备
Lk`k>Nn) N70 R51=R38 ;进给率
!
[|vx!p N80 L30 ;砂轮修整
iijd$Tv N90 R50=R43 ;安全让刀每次进给量
~*mOt7G N100 R51=R44 ;进给率
,dZ#,< N110 R53=R20
s0)qlm* N120 L20 ;安全让刀子程
N8kb-2 N130 R60=R20 ;起始点
)7I.N]= N140 R61=R30 ;砂轮修整计数器初值
TDl!qp @ N150 R50=R28 ;粗磨每次进刀量
HTDyuqs N160 R51=R29 ;进给率
y'_V/w s N170 IF R60>=R18+R25 GOTOF AA1 ;
@cu}3> N180 R62=10
tB ,. N190 MSG(“错误10:错磨参数错误”)
!$p2z_n$@. N200 GOTOF BB4
7~kpRa@\P N210 AA1:IF R60N220 L10 ;磨削子程序
})zB". N230 R60=R60-R28 ;修改档前位置
_b!;(~@p N240 R61=R61-1
h/1nm U] N250 IF R61>0 GOTOB AA1
m]0^ N260 R58=R60
Siz!/O!' N270 L30 ;砂轮修整
GP{$v:RG N280 R50=R43
PTzp;. N290 R51=R44
z;bH<cQ N300 R53=R60
~mXZfG/D N310 L20 ;安全让刀
Sv7>IVC?@ N320 R61=R30
r,u<y_YW N330 GOTOB AA1
5vs`uUzr N340 AA2:R50=R60-R18+R25
>9o,S3 N350 L10 ;最后一次粗磨
mJ8{lXq3! N360 R60=R18+R25 ;粗磨结束位置
W>`g;[ W N370 AA3:R58=R18+R25
t+=1 2{9;f N380 L30 ;砂轮修整
_.d}lK3$2 N390 R50=R43
Gd30Be2gd N400 R51=R44
U`bC>sCp N410 R53=R60
cg(QjH" N420 L20 ;安全让刀
+CnyK(V N430 R61=R24
<qbZG}u N440 R60=R18+R25
Kk!6B N450 R50=R22
="3a%\ N460 R51=R23
v Q-ixh N470 IF R60>=R18 GOTOF BB1
%_B:EMPd N480 MSG(“错误11:精磨参数错误”)
N,j>;x3xT N490 R62=11
#&^ZQs< N500 GOTOF BB4
F=oHl@ N510 BB1:IF R60=R18 GOTOF BB3
T!u'V'Ei2 N520 IF R60 N530 L10 ;磨削子程序
CRZi;7`*1 N540 R60=R60-R22
2
) TG N550 R61=R61-1
CrnB{Z4L N560 IF R61>0 GOTOB BB1
CS~=Z>6EjA N570 R58=R60
94T}iY. N580 L30 ;砂轮修整
to99_2 N590 R50=R43
E$]a?uA: N600 R51=R44
jd ["eI N610 R53=R60
=4frP*H? N620 L20 ;安全让刀
r?64!VS; N630 R61=R24 ;精磨砂抡修整计数器
Ey r5jXt%; N640 GOTOB BB1
d^KBIz8$5l N650 R50=R60-R18
!(kX~S N660 L10 ;最后一次精磨
zc6Ho N670 BB3:R60=R18 ;
5a=nF9/ N680 R50=0 ;步进刀
wl7 M fyU N690 R51=R33
qTyg~]e9( N700 L10 P=R32;光磨
N=>- Q) N710 G0 X=R20 Z=R21
eQ$N:] N720 M5 ;停止主轴
+VSZhg,Np8 N730 BB4:M2
?Wwh
_TO rs[?v*R74 L1 ;砂轮速度计算子程序
^F>4~68d N10 R8=R7/R3
NNwc!x)* N20 R8=R8/3.14
~k9O5S{ N30 IF R8N40 MSG(“ 错误01:转速过高” )
F|ETug
n N50 R62=1
CfQf7- N60 GOTOF LSA2
}C=Quy%Z< N70 LSA1:IF R8>R5 GOTOF LSA2
jMK3T N80 MSG(“ 错误01:转速过低”)
Hab!qWK` N90 R62=2
hZ!oRWIU%G N100 LSA2:RET
?sV[MsOsC `koOp L20 ;安全余量磨削子程序
;!'qtw"CB N10 R52=R53+R50
?#?e(mpo N20 R54=R52
'4$lL6ly> N30 IF R54>=R53 GOTOF SLA1
Gu2_dT N40 R62=3 ;错误码
T'hml N50 GOTOF SLA3
doLkrEm& N60 SLA1:IF R54=R53 GOTOF SLA3
>Cvjs N70 IF R54N80 L10
d{W}p~UbH N90 R54=R54-R50
[u[ U_g* N100 GOROB SLA1
GOGt?iw*< N110 SLA2:R50=R54-R53
i#k-)N _$ N120 L10
]x2Jpk99a N130 R54=R53
pP3U,n
N140 SLA3:RET
KL
"Y!PN: ])C>\@c6Gm L30 ;砂轮修整子程序
moCK-: N10 G0 X=R46 Z=R47;中间点(安
Po> e kz_E 全位置 )
LaDY`u0G% N20 R56=R39+R36
` "B^{o N30 R57=R37
; VBpp< N40 R80=R11-R3-R56
s,w YlVYf! N50 G0 X=R80 Z=R12
J=):+F= N60 IF R56>=0 GOTOF LB1
(s088O N70 MSG(“ 错误04:砂轮参数错误”)
T:U4:"
N80 R62=4
=Ci13< KQ N90 GOTOF LB3
qh$X^%g N100 LB1:IF R56=0 GOTOF LB3
58J_ w X N110 IF R56N120 L3
(Q'U@{s N130 R56=R56-R57
)`<6taKx@n N140 GOTOB LB1
lDC}HC N150 LB2:R57=R56
3x![8 x N160 L3
2\5cjdy N170 R56=0
'| &,E#` N180 R3= $AA_IW[X]
Z9xR N190 R3=R11-R3
xo(k?+P>. N200 R60=R58+R42
<