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

羅蓋仙

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

矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
( J7 A( C( ~& L7 I
先說明一下CAM挖槽(平行環切)的計算規則：
1 P! h3 I" A% i! G0 L* t取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
0 |0 T- h- A6 s: ?& g. {+ y#100=#4-#18 (內槽－刀半徑)
, i/ c3 t: q9 g5 |; l1 t#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
) x4 B2 `- _/ H' a" D4 t8 i& {7 N#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
8 U3 c' N; O" w$ F- M; \甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
* ^1 q$ l1 k9 }. Y6 j+ X/ Z* r乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
2 L" e4 T- D, `& R0 m8 ~/ M圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

+ y8 G8 u, E9 `4 l4 `9 d  G, D
& h; J2 ?- A# f' z( {, ~
% X2 k7 _, M; ?9 @* T+ e4 z
%
) r% S1 k  u* s4 iO0003(主程序)
( t% P: I. p# A4 x, Y- i7 ]0 S! Y/ nG91G28Z0.
( \6 l: e& h* U0 H1 v2 U  fT1M6
G0G54G90G94G17X0.Y0.
8 P6 L" V. T: FG43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
8 j  B6 \; F- G7 M9 _0 H" P4 OG91G28Z0.Y0.
$ ~$ b0 O4 K; \* C0 W: r5 V% {M0
%
. v6 J  k+ [  [; e5 Z; Q4 z
XY工件的中心
' \5 G  ^& u) v2 b- II內槽的一半
# l2 [0 p: Q9 U4 @" J$ A8 o5 h' A6 L/ dR刀半徑
" q) m2 T. O, I1 ?- [* RU切距
Z深度
2 m9 i% t9 j' w0 I: R
3 E# n' _- y& Q; z
. M7 R9 V& c1 N: q%
O0005(副程序)
3 ~$ b8 Q4 U5 g4 M#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
0 ^9 @4 U  A  d2 u0 \. P: u6 P#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
+ x8 B4 M+ O9 j0 d- YZ#26F[#9/3.]
/ R' L) F* p7 Y: O0 l0 {# I
4 Z. t. \8 _1 l6 R5 @; E(甲)IF[#102EQ0.]GOTO1
  f" f' L8 K5 f% f" v+ B" e3 a(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
4 f0 V/ b: V/ }9 c9 C# q

N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
2 C' R9 [6 s. {) IY[#25+#101]
+ W0 u% ?2 n9 T6 ]. |X[-#101+#24]
Y[-#101+#25]
X[#24+#101]
6 a9 F7 B' I0 w; {Y#25
IF[#102EQ0.]GOTO2
#101=#101+#21
END1
G0Z30.
, M6 H" D, c' {7 YM99

N2#27=#21(切距)
+ s% f+ X( U  `7 f/ S) m2 d* ]WHILE[#27LE#100]DO2
4 Y# M* B2 W& L2 jG1X[#24+#27]F#9
Y[#25+#27]
$ Q; A' k, [% U# b; ]) J$ RX[-#27+#24]
Y[-#27+#25]
7 w- O+ m. w6 V. |X[#24+#27]
" S2 R2 x8 Z8 o( }' M9 y5 jY#25
27=#27+#21
END2
; K( }, I* h" N$ gG0Z30.
M99

N3G1X[#24+#103]F#9
Y[#25+#103]
0 F6 Z! Z; B- D" a: G" h1 mX[-#103+#24]
6 K3 z4 V& i2 _$ r1 ~! DY[-#103+#25]
X[#24+#103]
. ^  M8 x- X8 C' ]+ tY#25

N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
4 O) [" g0 c2 [! m9 o* ?Y[#25+#102]
6 M& L5 T# ?7 T* j! p  _+ WX[-#102+#24]
7 |: d( X7 e7 ]: Y6 o6 u6 a# L2 ?Y[-#102+#25]
8 D. d' g& U6 e) |4 W$ z" F; z9 ]0 w4 OX[#24+#102]
" m% h6 b2 U7 J5 v. sY#25
#102=#102+#21
' o+ ]  B5 k: p0 K) QEND3
' \" J& \1 A0 Q  \$ ?7 ?) ZG0Z30.
M99
" s1 r5 L  A' u+ }+ p) y8 \6 G# c0 X%

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

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
+ ~- m/ b# r5 n/ ^: k你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
$ s: |  t" }: |8 g& Q9 M实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
8 ^( ?2 p7 K5 N& l6 H+ k' T实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
) C5 ^+ V' v, W: j- N到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
/ u+ `' o+ |3 M4 @, oG65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
6 c- h4 ]$ {6 T; P" ~G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
9 G6 i0 i3 W9 Y* B4 D- P7 @
2 Y7 e0 F; Y  C# Y/ G6 `$ x如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

可能是你工作比較忙碌，還要加班沒多余的時間
* L7 o% S" d3 c我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏