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

羅蓋仙

4 A* z5 A9 V7 W0 ?5 a3 S9 }
' C( V/ O! d4 j( H) r2 ?小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

3 p% q  S( O/ J: p$ O矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
) P9 I$ e5 ]6 Z9 `
% G0 y$ U+ Q0 y先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
3 c+ D' ?8 U. I7 O, C) p1 UU(#21)為切距.步距
# z# q& C0 B6 {' a9 h: I#100=#4-#18 (內槽－刀半徑)
& h; Q2 t  z' B' L8 A" s#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
' m- E# r: }, N
以下兵分四路：
, f: }5 e4 s& I4 f甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
2 L% E& f2 v1 f3 T2 G4 S; V8 L; k丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
5 B( t+ T+ _- x, m6 f5 I7 C丁.IF余數LT#101. ：先做#102，再用#21加到底
& g3 g  x- \0 @  F+ Q4 e5 f1 I4 u圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
4 d+ F3 I$ H5 z8 n) U

# @6 m+ I( M  U0 A3 |+ O) H

%
7 H# T3 ]# X7 ]1 tO0003(主程序)
3 X# k: ?1 G  _, a: Y; Q+ j3 P( XG91G28Z0.
# {# i. `! O: e9 [T1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
( U* t( n) T$ J" U3 p4 DG65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
4 ~. p$ V6 Y5 V' S$ ~8 a$ KG91G28Z0.Y0.
M0
6 r' e8 N! U' z%
/ v. D7 N5 v! N0 w
XY工件的中心
I內槽的一半
0 D9 Q/ h- g: W7 a$ q2 F0 t5 Z. pR刀半徑
7 o% m. K) \+ TU切距
/ z1 p) x3 @' w* P' d5 ^. JZ深度
. P" T; z0 r5 Y: b
+ B9 [7 O: b) h  ~" r0 P) j  i# }/ _
%
# K# Y. J7 c# Z  ^/ l7 q* ~8 WO0005(副程序)
" O8 Q& k9 D) M! s6 P8 y#100=#4-#18 (內槽-刀半徑)
3 N2 ]# k% }6 H#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

0 h9 C' C  S" R4 u8 z. |6 wG90G1X#24Y#25F[#9*5.]
/ w$ w6 Z& k/ S' nZ[#26+10.]F[#9*3.]
9 r% x- ~/ t4 a3 `Z#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
* s/ x: @. R9 [# w* u2 O(丁)IF[#102LT#101]GOTO4


N1WHILE[#101LE#100]DO1
1 E# @& f! F! XG1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
Y[-#101+#25]
X[#24+#101]
  ]9 f' u! W: P2 [7 |8 H! X/ ZY#25
9 Y; n( }6 Z1 m* G# D  T& k: I- HIF[#102EQ0.]GOTO2
8 H6 z3 C/ o% L% h5 n6 Z#101=#101+#21
END1
G0Z30.
8 l3 j& O9 ~/ o0 m5 L2 Q2 iM99
7 H* q) _2 S7 e8 o& o
N2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
4 t0 {/ v; C3 D" u# fX[-#27+#24]
) e9 K0 C+ C. p9 R- _, {Y[-#27+#25]
X[#24+#27]
" G, x" Q2 c9 SY#25
27=#27+#21
' B; ]; Z. p5 ?  gEND2
0 X& J; w3 u% l; C' UG0Z30.
! {+ l$ x( T. M, U' b$ E/ k7 t' hM99

- U4 j: R' d$ d% oN3G1X[#24+#103]F#9
$ |' j2 E; f$ }! {$ sY[#25+#103]
X[-#103+#24]
+ ^2 p, X% ]3 ?8 |  ]Y[-#103+#25]
X[#24+#103]
% N$ u9 u6 v& R4 zY#25

N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
- T9 g- P3 `* v9 MX[-#102+#24]
, L6 |% N0 D: F) H- TY[-#102+#25]
X[#24+#102]
Y#25
! I- c! J% E2 O, M! ]) j) i#102=#102+#21
$ h, G5 t7 q* y3 `END3
9 M: W: N1 Q/ \. L  c' Z! y3 SG0Z30.
. h8 k) f2 w1 b# b0 R" F/ }( M: PM99
2 f2 P4 P  v! {%

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

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
& e/ W. D) q7 H8 N: K6 X; D实现了以上，就增加做框四个面可以带不同斜度的功能
8 K7 Q  S8 g4 t$ T实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

' c4 n0 n0 t( n$ B4 D: z! q謝謝指点
2 O1 B$ u( |0 A( L1 a我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
  L  \, l% }! T% W3 p如：
" S0 Q; a0 z* V# K" c9 d& @, |G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
1 M2 ~& B/ J( G9 \- T. E% M) C以上為基本.簡單的設置

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

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏