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

羅蓋仙

- ~( ?) g# g# r* A/ s
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
3 h( f% |1 @8 |- |找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
( |, h: r2 e8 f, h3 W0 ?0 U1 k: H
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

3 S: q0 L) d5 I6 |" Z先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
7 [; v. w% _4 S$ \9 f6 ]U(#21)為切距.步距
$ k/ A8 H0 G. x) n5 {  ~#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
( }- ?' f* H% ~#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
( C; d! `2 j1 C2 s+ A2 {4 _
$ b4 H. t! G& J0 l" h以下兵分四路：
0 ~0 |1 ^. Z2 t. o甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
- I" z! O( s# |3 {' a% ?丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
) J2 `, Q1 Y/ O% F8 x
( A6 u8 g' }* L% }. e6 s

9 z8 s' t- J9 G5 M7 A; A
%
O0003(主程序)
* ^+ P1 |' L/ g5 M9 z. QG91G28Z0.
4 O- _! j; Q% w1 VT1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
: e+ N- z9 r/ z, O- {G91G28Z0.Y0.
M0
%

XY工件的中心
I內槽的一半
R刀半徑
* f3 n- `6 M' c! @# k5 u" pU切距
3 o' M% h1 U8 D& IZ深度


%
3 p) B6 m7 q! C: `O0005(副程序)
* O: L0 G, E$ D) X# V! y6 s6 ^; K: z#100=#4-#18 (內槽-刀半徑)
1 h: m5 I( n  q+ T#101=[#21*.5] (切距的一半)
" _2 J0 g8 Y0 ?' [#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
0 X3 @/ [4 E3 B; W; g3 b0 G#103=#102-#101 (餘數-切距的1/2)
% o; G) l6 j0 S3 z/ R5 \& q3 z
% S3 g) J3 r9 |G90G1X#24Y#25F[#9*5.]
* x1 U( q; S+ {- d! t0 m5 MZ[#26+10.]F[#9*3.]
4 i% T; c6 P- i4 a4 GZ#26F[#9/3.]
( ]/ u9 t; Q. k' S
" w- `& u/ i6 i7 C(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
' s  Y& c- g( ]3 C5 I9 ^(丙)IF[#102GT#101]GOTO3
* b, z5 C$ _$ v* C  x! C; ](丁)IF[#102LT#101]GOTO4


N1WHILE[#101LE#100]DO1
* [5 W/ K$ C1 J3 f! `  I# T* s, YG1X[#24+#101]F#9
' m$ V3 V4 @! R  U, {6 v/ bY[#25+#101]
X[-#101+#24]
5 F' r0 E' t% i* \% LY[-#101+#25]
X[#24+#101]
Y#25
3 A+ n5 U& w7 R8 E3 H0 OIF[#102EQ0.]GOTO2
0 ^: f; }+ ]& N& Q. D#101=#101+#21
. v# Y" \2 F- f2 _* sEND1
' c, R' }; z& e  N+ bG0Z30.
M99

# {3 `5 o& H6 m% R7 J: jN2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
4 m  O" \' [9 \& ?. w( c- a% `Y[#25+#27]
X[-#27+#24]
% Q7 Z8 J5 q9 F, JY[-#27+#25]
1 M! n. Y9 P( w3 \2 Z' kX[#24+#27]
Y#25
0 D" v, Q+ J3 H5 P" V27=#27+#21
2 i# G! O% m  y4 W' N% g1 P. qEND2
( {6 ]% |* d5 fG0Z30.
( a: m3 D: M% f. D4 QM99

N3G1X[#24+#103]F#9
6 i7 Z1 s  n0 RY[#25+#103]
, Q0 C8 X3 ~1 s7 CX[-#103+#24]
Y[-#103+#25]
* [4 o) z3 G2 wX[#24+#103]
Y#25

5 C2 a. P, d% m" {$ B$ F) f" kN4WHILE[#102LE#100]DO3
6 b: I% X! Y, D$ W) v" {) E1 |G1X[#24+#102]F#9
Y[#25+#102]
5 U+ a% l* D8 t& G; C4 ~8 CX[-#102+#24]
' G' d0 ^) {* v5 NY[-#102+#25]
X[#24+#102]
Y#25
#102=#102+#21
4 O/ f9 N3 h7 W6 D0 d" fEND3
G0Z30.
M99
%
% k* h+ A. c) Q9 Y4 o. ]/ U- S9 `
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
1 H9 }5 A* a) i# H" V$ r1 e你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
# s: `+ @# }: a% f" j8 Q实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
& K- d% H$ O- M% `% T" r如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
: N7 u0 F: J. z1 n0 ]% ZG65P5X0.Y0.I30.R5.U2.Z-6.F300
: k9 k/ K  Q# H1 i  rG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
- {: o/ z: f6 O* Q以上為基本.簡單的設置

如果最後還有內槽的外形铣削會更好，所以我這個只是理論
- X$ f0 I4 G; }& l9 g4 P# H( D$ u; a實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

' D0 X- y. p9 ^6 d  z6 `可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏