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

羅蓋仙

1 R# t, b; _1 C
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
7 u# V! `+ m  r$ a3 o找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
1 b9 L" M7 a6 T$ y
& X  g" A  M# k' M矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
3 D1 e3 K8 {; Q% i% s- ]' A( E/ o#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
0 a' d5 O5 [. r; M#103=#102-#101(如果余數大于切距的一半，將會使用到他)

$ [% \+ {; K5 Z4 h0 v" ~以下兵分四路：
3 y2 e) A. h3 T甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
1 N+ i( ^2 Q* P; O: A1 z+ \8 _乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
5 X$ b6 a. ~7 e$ h/ H丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
5 V& K- @+ d/ f0 K7 Y3 }丁.IF余數LT#101. ：先做#102，再用#21加到底
2 K5 v% a- u1 R' @, P! [3 X圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
. O% J6 }/ m8 Y- a
: M+ H& }0 o* F3 p) K9 |
. I% k  N; D0 x
  t$ e& f6 m8 a6 D3 x
%
O0003(主程序)
G91G28Z0.
T1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
1 }! [/ e% H' ^0 xZ10.
: O- C3 B8 V. C  ZG65P5X0.Y0.I30.R5.U2.Z-2.F800
0 W- M7 M- m8 W7 w9 t: Z  rG0Z200.
G91G28Z0.Y0.
2 F0 _, w% |  ~1 L; s  PM0
%
  o, h  v' [; |
9 V6 N6 e, [% S$ h4 m% ], R: G6 _XY工件的中心
, t7 n; p- j& ^I內槽的一半
R刀半徑
U切距
Z深度
* a2 q3 B) X* u0 ~9 V) G
% x/ ~1 G. r: J$ }4 e% l
%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
1 ?: @- {9 q# w7 f9 C6 I#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

6 q2 k/ T1 j% `) J9 \% ]# z" YG90G1X#24Y#25F[#9*5.]
# p, D$ T9 p) ~5 N1 N: hZ[#26+10.]F[#9*3.]
6 N9 H/ c4 T4 MZ#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
% Z7 [' @( K5 ?(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4

4 s/ I5 p6 U0 o: v. r- D/ ]
  L6 b& S- ?4 o6 D2 s- _N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
/ G/ @8 T+ t2 d2 SY[#25+#101]
X[-#101+#24]
  ~4 V( y. |+ eY[-#101+#25]
X[#24+#101]
Y#25
8 M$ d# d, w6 D5 U7 |8 e, lIF[#102EQ0.]GOTO2
  _( C5 J  y$ c3 s7 V#101=#101+#21
END1
- }; ?/ {. S+ KG0Z30.
- c1 ]0 Q2 l3 [+ jM99

7 p, j" B  D" I: N; A+ ON2#27=#21(切距)
, A. k8 o" p. }0 E9 U  yWHILE[#27LE#100]DO2
: \* d. u1 b0 x! x7 ^G1X[#24+#27]F#9
4 F! h; s) G% O7 p. t0 p4 lY[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
Y#25
+ R/ e1 U5 N, v4 i2 X# v27=#27+#21
4 f% ~* \: [- k: @* f1 K1 \3 BEND2
G0Z30.
M99

! f3 c  q1 n1 u4 _) ON3G1X[#24+#103]F#9
Y[#25+#103]
! L. F7 f5 D* ]; L5 l, ?X[-#103+#24]
7 F. x+ o/ c8 |Y[-#103+#25]
3 U( a9 q; A, R) N+ U% TX[#24+#103]
Y#25
; p' W+ A6 m2 t, w: A0 c
N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
7 d. J9 o, q2 _/ k9 L( _# c4 VY[#25+#102]
' T9 `) t& w* zX[-#102+#24]
Y[-#102+#25]
/ N5 j4 p3 M1 j. lX[#24+#102]
Y#25
; F- V) h1 T. H/ p0 I' I#102=#102+#21
3 q- P1 T) u! N  ]% Y: H# I+ GEND3
G0Z30.
4 L" t0 Z  B( }4 V0 R5 a9 AM99
6 m  l4 W7 a- v* R%
2 C( P( Q# o: E. j5 {, v6 x
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
+ _5 c  X& D- I3 K. G8 s1 N你这个适合铣平面，建议你改善为可以铣模框的，带R角的
- B1 \, U0 _; v2 Q实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
/ z5 E7 R) |0 X/ }实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
& L& x) V( }0 v$ M! u我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
4 W3 @$ x: v7 z8 f% S/ ]如：
" S* c9 O& h) l; cG65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
6 h7 p5 A' q" k: V+ f( V' g3 ~! GG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
# t% E& G1 c% x; j- f$ Z2 ~5 h
: B8 X9 ?% {" z/ N# s: z4 b$ M( G6 A如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

# d2 t9 }! ~7 S9 _2 l6 T& c( N可能是你工作比較忙碌，還要加班沒多余的時間
! ], H. \8 T& w! b% x( t我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏