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

羅蓋仙

# M4 m; M- ?. I  O/ F
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
9 |/ ]6 s' K) V  v1 x( m3 C2 ~找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
5 Q; x( z; r& u5 P) K
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

/ i$ I) ~9 v9 u' C- q先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
4 v5 S' X6 B. B, I- h8 sU(#21)為切距.步距
$ \" x: Z2 O4 p- t8 J$ z# W#100=#4-#18 (內槽－刀半徑)
; `& h* B" T/ R( z#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
" Y( k" A* `  Y- k9 ~7 Y#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
. U* A! S  z7 x" z6 |7 q/ u
1 \' a( e7 Q5 n. i+ T1 r0 m以下兵分四路：
, u2 B6 X9 N7 y+ q甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
: I: v4 N; ]6 `$ F丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
& h+ X, r2 w! k, i- u* y圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
7 d; c6 \; b7 W4 B
# V( x9 S7 Z/ C4 w& ?


%
' e3 j# s% r/ FO0003(主程序)
G91G28Z0.
T1M6
3 U& _' u; Z  ^# MG0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
# I, [+ ?/ L) r9 A2 j' S5 iZ10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
$ W$ I+ }2 q& h, zG0Z200.
G91G28Z0.Y0.
8 r& H! q; z: y1 t; F0 eM0
%

XY工件的中心
I內槽的一半
+ a7 Q0 v0 K* t# @/ wR刀半徑
% N7 V& u" P* YU切距
. Z& |+ \8 U3 h4 L  |( C5 R: P9 ]% Y7 YZ深度

; Q3 h: J% ?7 D/ o* v0 a7 d* }
" R6 N" X9 g) W1 v$ D, l%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
% N& C5 E, R! l# C#103=#102-#101 (餘數-切距的1/2)
9 A) Y1 f, `$ K, X, F" _/ c' y) }
G90G1X#24Y#25F[#9*5.]
  e+ f& ^1 ]* q9 ^Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
7 B- H+ V8 L6 z7 s/ G/ o0 l" G(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
8 y, x9 i* q* Q" J' i4 L! M(丁)IF[#102LT#101]GOTO4

# t5 U: s. n0 C. o4 A
- ?. w) N% e, ]6 ]  X+ n. jN1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
- f$ `( q* U: D; y6 y; }" nY[#25+#101]
X[-#101+#24]
Y[-#101+#25]
. c( r/ J- S$ Y) F. E) ?X[#24+#101]
; G5 P% N8 x) A7 s' mY#25
IF[#102EQ0.]GOTO2
7 m! W+ I6 |' O2 p: j  @#101=#101+#21
% Q. J9 D  j, A# j* zEND1
* q3 b, t: }5 |2 k0 @G0Z30.
7 T2 y; _' ^: g/ X  |M99
! W4 W+ ?' Y; p: Q
N2#27=#21(切距)
$ Y& |6 j4 \: x( J' L! gWHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
( Q& p2 Q, u1 N& G- E; bX[#24+#27]
Y#25
3 }9 V! {: ?" U9 u1 n7 g, h27=#27+#21
$ q. Y/ c( g( P# IEND2
G0Z30.
M99

N3G1X[#24+#103]F#9
Y[#25+#103]
+ B. p0 ^8 W! x7 u" V4 D# rX[-#103+#24]
Y[-#103+#25]
' J* p# d. j* }3 EX[#24+#103]
0 ]7 x! b0 `1 }% Q9 fY#25
( g0 H4 o: e! C6 A8 y6 I" U
N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
; y& X9 |+ y7 z1 `6 R% H: zY[#25+#102]
, h7 l) c) K: f1 sX[-#102+#24]
; J7 ]& C7 R" {2 {Y[-#102+#25]
X[#24+#102]
Y#25
#102=#102+#21
4 E) J; M# R2 n/ R. a& q3 vEND3
G0Z30.
M99
$ b/ F  V: ^3 I" c6 v( c: E%
$ m8 G) p; X  d- N0 n6 J0 z
9 ^6 Q+ f% a( W; c- c% h0 @以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
2 Q) R1 k# l; X# E% R: Z我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
0 J) P, l( H/ E5 P5 [% y实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
- h6 O8 s3 f9 K+ ~6 W5 P到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

& F/ Y+ s4 {$ Y& |' ?. l5 ~
4 b0 ?& F: }- {5 b謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
+ ~$ @+ S% @/ L* I+ y如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
0 E" Z' n7 K2 p! rG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置

如果最後還有內槽的外形铣削會更好，所以我這個只是理論
: A9 v/ Y: z2 t( V4 r$ C: n2 v實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

; o6 K) v. j3 C' r( z' [可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏