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

羅蓋仙

小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
9 R/ c$ P# A: B, Q0 X5 l
+ M8 j+ w5 p# e矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
- X: u! Z7 U- \( @4 j#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
8 H; N& V& ~- z# w#103=#102-#101(如果余數大于切距的一半，將會使用到他)
, F; D9 U4 A5 ~6 j0 H8 |5 R
以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
+ M: {# C; f% M5 f9 s) `乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
9 ~/ A$ |9 K+ {/ N丁.IF余數LT#101. ：先做#102，再用#21加到底
, Q8 K, ]3 T3 Q& d1 N圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
) f+ |3 e* ?# u: O2 `
* m& G2 E" u1 j/ S6 x
- ?$ l0 U2 u% u
  T' Z1 l9 `8 L; t, \
%
8 [5 `. q' l+ I# tO0003(主程序)
G91G28Z0.
) B* N9 g3 k# I' V4 f1 C3 ]" Q1 B' eT1M6
5 @5 |6 w0 R) Q/ P7 P; o! kG0G54G90G94G17X0.Y0.
5 A" a- G: j+ @- l& EG43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
# n: _& K) D( c2 eG91G28Z0.Y0.
M0
%

) Y" o- C2 w: l. L) z, hXY工件的中心
4 m$ c- O9 d' [4 HI內槽的一半
* P1 E* [' [$ L* K: F/ `R刀半徑
0 \- L' R. A4 I8 D0 pU切距
; q  |) X2 o& m% \Z深度

" H/ f% e& `% }) u
3 p5 y7 m* e( Y( y% P%
' ?: ~/ d- j( U; J3 l) UO0005(副程序)
#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
' _; F3 S5 r: d# Z) x/ s8 O#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
" z+ m# h8 F" {2 V: b# C* s+ J2 nZ[#26+10.]F[#9*3.]
Z#26F[#9/3.]
' b  ?- u! }$ ?
(甲)IF[#102EQ0.]GOTO1
0 u6 [# f2 o6 m6 A. J/ ^5 s(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
3 ?! t- A( j# E( T6 r; g3 p5 L3 |(丁)IF[#102LT#101]GOTO4


N1WHILE[#101LE#100]DO1
- a. v( n/ }. L& n' `G1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
Y[-#101+#25]
2 \& {- K8 O% Y& J; zX[#24+#101]
Y#25
, P# ~4 z+ n! |IF[#102EQ0.]GOTO2
; Y) e* c8 y# i# T1 p#101=#101+#21
: m, v7 O4 L% W5 ~7 AEND1
1 p2 w! `7 d  i+ z: K% X, q7 tG0Z30.
M99

4 g1 X3 Q) I) P0 n0 W5 p+ GN2#27=#21(切距)
WHILE[#27LE#100]DO2
9 b  p) s0 F+ nG1X[#24+#27]F#9
2 S# K4 ]9 z2 E$ f" [: t1 H: CY[#25+#27]
X[-#27+#24]
Y[-#27+#25]
: U* d5 {8 `$ S0 S6 VX[#24+#27]
Y#25
* B$ _7 V; b& j+ h1 l4 S+ r27=#27+#21
* x7 `. p" D. Q! v7 Y- ^1 BEND2
' K" A5 ~7 a% R  L, K5 u0 EG0Z30.
, I# E  T  k$ `) a% ^0 L9 mM99

' ]4 o4 X& u* l2 w& EN3G1X[#24+#103]F#9
  s+ P* I+ S/ W  A. a4 `9 q" RY[#25+#103]
; o0 A0 p6 @8 ~' f+ P. K0 SX[-#103+#24]
Y[-#103+#25]
X[#24+#103]
Y#25

N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
& l* d& [& W) a( oY[-#102+#25]
# I  F' o9 i5 JX[#24+#102]
Y#25
#102=#102+#21
END3
G0Z30.
M99
. l" E* ~$ q4 S) C: k) @%

以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
3 j+ [1 ~7 F. i% L# f实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
) {1 S$ c; F# Z/ [$ P! E实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
4 }. J$ X/ ]* h' E+ _: t# z到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

, L8 _* G, p. }' D# ?謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置

如果最後還有內槽的外形铣削會更好，所以我這個只是理論
) }+ x6 }) s7 g- ^1 Y實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

可能是你工作比較忙碌，還要加班沒多余的時間
) K' i' h; {! @* g: c% ^* f我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏