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

羅蓋仙

! U5 h' F3 l3 n小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
( M7 ]) |! J- F& T9 _8 }取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
% b" T2 ?4 b' RU(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
" N6 H* P2 r+ r3 U#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
# }2 m; q3 i  h; q2 B7 H$ P/ W' s#103=#102-#101(如果余數大于切距的一半，將會使用到他)
8 }4 g8 T+ m! D5 s5 X6 W; ^0 v
以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

  X/ k/ _8 c2 P
6 l! K1 M4 }2 W$ ?

%
O0003(主程序)
; c2 {* A* R( t4 ^) V, n+ fG91G28Z0.
T1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
4 v8 [( E' F  x0 \G0Z200.
0 R% V; N% I6 qG91G28Z0.Y0.
3 V$ u* K1 |0 H, {/ M& `M0
# i, ~) |5 c; m9 U' {: x%
% B8 p& H& H! O% n6 v/ F1 Z* J# r% }
XY工件的中心
) v4 g" z9 v  U0 qI內槽的一半
7 g& y* I0 R% Q( R. R1 @( M( o# UR刀半徑
U切距
Z深度

8 B# ?3 O' Q6 T. p0 `4 v( k* f
%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
6 H% O4 q  K% A# h0 O#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
6 u3 _4 A3 U% o' k# w& D- C5 R. Y& s" l#103=#102-#101 (餘數-切距的1/2)
! N! \7 K* k$ a! p6 S* p$ D
# ~9 r7 t3 \) m/ ^, R- mG90G1X#24Y#25F[#9*5.]
9 H$ |& J" a# WZ[#26+10.]F[#9*3.]
" q9 C, d0 G) ~Z#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
4 ^/ U1 r' e8 V) z& I+ m(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
9 r! s! I$ g# I- v
3 g3 H  k/ b+ ?1 {* B- Q
N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
; H, I# `2 H& w1 F. fX[-#101+#24]
& _5 K/ l  i0 o: tY[-#101+#25]
) D5 u, x. m; ^3 i; J2 p( O# h; ^X[#24+#101]
Y#25
IF[#102EQ0.]GOTO2
#101=#101+#21
END1
G0Z30.
M99
4 V$ S' f: g. H4 [' B, D/ E+ _
" k$ Q) n1 c5 @& X1 e1 b; t, BN2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
. h4 w" r' c! [' l5 OY[#25+#27]
% F/ y# o, |" `5 IX[-#27+#24]
Y[-#27+#25]
/ a, \8 f% L, |( \/ f4 z" IX[#24+#27]
- F7 n. a* P! bY#25
- s# I8 {# W" ?4 K+ ~# L5 W27=#27+#21
, \* \4 G! Y) j% M: F4 REND2
G0Z30.
9 {" \$ g" V( E6 Q' q  [' pM99
0 d% l1 ]3 A9 D! [/ n4 X, e+ d! E
5 M# W; r: x+ }/ R4 C+ IN3G1X[#24+#103]F#9
) J* O1 {  z$ U  X8 K, i. pY[#25+#103]
X[-#103+#24]
: n8 x" e* e+ ~! f6 ^Y[-#103+#25]
X[#24+#103]
8 w5 `; r8 |+ E& C! o+ i  M- sY#25

9 H/ s- f2 o& Q" q- o) uN4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
1 {/ A) F4 [0 [9 QY[-#102+#25]
/ W" u6 D  ?  a' hX[#24+#102]
# l$ Q+ m5 h1 `& \# p8 vY#25
4 R" l) Y: D9 V6 Q#102=#102+#21
; p2 u! R9 }+ {; iEND3
G0Z30.
M99
%

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

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
; Q! w3 U5 s' {8 U7 \0 W" z你这个适合铣平面，建议你改善为可以铣模框的，带R角的
% C* Y. z1 D8 u/ a  I% o- u实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
" R" D0 b# ?9 `% o* z& o到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

" l, c* M0 D6 M9 k. U
4 E- d8 @8 B7 Y9 p  _( p( q謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
2 f6 t$ v& G% TZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
) C( V) r$ y" e' n, i如：
2 Y- }- H- I6 P7 b! fG65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
* u. R1 [) s* ?7 |5 h/ A  F" kG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
9 p+ |: V0 L8 L9 ~+ O3 f  m7 B/ u
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
7 Q) Q% d4 s3 g
1 c6 ?2 s0 U8 R1 D: |可能是你工作比較忙碌，還要加班沒多余的時間
$ M) R4 r+ q& a4 p/ P' b我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏