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

羅蓋仙

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

矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
  h' l4 P1 D( t# f" k) c- o$ C
/ j3 j" Y0 \' v先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
7 V* t  X, O7 K  k+ ?( ~#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
8 O* m/ A6 ]$ L& _( D1 d' a1 O#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
% y9 P3 Z' A+ J/ k3 u- Z1 F9 P8 Q: k甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
! Q4 B4 @3 p6 X1 a# n丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣



, P4 C  _6 @1 S2 w5 j8 {) s
( t+ w) ^6 J* O7 O! G& }%
4 ]: J9 ^) h  i: Z* Z8 Q3 r: RO0003(主程序)
  K$ C8 j7 h6 Z8 @) R  `G91G28Z0.
0 w8 {) D- y2 [T1M6
% y# b+ ?8 A* g; ]G0G54G90G94G17X0.Y0.
, E& N6 c) u: d% {G43H1Z100.S1000M3
+ e% b" G$ i; JZ10.
  a. X: W3 k% h0 U  u6 K( c4 A2 AG65P5X0.Y0.I30.R5.U2.Z-2.F800
$ W& p" L/ ?$ m" ~' x7 J* M; pG0Z200.
0 i1 h" T5 U) k: F& ~G91G28Z0.Y0.
+ {$ ]/ h) i+ ]8 ~( u) Y$ aM0
%
1 i- S8 L. B, q9 c* u
: @- J, V# q, _% NXY工件的中心
I內槽的一半
, l7 E2 M9 B1 K0 CR刀半徑
U切距
5 }* K! T! R' IZ深度


%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
- J% D# j' `8 {' t' h) y2 `5 B6 o#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
& n& C+ Q7 f7 e' b; D8 `#103=#102-#101 (餘數-切距的1/2)

4 y: j0 n: b# Z) t5 {G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
  ^  E& J8 f9 F7 Q2 o' V: t) Q
(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
$ ^( m/ H1 }8 O0 n5 k% I, ?(丁)IF[#102LT#101]GOTO4


N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
: l6 Q3 |- z0 h" J* q" o, jY[#25+#101]
X[-#101+#24]
. ], t, W3 `% t' {8 _: HY[-#101+#25]
. t9 B2 a0 ~4 u3 b( Y2 ~5 CX[#24+#101]
2 L. ]: l+ Q0 }) V$ l  qY#25
IF[#102EQ0.]GOTO2
#101=#101+#21
END1
' k4 {; D, p7 O$ F2 Y% I& D* _; PG0Z30.
M99

N2#27=#21(切距)
% ^7 Y3 {6 ]* d4 t* {WHILE[#27LE#100]DO2
* C, c& L0 c+ [. y  s4 t& EG1X[#24+#27]F#9
Y[#25+#27]
( f* f' X+ ]$ V4 AX[-#27+#24]
& ~. _( H& E# PY[-#27+#25]
X[#24+#27]
Y#25
/ `# b' L1 M# W9 r3 J0 W27=#27+#21
END2
G0Z30.
M99
+ C0 Z' a7 L; q. ~0 B! ], b% c; D
N3G1X[#24+#103]F#9
. k4 u5 U& g. L) l  OY[#25+#103]
X[-#103+#24]
Y[-#103+#25]
- g* i# X  z( F" {; }5 gX[#24+#103]
Y#25
. R3 f2 k( D  Q5 L) S& B$ }
N4WHILE[#102LE#100]DO3
% N3 I" A) s7 R1 h; a" y" c) KG1X[#24+#102]F#9
Y[#25+#102]
6 P" H! E7 W3 g9 b6 |6 a" bX[-#102+#24]
, M# d. J6 ^, W7 XY[-#102+#25]
( H0 g5 v6 O% A/ XX[#24+#102]
Y#25
#102=#102+#21
) \/ [7 V) U2 MEND3
3 `! j, k$ t3 u( Z" }4 ZG0Z30.
7 {7 p/ e. g+ DM99
5 Z. G, S, w9 M4 z%

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

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
3 {. U. c; e1 G6 O' b8 B! P你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
7 N. L# ?, e$ F. E实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
1 n$ I  `: b2 t4 @% G实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

' N1 P0 X2 \) |6 N0 ]
( n* z# b! m' O! l: {4 c' N/ }謝謝指点
$ `9 f3 c4 }$ v  H, _* H: v5 ^( y6 e4 |我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
& n0 m* _  L$ \  _3 ^/ [. X- A$ e. oZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
& N. f3 B5 @% \如：
2 k& Z! ^( S* P: ]5 M8 H7 ^G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
3 M+ I* {3 `+ P9 [. p4 k9 k4 OG65P5X0.Y0.I30.R5.U2.Z-9.F300
' V3 c1 T& I% h8 J8 i2 N- bG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
' u' U- |3 U) p- E. l
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
2 a* o' O" [* _( h  x- V實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
  i. G* Q) o( n6 b1 E3 B3 m# S9 D
3 `/ U& p: v6 k1 R& i可能是你工作比較忙碌，還要加班沒多余的時間
! K9 B' J7 J7 p* S! X# j我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏