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

羅蓋仙

# _9 c  ^6 W' ]+ V) x" n小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
  b9 [$ e* V* @( X
% N' R+ J+ I5 o' O7 j矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

. C' C3 E. k0 G, c( }先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
+ v( n4 a) O: Z' H& E3 }' QU(#21)為切距.步距
2 S' \* b& u1 R0 x! z#100=#4-#18 (內槽－刀半徑)
) R$ ?5 O  g% V  ?1 N#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
3 q6 e8 N; i8 W0 G. U! a* V
以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
# Z0 G* J% |) s8 \" [% y丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
. ?6 s' b! i& {7 @4 O丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣



' Z' e) Z; Q- D$ P- b: Y4 e
5 i# u+ s0 q! T  z: e3 K  a%
2 Q& ^7 C# g, P; j1 T+ bO0003(主程序)
4 E1 \$ t# U4 a5 _: {1 i. J5 lG91G28Z0.
8 ^  M9 Z1 r% x; r% t0 U$ zT1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
* x; p; W) S3 d8 T% lZ10.
8 Y* A1 J. r3 N0 t2 G& F6 ~, UG65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
+ N$ p0 |+ t+ Z1 X! `% r8 h- LG91G28Z0.Y0.
3 e0 W) e. p2 YM0
* v, ?! R! Y0 j+ U1 k# J%
, l# f2 c1 h$ U) ~
XY工件的中心
/ i* q9 \4 [+ k  NI內槽的一半
R刀半徑
U切距
6 ?0 C1 o( B$ |: zZ深度
. S! X: F1 @$ D: a/ C1 ]# Z4 t4 C

+ I( R5 y* l# ]1 W%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
/ {7 n' o" N" v1 F7 N% s7 w#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
# f; z4 x- U- l7 r" v0 L! _Z#26F[#9/3.]

" y! W$ n0 E) K/ T2 n. Q(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
( l( D. `& A$ i2 J8 {(丁)IF[#102LT#101]GOTO4
+ x* f3 y, H/ R8 p" o
: p7 C/ v% j) `/ G8 t; F' v
/ s! \# s- i1 LN1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
7 _6 q6 j8 w% `3 Z9 g9 _X[-#101+#24]
Y[-#101+#25]
" H. O9 r8 x* B. Z  v0 y# L0 q* sX[#24+#101]
Y#25
7 M' U' I+ a/ j  ~4 _. SIF[#102EQ0.]GOTO2
% f) }8 K) H7 p# B#101=#101+#21
+ T5 g, L9 ]4 W$ C# V3 a+ ?& I- `) MEND1
G0Z30.
+ k0 @0 L# b% `0 c& xM99

N2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
1 o% f& E9 T: aY#25
' Q- E, f  B. t5 c) H27=#27+#21
END2
+ q$ e. H! T9 a. ~7 K. U' n1 t: q' RG0Z30.
M99
$ \, b1 D5 D/ T. X
7 v2 E7 G# h4 _0 AN3G1X[#24+#103]F#9
Y[#25+#103]
# n8 p2 \% d$ j9 y$ s! ^4 YX[-#103+#24]
Y[-#103+#25]
X[#24+#103]
Y#25
+ W& y$ Y7 L' f) t: t
N4WHILE[#102LE#100]DO3
1 `% x$ b0 L# a) F' R) \4 DG1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
0 K; {9 m+ i7 Y" L! q: eY[-#102+#25]
3 @( V1 h: f" M) u# N/ J; JX[#24+#102]
Y#25
#102=#102+#21
7 F/ L/ ?. l1 q4 `END3
: p; f- \2 u7 t) t' }$ D! U$ K; SG0Z30.
& m6 Y2 j8 f6 yM99
4 f" q. ~6 A' M2 o; w! }%
% x8 o5 \" j3 C4 d9 A
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
6 E7 I( e8 k8 G" r' X实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
3 ?8 T- {3 Z7 D$ g到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

3 y3 d7 G% |1 I# w
謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
: Z% X8 E: {3 I) Q6 u如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
  ?3 Q9 M, M/ NG65P5X0.Y0.I30.R5.U2.Z-9.F300
9 ^& W& O  M0 O: u7 AG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
$ i. S2 ^2 \4 l0 R- x
: S1 u% d$ X" c1 u; w% a如果最後還有內槽的外形铣削會更好，所以我這個只是理論
" }0 i* F( [2 A6 v  r# f8 q實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

可能是你工作比較忙碌，還要加班沒多余的時間
$ d1 ^! }: H/ m: n! Y我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏