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

羅蓋仙

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

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

' @3 _8 j) j: M* h4 _7 |先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
# \6 P- m; j) PU(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
" |1 ^0 e9 C2 f# n/ L& ]#103=#102-#101(如果余數大于切距的一半，將會使用到他)
( ^% B( R6 V9 W% Z, N, x
1 N5 e& Q  w$ b0 b) t1 k以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
( `4 G8 n' G0 E乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
. V" N) F( V, z/ {" A丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
% e% {6 p' c* {. I0 c2 V, Z. j


! n8 ^0 e  Y+ a5 y6 M
6 }9 x; Z5 e7 X- F& O%
/ {( ]$ }1 k7 R- uO0003(主程序)
5 s* u" x, Z# V2 e8 y  H$ x4 r' QG91G28Z0.
4 V$ n. z* T1 s6 [7 [T1M6
G0G54G90G94G17X0.Y0.
" |$ k$ w/ A' I6 _, ZG43H1Z100.S1000M3
Z10.
# F* y) p  M- jG65P5X0.Y0.I30.R5.U2.Z-2.F800
0 G3 }5 M& c3 |G0Z200.
G91G28Z0.Y0.
M0
# V) v" U% U& u2 _% t%
. r& O+ Z1 J& G. Y0 G( J8 \6 ]) F. K
XY工件的中心
$ U, g/ P5 s4 \1 _2 l" v* \I內槽的一半
/ u: _& `8 q9 v. N0 z& p! nR刀半徑
U切距
1 w9 d( N. x- Z. bZ深度

, Q* \% J" Y* s8 u. q* f
1 c9 l/ o$ C' f' T! b4 X%
O0005(副程序)
) K1 f- }2 h! p: U#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)
3 O; `; _; z' Y! `+ J) t
0 I6 g3 }' q: t# B8 _G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]

$ w; @& R/ }4 z4 ~5 S# `( G. u(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
5 l$ r; m8 Y( k. `(丁)IF[#102LT#101]GOTO4
5 t) i6 E0 p! n. ?- L/ G6 ?. {- L

N1WHILE[#101LE#100]DO1
$ U; M7 t- c9 n2 p8 E" G& k2 DG1X[#24+#101]F#9
Y[#25+#101]
3 ?8 ^# E) p" ~3 k: IX[-#101+#24]
* `4 U/ |% P5 z# v& j6 \Y[-#101+#25]
. a. g4 t3 ^7 }( }: a1 ~; Z# oX[#24+#101]
  p( Y5 I) r. RY#25
IF[#102EQ0.]GOTO2
  I. i* q4 b; u$ L, j3 ^# L#101=#101+#21
3 R1 @4 u2 b6 [3 [1 _END1
  u' |  |/ F/ b' w. G2 R* j' [4 V- aG0Z30.
& j" @; L9 X4 G5 BM99

8 N% A# Y* I2 H9 g1 EN2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
! c; Z) l9 @" e! v0 pY[-#27+#25]
X[#24+#27]
Y#25
2 W8 Z. S8 v3 [( _7 q27=#27+#21
* K+ P4 W4 Z! Z5 F# kEND2
G0Z30.
: A; k5 Y" Z# l% HM99

# o8 n( ^! c0 V; J$ UN3G1X[#24+#103]F#9
+ X+ H) ~. E$ {Y[#25+#103]
; m9 W  X1 g1 h6 k  N" bX[-#103+#24]
3 L- l( j" [, z4 T. AY[-#103+#25]
X[#24+#103]
Y#25
( j( N( N9 p5 e3 g/ Y6 w; x- N' X
N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
2 e0 k6 `  G9 d# G0 G/ m1 qY[-#102+#25]
4 O* l/ N' w3 J" `' |0 zX[#24+#102]
Y#25
#102=#102+#21
END3
# ~9 s6 d7 ]6 y6 I9 GG0Z30.
M99
%
* L  b" }) y  K. }( n
# j6 v- h- ~0 z  W以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
* n" I) X  _: D) h) [! b, z我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
3 ]; Z* s0 G* l3 e, |你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
& |! F) Y# x& S+ x5 ~! ]( m实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
& ^4 Y6 X6 l: z# I: d' E+ T实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

" n. A, U% m3 W$ o: k: V
1 g9 ^4 x7 s' t4 U# f0 x謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
8 F% p) C- t0 m/ }Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
" d3 o" Q( ]; ?: A/ qG65P5X0.Y0.I30.R5.U2.Z-6.F300
0 U* r8 q- F* m1 x5 K% ?G65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置

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

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
. {7 _- a0 Q& u' V
可能是你工作比較忙碌，還要加班沒多余的時間
# G5 t& M. V+ ?4 e: ^我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏