| cyqdesign |
2007-04-08 10:29 |
西门子802D系统应用于立式车磨床
作者:齐重数控 杜宏祺 王英瑞 迟毅 1LId_vJtJ 5-WRv; 在2002年我厂为某公司改造一台立式车床,该机床为双刀架控制,应用户要求将该机床右刀架改造为磨削刀架。由于802D系统主要应用在车削控制,因此在改造中主要难点是如何利用R参数实现磨削循环的加工程序编制。 oSA*~ N: oBNX8%5w 机床改造后可以通过电磨头对工件进行回转支承任意表面、内、外圆锥面、圆柱面等进行加工。由于砂轮在磨削过程中不断磨损,因此需要在磨削过程中对砂轮进行砂轮修整。砂轮修整基本上是通过金钢笔、砂轮修整器对砂轮进行手动修整,在砂轮修整完毕后,可直接进行工件的磨削加工而不需要进行再次对刀。 `=}UFu DMcxa.Sd! 工件的磨削加工流程 T<e7(= |*c\6 : 工件的磨削加工流程图如图1: 7kX$wQZ_
cI%"Ynq"3 图1 工件的磨削加工流程图 >AzWM
.r I`'a' 用户参数说明 %w8GGm8^/ c6Aut`dK R1:砂轮最小直径 %X"m/4c8} R2:砂轮最大直径 H&=n:'k^ R3:砂轮直径 :IR9=nhS] R4:砂轮宽度 6%\Q*r*N R5:速度下限 G]mWaA R6:线速度上限 7.e7Fi{ R7:线速度 8hK P R8:砂轮转速 Ed^uA+D R9:砂轮圆弧半径 \SiHrr5 R10:金刚笔半径 Q-8'?S R11:金刚笔与花盘圆心距离 LZc$:<J<6 R12:金刚笔高度 wLOQhviI^- R13:垫块高度 "rx^M*" R14:磨架角度 8L-4}!~C R15:停顿时间 JpxbB)/ 5`E`Kb+@ R18:X轴精磨尺寸 *K,hrpYR R19:Z轴精磨尺寸 Z<ajET`) R20:X轴起始尺寸 gM3]%L_ R21:Z轴起始尺寸 )W1(tEq59 R22:精磨每次进刀量 JS/M~8+Et R23:精磨进给率 @1qdd~B} R24:精磨砂轮修整计数器 Jh43)#G- R25:精磨余量 7Y32p' (/SGT$#8 R28:粗磨每次进刀量 ^.D}k R29:粗磨进给率 OpK.Lsd0y R30:粗磨砂轮修整计数器 %-#
qO xEVLE,*?> R32:光磨次数 rps(Jos_~ R33:光磨进给率 3duG.iUlL 2f|6z-Z R36:砂轮修整量 |As2"1_f R37:砂轮修整每次进给量 o#xgrMB R38:砂轮修整进给率 wy{ \/?~c R39:砂轮修整用安全让刀 iUI y,Y hhpv\1h# R42:安全让刀量 Bf5&}2u R43:安全让刀每次进给量 SPkKiEdM R44:安全让刀进给率 L6:W'u^ dh^+l;!L R46:中间点X轴坐标 K4! P' R47:中间点Z轴坐标 }pMP!%| PMgQxM*h R50:单次磨削量 !TP6=ks R51:进给率 Q !9HA[Ly R52:起始点 JFM"ii{8 R53:终点 9<|m4 R54:当前位置 B(j02<- 1$$37?FE R56:砂轮修磨量 u12zRdn R57:砂轮每次修磨量 )n7|?@5U R58:返回位置 J3B6X 8P' $ph0ag+ R60:当前砂轮位置 CQdBf3q R61:修砂轮用计数器 oi2J:Y4 R62:错误标志 |9>*$Fe" NJZXs_%>$ 磨削加工程序 _QR
g7 ~~PgF"v 磨削加工程序如下: c[SU5 66y I4)Nb WQ N10 G90 G94 G18 +}Xr1fr{jw N20 R62=0 ;错误标志 XQ]`&w( N30 L1 ;线速度计算 >']+OrQH N40 IF R62<>0 GOTOF BB4 q0&Wk"X%rr N50 R58=R20 ;修砂轮准备 *B0V<mV N70 R51=R38 ;进给率 fr+@HUOxsl N80 L30 ;砂轮修整 Kw)KA^KF N90 R50=R43 ;安全让刀每次进给量 d,W/M(S N100 R51=R44 ;进给率 RfKc{V N110 R53=R20 n`]l^qE N120 L20 ;安全让刀子程 D7)(D4S4 N130 R60=R20 ;起始点 Qi_&aU$>lM N140 R61=R30 ;砂轮修整计数器初值 Bg-VCJI< N150 R50=R28 ;粗磨每次进刀量 9"~9hOEct N160 R51=R29 ;进给率 QwBXlO? N170 IF R60>=R18+R25 GOTOF AA1 ; Vo%Yf9C N180 R62=10 xw ?CMA N190 MSG(“错误10:错磨参数错误”) e1Ob!N- N200 GOTOF BB4 /I`3dWL N210 AA1:IF R60N220 L10 ;磨削子程序 Nz~(+pVWg5 N230 R60=R60-R28 ;修改档前位置 T?>E{1pS N240 R61=R61-1 Rho5s@N 7 N250 IF R61>0 GOTOB AA1 L?!$EPr N260 R58=R60 _R)&k%i} N270 L30 ;砂轮修整 h1#S+k N280 R50=R43 =yo{[&Jz N290 R51=R44 RU6KIg{H N300 R53=R60 2B^~/T<\ N310 L20 ;安全让刀 K"L_`.&Q N320 R61=R30 ``!G I'^ N330 GOTOB AA1 sTkIR5Z N340 AA2:R50=R60-R18+R25 *8PN!^ N350 L10 ;最后一次粗磨 gQy~kctQ# N360 R60=R18+R25 ;粗磨结束位置 H)E^!eo N370 AA3:R58=R18+R25 u)v$JpNE N380 L30 ;砂轮修整 y0<Uu N390 R50=R43 `)$`-Pw* N400 R51=R44 "A;s56 }'& N410 R53=R60 .)7:= N420 L20 ;安全让刀 c5("-xB N430 R61=R24 atyu/+U'} N440 R60=R18+R25 oU8>Llt=$ N450 R50=R22 JkU1daTe N460 R51=R23 %*kLEA*v N470 IF R60>=R18 GOTOF BB1 ]=x\b^ N480 MSG(“错误11:精磨参数错误”) bj}=8k0 N490 R62=11 <c+K3P'3? N500 GOTOF BB4 P/MM
UmO N510 BB1:IF R60=R18 GOTOF BB3 If;R?j0;Q N520 IF R60 N530 L10 ;磨削子程序 :6Pnie N540 R60=R60-R22 `}gdN}; N550 R61=R61-1 W5.Va. N560 IF R61>0 GOTOB BB1 dv, C6t2 N570 R58=R60 o2aM#Q
N580 L30 ;砂轮修整 `XW*kxpm N590 R50=R43
%H& ].47 N600 R51=R44 \0ov[T N.> N610 R53=R60 $w)~xE5; N620 L20 ;安全让刀 _ij$f< N630 R61=R24 ;精磨砂抡修整计数器 "~/9F N640 GOTOB BB1 o>F*Itr{ N650 R50=R60-R18 #f*g]p{ N660 L10 ;最后一次精磨 B76 v}O: N670 BB3:R60=R18 ; OP%?dh] N680 R50=0 ;步进刀 C#;@y|Rw N690 R51=R33 G 4qy*. N700 L10 P=R32;光磨 _6MdF<Xb/ N710 G0 X=R20 Z=R21 SdJ/4&{ ! N720 M5 ;停止主轴 g$FEEDF N730 BB4:M2 m!O;>D %WGuy@tL L1 ;砂轮速度计算子程序 W%o|0j\1GU N10 R8=R7/R3 q+ pOrGh N20 R8=R8/3.14 R?pR xY N30 IF R8N40 MSG(“ 错误01:转速过高” ) 4Po)xo N50 R62=1 [A9JshMo N60 GOTOF LSA2 \:v$ZEDJ> N70 LSA1:IF R8>R5 GOTOF LSA2 L9FHgl? N80 MSG(“ 错误01:转速过低”) }gGkV] N90 R62=2 R-rCh. N100 LSA2:RET }$kQs!# aDL*W@1S L20 ;安全余量磨削子程序 l-Nly>~ N10 R52=R53+R50 g5S?nHS} N20 R54=R52 HjA_g0u N30 IF R54>=R53 GOTOF SLA1 BFVAw N40 R62=3 ;错误码 347eis' N50 GOTOF SLA3 #yW\5) N60 SLA1:IF R54=R53 GOTOF SLA3 l!
v!hUb+ N70 IF R54N80 L10 W3rl^M=r N90 R54=R54-R50 &|Np0R N100 GOROB SLA1 ;o-yQmdh N110 SLA2:R50=R54-R53 aWy]9F&C: N120 L10 iqwkARG" N130 R54=R53 }BJX/, H, N140 SLA3:RET 5$rSEVg9 F|+W.9 L30 ;砂轮修整子程序 ,v9f~qh N10 G0 X=R46 Z=R47;中间点(安 T$+-IAE 全位置 ) @|\R}k%( N20 R56=R39+R36 j_cs;G: " N30 R57=R37 g{:< | |