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

羅蓋仙

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

矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
/ |7 q. Y8 `$ w; s& Z
9 a! c4 n" p  U4 e先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
  ^# D7 z6 O9 ^#100=#4-#18 (內槽－刀半徑)
) X- K& m# h9 u#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
( \7 l& _" g+ p& v8 a
* m: T3 h" l" M0 m1 o2 W以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
7 `+ @/ f& ]0 J, ]$ B乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
+ _' V) d% [% x丁.IF余數LT#101. ：先做#102，再用#21加到底
5 Q$ |. I$ ]9 t. [圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

$ a) H6 J6 V; q3 e


) ^8 c( k  c( S%
- O4 e& p7 H' S, ~O0003(主程序)
G91G28Z0.
T1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
; V7 M" h' g+ e' K, RG65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
6 G* ~( o& [, r- Q( m' ^9 Q" B+ o1 RM0
# l2 r: O# F+ [7 D" G$ v/ D; o%
3 e; @2 P2 R& j
XY工件的中心
I內槽的一半
4 @. N) e' o% H8 r$ g* m, jR刀半徑
U切距
) |$ o. u# H( L' x" E. y1 S; eZ深度


%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
+ P3 k; m5 g  ?5 a4 l#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
2 ~( W" }( Q/ }" [1 T  W#103=#102-#101 (餘數-切距的1/2)
% _& f1 w  m- M+ }. {
0 t  ?7 Q7 [1 p; ^1 L, QG90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
! N" v, G; b4 g; m: c  R0 ~Z#26F[#9/3.]

6 T9 S& p, h5 c5 x(甲)IF[#102EQ0.]GOTO1
, R5 x$ o) ]9 ?# r( G( U(乙)IF[#102EQ#101]GOTO1
* \% [8 D7 d9 k2 `$ ^* p1 l(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
! v8 l4 N" {9 _/ c0 _) z' T0 g/ c
0 T. `1 O* f1 H# P7 X
* |. [5 }8 q! Z: B5 tN1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
Y[-#101+#25]
X[#24+#101]
/ q  ^" `6 b/ Q9 c& Q6 N* w7 ~: uY#25
IF[#102EQ0.]GOTO2
#101=#101+#21
" D/ ]- ~( Q* U7 R9 v* s' uEND1
G0Z30.
$ h1 b9 f2 h1 e/ TM99

N2#27=#21(切距)
; \: l0 N9 s; z8 V1 f' ]WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
" b6 s, {: X7 N- q' HX[-#27+#24]
Y[-#27+#25]
0 T8 K" S- s% I) tX[#24+#27]
( t7 X' y8 o3 f0 ]2 k$ QY#25
27=#27+#21
7 B, L! q! ^8 ^8 F9 iEND2
6 Y* ], g- m9 L6 e  x4 k4 F& `# fG0Z30.
4 F5 O: ~. V+ D% x/ A3 x. |M99
) V! h& V" i4 N  b9 C
N3G1X[#24+#103]F#9
Y[#25+#103]
# f  _6 n$ w* GX[-#103+#24]
9 p) }' B% u+ ZY[-#103+#25]
0 |% \5 P; s8 w. g9 N6 ^% HX[#24+#103]
' t/ y& V( S" U" R! EY#25
: P+ G& Z; R/ n8 I. @2 N
: X% f9 h) E' w. s3 v1 Y9 w% kN4WHILE[#102LE#100]DO3
/ c. l  y' R& R8 `G1X[#24+#102]F#9
) i: m" h4 _7 D# H% jY[#25+#102]
X[-#102+#24]
* B% C: j* @/ A# T& f/ ~& t5 eY[-#102+#25]
" e; B- |# a3 W8 X# f+ l9 Q& ?X[#24+#102]
& R0 l" Z& s! P. S  kY#25
3 |, t, y; d8 `#102=#102+#21
' n+ |- U# c: p" m& L2 {END3
) C: i- e  }4 [& L9 ^# UG0Z30.
" B) [2 S0 M# C$ p( C' i: x. @. yM99
. W9 ~- ^2 K  J! t3 R% j9 j7 h%

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

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
" J9 K+ Y+ V+ `+ @你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
, e1 H7 [/ U  O实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
2 U' R; }' A( [, L/ }实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

5 u% ~7 ]& l! L7 E0 O! d  J謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
. _0 Y1 W$ x2 \Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
, h+ ~  N; f$ A& a* H  _! p如：
+ N5 s+ l: @9 I7 N8 ~G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
  c2 o- S$ Y3 w) @2 H5 |0 c& GG65P5X0.Y0.I30.R5.U2.Z-9.F300
& s6 _- l; b" N% c8 p4 P6 w+ WG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置

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

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

可能是你工作比較忙碌，還要加班沒多余的時間
+ _9 ?, Z0 V# Z- y9 i7 _( ^$ ]5 D我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏