数控模块化编程一一R刀车圆弧

mcsino

由于经常加工弯管压轮模，其程序基本就是修改一下几个固定值，最近因为又需要加工一批，量比较大规格比较多，每种规格都是一件，如果做完一件修改一下程序，一来容易出错，二来效率也不高，所以想把程序模块化，加工不同零件只需调用模块，输入必要参数即可，无需修改程序，现把用切刀加工(辅助加工)以及R圆弧头加工模块(采用B型补偿)及如何调用模块附上，有时间的话把程序流程图一起附上，希望像我等初学者共同进步.

) p7 z: f# w  C4 @1)切刀辅助加工模块(
# v7 Q- t& Z# I' \7 I$ ^#1 切刀刀宽
! A  W% A$ f  M! C: P9 V( E  _% u#2 圆弧弦长
; s% F1 u* v6 x2 F+ l: a2 l0 g#3 圆弧半径
#7 进级量
#8 Z向圆弧起点
. N" u+ u% g, l6 U2 [#9 X向圆弧起点
. N" B; {* l; g$ j0 W; ?6 g模块入口参数（即调用此模块需要输入数据）：#1，#2，#3，#7，#8，#9
8 e4 t# W- x: ~5 ]' U
' p# s8 M$ ~, X: U8 O中间变量:#5,#6,#27，#28，#29,#30,#31 ,#32
" h# C2 a- G" w2 t2 Q( W/ \#29=0   
( l- i  G' h( x: T4 H4 [#30=#2-1
#32=#2/2
8 @1 ~3 b% h+ y/ Z/ UWHILE [#29<=#30]  DO1
#29=#29+#1*0.8
. p; \9 V: y  ?IF[ #29>#30] GOTO3
IF[#29>#32] GOTO2
# ^# T* D" N- o#27=#32-#29
6 ?- \' }' o; l6 j7 tN1 #28=SQRT[#3*#3-#27*#27]
+ q  x! y3 P! g. i6 P, d" H6 x#5=#8-#29-#1-1
#6=#9-#28*2
#31=#9+2
4 x' o" W" K  X5 Y" \G0 X#31
' S5 v* m, e- N3 p% J; q: RG0 Z#5
G1 X#6 F#7
G0 X#31
1 O8 i2 G, E4 |0 W  s9 SGOTO3
N2 #27=#29-#32
! _0 ?. e) S, U- V$ M. k& cGOTO1
) @! e2 y- E1 HN3 END1
( O- H& G3 V; P' w1 l4 pM99
2 U$ l4 }* K6 B, _- Z
7 z) E* V1 [! `8 }% y

mcsino

2)R刀加工圆弧采用B型补偿，即采用刀心轨迹编程
#1 X向圆弧起点
#2 Z向圆弧起点
# ~7 }# _; b' f8 ?* i1 F#3 R刀半径
#4 F进级量
2 R  b5 P/ e: G( D8 c) G#5 需要加工的圆弧半径
2 Z( H+ ~1 o/ n! z1 x, K1 T& R) n模块入口参数（即调用此模块需要输入数据）：#1，#2，#3，#4，#5
" D5 H& n  g, Q$ `中间变量：#28，#29,#30,#31 ,#32，#33
# ]1 B" E; O. ~3 b& aO0002
#33=#1+2
#32=#3*2
% M1 Y1 |. r: P. j; _4 L#31=#1-#32
: y' T# T; _$ n* A#30=#2-#32
5 y5 k4 l  l- p. g#29=#5-#3
' ^, w5 c. ~1 h$ @7 D- {#28=0-#29*2
# {: L8 l0 q3 {+ A' {, G# |G0 X#33
" _4 C6 P  D" M: kG0 Z#30
G1 X#31 F#4
G2 W#28 R#29
G1 X#1
G0 X#33
! P- z: R. s9 u$ O. _M99

mcsino

3) 如果R一次切削量过大，可以修改刀具磨损量，进行多次重复切削，修改刀补模块
入口参数：#21，#23
O003
; k5 G% H  f$ ~# }. \/ {* eG65 H23 P#101 Q#4120 R100；
#102=2000+#101；  获取x向刀具磨损量
- l* G% {2 u6 u#103=2100+#101；  获取z向刀具磨损量
#9102=#9102+#21；修改x向刀具磨损量
#9103=#9103+#23；修改z向刀具磨损量
T#4120                    ；更新刀补
M99；
- }( o4 o5 o* u0 ~* L/ |

mcsino

5 ]5 i, f/ d5 c% a( m0 W

mcsino 发表于 2013-8-18 15:04
8 d. o/ h% F$ P0 a0 y+ h9 N3) 如果R一次切削量过大，可以修改刀具磨损量，进行多次重复切削，修改刀补模块
入口参数：#21，#23
O003 ...

; ?% c, x+ D  T" e3 u
% R, j! ?9 B3 P/ T4 y6 h6 C) D  x4)模块调用
+ v% L3 m3 s3 S3 w/ T% X( U/ u# H假设1)需要在外径100，z向为10的地方加工一半径为15的半圆弧，切刀刀宽为3，R刀半径为6，进级量每转0.05mm，则加工程序参考如下
T0*0*      ;换切刀
G0 X120 Z2
G65 P001 A3 B30 C15 D0.05 E10 F100                      ||#1 切刀刀宽       A
                                                                                   ||#2 圆弧弦长       B
- a& e2 E: W" ~% [                                                                                   ||#3 圆弧半径       C
                                                                                   ||#7 进级量           D
                                                                                   ||#8 Z向圆弧起点  E
                                                                                   ||#9 X向圆弧起点  F
1 V6 W  K8 |! u) X' k6 V$ ]G0 X*   Z*    ;退出到换刀安全距离
T0*0*      ;换R刀
" ^0 E" _# [3 O3 N. e3 B: nG0 X120 Z2
G65 P002 A100 B10 C6  I0.05 J15            ||#1 X向圆弧起点              A
                                                                 ||#2 Z向圆弧起点              B
                                                                 ||#3 R刀半径                     C
& c7 O. L& ]6 n* X; P+ m                                                                 ||#4 F进级量                      I
4 x9 n4 S; T9 r- T* u8 a2 |                                                                 ||#5 需要加工的圆弧半径   J


* `# w' f/ O0 Y1 E, O, @, ~$ [
% s7 Z! p5 Y4 ~0 C9 ]0 U" w( E假设2)需要在外径200，z向为70的地方加工一半径为20的半圆弧，切刀刀宽为4，R刀半径为2，进级量为每转0.08mm，则加工程序参考如下
' p- s2 g+ `  P8 u$ e2 JT0*0*      ;换切刀
G0 X220 Z2
G65 P001 A4 B40 C20 D0.08 E70 F200                      ||#1 切刀刀宽       A
% ]  S" A7 y5 |) \4 \                                                                                   ||#2 圆弧弦长       B
) b7 p$ W  h% l1 i3 T. m" V                                                                                   ||#3 圆弧半径       C
                                                                                   ||#7 进级量           D
; s8 [) P) j! }2 f. t                                                                                   ||#8 Z向圆弧起点  E
                                                                                   ||#9 X向圆弧起点  F
  t) [3 s+ `7 }3 \3 oG0 X*   Z*    ;退出到换刀安全距离
% x1 _- G6 Z# e5 f+ d' lT0*0*      ;换R刀
( a7 c4 r, \8 Q; `) TG0 X120 Z2
G65 P002 A200 B70 C2  I0.08 J20           ||#1 X向圆弧起点              A
6 [9 S7 V) ~1 w! d0 K. z9 v5 L                                                                 ||#2 Z向圆弧起点              B
                                                                 ||#3 R刀半径                     C
8 N0 x. B7 Q& o' g                                                                 ||#4 F进级量                      I
  A( \: N& n1 ~; s                                                                 ||#5 需要加工的圆弧半径   J
7 j: Y9 u  D1 [$ k# w5 [) d  `% }# [5 |

, ?' I1 d2 J* Z; Y  p3 `3 U



* c& n( n* m- k8 q" e! A

mjypc009

太累了吧，直接电脑编程省事，而且安全

祭奠那岁月

宏程序的主要用途之一  相同类型 相同工艺 修改几个赋值用同一程序做不同尺寸的工件 方便 高效

mcsino

mjypc009 发表于 2013-8-18 16:59
太累了吧，直接电脑编程省事，而且安全

0 }5 e8 A9 }' g: _直接电脑编应该也没有模块化来得快

onelee

认真学习了