仿Mastercam──粗挖方槽(平行环切)

羅蓋仙

! y5 ?7 j, l' J- c) _- q3 }小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
6 A8 a3 G0 J' }' p4 d找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

: Z; F) ?$ e: c- X矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
5 W9 q7 c; S' V, s
4 f8 o; ^! c. ^  ^4 Z; @0 T先說明一下CAM挖槽(平行環切)的計算規則：
4 |/ U/ }6 r2 j* c取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
. A) v3 C9 i; T) \U(#21)為切距.步距
. ?$ `# {! @8 C- y2 z#100=#4-#18 (內槽－刀半徑)
% o# k5 r; ~0 D7 m#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
2 g. I* x/ Y( k& g& u- Y1 e( C#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
0 b7 ]* D9 L3 o4 w9 ]- O#103=#102-#101(如果余數大于切距的一半，將會使用到他)

* }+ p3 |' i6 r, \$ c以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
' A# p6 D5 K0 Y9 i4 a7 j; J乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
$ A7 r( \( k/ i$ Y+ S! z7 h丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣




%
O0003(主程序)
G91G28Z0.
T1M6
8 j: w) x. P( sG0G54G90G94G17X0.Y0.
. _# H; X8 K2 W5 @G43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
) P3 \8 c% _8 Q; ~% m& h3 G& `M0
! ?9 q! }, \( q+ f) S# k# |$ O%

) `( R6 c* |: p  z. m8 U' ~XY工件的中心
I內槽的一半
R刀半徑
: M+ s& |9 I2 t/ V& J( S8 eU切距
Z深度
/ r8 s3 o2 Q1 |9 X! Q4 t  q7 B+ t

%
O0005(副程序)
% ]; U1 U: u8 i: f* j% m#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
2 O0 e! p! S& FZ#26F[#9/3.]
0 a' {% J; h5 k1 K1 M
; m; K2 P; x/ d0 g6 @( e(甲)IF[#102EQ0.]GOTO1
' x, F# ~9 U: V(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
9 c9 J& L( N! z2 {(丁)IF[#102LT#101]GOTO4
* n4 {+ y) X- U1 T

" o- ~5 [7 c. |N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
8 m& p; f/ y) Y$ }% f) cX[-#101+#24]
Y[-#101+#25]
$ [& E, i& d: oX[#24+#101]
, F& P0 q  n/ E( w3 e9 o' AY#25
# n: b9 t/ K& G% j. KIF[#102EQ0.]GOTO2
#101=#101+#21
3 L5 Z3 k6 S- @1 vEND1
G0Z30.
; z% V, R  Y. T+ }) C9 M8 E. RM99
+ k7 A& J8 j. J, k0 e3 W7 }! }6 e
N2#27=#21(切距)
2 q* P0 Y/ W! q- CWHILE[#27LE#100]DO2
. \) s7 z7 |! m* I3 }) F6 gG1X[#24+#27]F#9
Y[#25+#27]
+ V2 |* _$ p4 @8 I# Y- ^X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
' M, J% y. i9 }4 e# _. mY#25
27=#27+#21
1 D. o# {0 ^9 c' \/ x* IEND2
G0Z30.
7 D' O# K$ B; p7 {: fM99
: Y2 [$ X1 p% w0 U* c) x" R
N3G1X[#24+#103]F#9
Y[#25+#103]
) c/ J0 [- ]* y4 p" f5 yX[-#103+#24]
6 W1 O: l5 A: BY[-#103+#25]
% J0 c; j7 ~4 C, l# KX[#24+#103]
Y#25
, p( a* y+ Z& ~
N4WHILE[#102LE#100]DO3
, N: o8 Z+ W* S3 V1 R! pG1X[#24+#102]F#9
( {( w8 S: j, V" t% ?% q. k( wY[#25+#102]
4 f" l4 x- ], e. j8 A: T7 dX[-#102+#24]
$ k. V1 R; d% u- k/ pY[-#102+#25]
( t$ ~6 G+ M$ i5 ]' Z" CX[#24+#102]
Y#25
#102=#102+#21
4 H; I( K7 W% ~* s- Y% f% R& M+ wEND3
G0Z30.
1 I! z) c; C/ [% [9 {9 KM99
" Y% u9 v" z) {% C; E%
  E- s2 Z3 X& s- Q) ]/ w/ S% ^
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

我记得应该是2004年，我也写过类似的程序，先去翻翻看能不能找出来。
不过后面也如楼主，重写了N遍，最后的最新版本给模块化了，好像是2009年是最新版本，只写了FANUC和TOSUNC的系统，主要用于模架模框区域加工，可以加二维和三维，加工类型比较多，程序能够共用相同系统不同版本，具备容错性能，人性化操作，程序必须配合机床参数方可使用，程序总共大概上W行，由于是商业话的程序，我就不贴出来了，
2 n; H3 a$ S# j2 u& N找个单独简化的贴出来看看吧，不过要先找找，不一定能够找到。

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
- m- h/ j' @3 R6 W3 @% q实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

+ w' I9 F' r; j+ K5 B8 \" I) Z
謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
; O8 Q! J9 Z5 ?+ ~Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
! g# S# t4 o, z+ `2 Y如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
) ^! O* B5 F/ T8 x8 D% wG65P5X0.Y0.I30.R5.U2.Z-6.F300
* S' V( z! M  N7 p$ TG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
3 B" i: R1 ?& l: ?6 T
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
% _  \7 x& S/ W$ u( ^& P' H3 g; k實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

佩服楼主，原理看的明白，但自己一直没有这个耐心。

羅蓋仙

回复 8# cadme

- u4 w, S& ]" f$ I4 _可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏