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

羅蓋仙

/ b/ J1 G* E3 k
! c/ s# Y- `+ N% v( v1 S小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
* i4 v" S0 Z- v; H
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
* `9 i( S$ t, }取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
6 E) S$ o# ?. {% NU(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
( P4 P8 y0 T" z" p$ Y2 N#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
8 f' ^  c6 {2 V. v2 U/ N* I9 A2 c#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
" Q& H5 V1 L/ C$ I#103=#102-#101(如果余數大于切距的一半，將會使用到他)

% @( p. o1 B+ J7 G6 Y; f以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
! y) E% O% W* V- Q9 {7 E乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
, Q% |( v& u# X6 g丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
& M8 b! y6 B$ l# q$ w( v圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣


, O2 ^" X- f9 [' Z7 ?4 o8 K
' [1 e1 i7 G4 f  K
7 e- ^/ g# {) g; w%
- M# k+ {( k% S$ F6 q1 K: ^  rO0003(主程序)
G91G28Z0.
T1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
/ Y. x% E6 c# d2 Q, X# n' P/ aG65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
M0
5 m! u0 u  s, ]7 i5 M& l%
7 X. N# A- P* \) u7 ]3 I8 h; k
, }' B6 h* M% h* |+ UXY工件的中心
1 H- R+ U0 ]6 n/ O3 t7 k/ v$ }I內槽的一半
R刀半徑
. @  E% i9 [! Z, CU切距
Z深度
$ Y- S4 t: e) _
+ T! M- m; |: D( ~3 m2 i
%
! Y* s  Q4 J: x, nO0005(副程序)
#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
- {" T# Y& [! |( q+ T
(甲)IF[#102EQ0.]GOTO1
. z  h4 M) \' A0 ]* P7 d5 `. f(乙)IF[#102EQ#101]GOTO1
2 ^2 s$ w& E4 P+ K6 ]; q3 ](丙)IF[#102GT#101]GOTO3
& W1 \, C& B, S" ]" D(丁)IF[#102LT#101]GOTO4


N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
* Y$ R# N" S/ N+ G8 uY[#25+#101]
: g2 q- N, k$ x# k& w3 `( {X[-#101+#24]
. t% }1 D* u% D3 O" C* j- xY[-#101+#25]
X[#24+#101]
Y#25
, c6 Y1 n7 y' a' A2 a4 iIF[#102EQ0.]GOTO2
#101=#101+#21
END1
G0Z30.
M99
# |5 K& s$ ^' G' G) {
N2#27=#21(切距)
WHILE[#27LE#100]DO2
" m# R8 ]8 p6 w( [- x" h/ RG1X[#24+#27]F#9
' n# f: P/ v8 O$ @Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
Y#25
7 G6 A0 C$ I/ j27=#27+#21
! S' D3 \2 I* b4 g( V0 ~# N+ AEND2
/ L4 Q* V# Q2 w1 b* YG0Z30.
M99

$ D. b' h0 F* W9 l& {3 |N3G1X[#24+#103]F#9
7 I7 f$ w+ b5 I9 z! x( o" \- q' cY[#25+#103]
: e) {$ A# ~* RX[-#103+#24]
Y[-#103+#25]
X[#24+#103]
Y#25
1 `; T2 @  u- F
N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
, ]# A% U% V" j$ TY[#25+#102]
4 m. N: F1 G1 c  b2 T9 oX[-#102+#24]
' B7 E" [1 W( {. s; ]( }Y[-#102+#25]
& x$ ~0 I+ s  u6 nX[#24+#102]
Y#25
#102=#102+#21
END3
G0Z30.
; T# Q+ f7 Z' X# RM99
%

* ]( C* |5 w. }/ b: w, v0 J以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
3 @6 D; @8 u- F5 {* x. @, Q我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
4 R, s4 v% B7 e- r' I8 W, Y% r3 y你这个适合铣平面，建议你改善为可以铣模框的，带R角的
' q& B1 E% j- T3 Y- ~实现了以上，就增加做框四个面可以带不同斜度的功能
% u, f$ p( p# p9 |; S实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
+ A) k; r4 X  ?' }9 Y! m2 o. x到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

, G' Q8 s  R* o/ R; b5 [$ a9 h謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
% J3 ?( H- A3 i+ bZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
- o& Z5 n' A$ f- {2 f$ E如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
" ?. ]2 A; Y4 vG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
: }9 q8 |) l; g& o以上為基本.簡單的設置
  r7 c+ A0 }$ h( v
) c( q' X) u' Z5 B0 }+ p如果最後還有內槽的外形铣削會更好，所以我這個只是理論
# x3 h& O6 j1 h# b( h實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

& e2 c! I4 e6 a4 \可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏