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

羅蓋仙

" Z' Y  d3 k. X0 ?+ R$ P/ g小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
% |4 T+ {5 @4 H5 W3 k' q+ \2 r/ }找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
6 z" H1 C5 E+ M/ Q( V1 b# c
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
% @2 @- V: E1 r. a: m. V% {
先說明一下CAM挖槽(平行環切)的計算規則：
2 {1 J! P5 w) X2 ~( ?$ _取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
! b% v, \( Z, |4 ]. Y) D! A8 oU(#21)為切距.步距
  B5 S6 a4 Y  r9 K  @9 t" w3 B  c6 U; G6 w#100=#4-#18 (內槽－刀半徑)
$ k% n  x* [9 A8 C8 g8 t#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
2 J6 L. I! P- W) i4 [6 w#103=#102-#101(如果余數大于切距的一半，將會使用到他)
( c/ _+ w4 M# R+ L8 b
0 J: D$ }3 b8 k' x& Z3 C; }以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
! |" P. Q* @- [3 z# B乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
& Y5 @8 N( W/ u' p9 e8 U! r
: U, @  v" u, _8 [/ U: ?


  N; t( P# s3 d%
O0003(主程序)
9 t$ r% A% c& q3 [1 SG91G28Z0.
T1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
8 e# r8 E$ l' ?) pG0Z200.
G91G28Z0.Y0.
: F6 A; t, o$ C" _( h) o1 lM0
%

1 F/ t% }7 P- b, L& v2 yXY工件的中心
/ g( Q. B: j0 x/ w1 k. N% bI內槽的一半
2 A2 a/ j6 Z* X1 t8 x# l5 JR刀半徑
U切距
Z深度
  }: v- X& w; X! |- ?, U0 A
# H+ x! N+ h5 \% |. C- g9 p
7 \) e6 }: R, j) a5 m; ^! ], H( m%
O0005(副程序)
$ B. d# W% ]) t+ F#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
; D; E+ C9 ?% ^( {#103=#102-#101 (餘數-切距的1/2)
% k. A- ], @% ?* _
G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
2 p- ^3 f8 x% U9 `
(甲)IF[#102EQ0.]GOTO1
# A; E( ~5 Y- ](乙)IF[#102EQ#101]GOTO1
% X& `* S/ k! ^9 w5 N8 ]" S(丙)IF[#102GT#101]GOTO3
4 B' ~0 l1 _: h" Z5 s$ B1 |) S(丁)IF[#102LT#101]GOTO4
+ ^, N8 j9 ]" v2 _7 D0 n, @

N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
9 s& N9 X, F2 d7 OY[#25+#101]
2 G2 P) B" c. j+ s  xX[-#101+#24]
Y[-#101+#25]
X[#24+#101]
; F5 Z1 N; ~3 a/ Y% m+ g! D6 DY#25
IF[#102EQ0.]GOTO2
#101=#101+#21
% ~8 a( |7 h' `! a8 ]  {END1
0 K+ L. d2 }/ z3 EG0Z30.
0 |6 T  D- f6 j8 Z; R8 zM99

0 w% n/ f% N2 ~9 y9 f' p& o; Y+ FN2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
4 r1 P( v* I" oX[-#27+#24]
# M- w1 J. p$ r! a# i- nY[-#27+#25]
X[#24+#27]
9 _8 v3 n) l5 m5 X- l# Z, E' W- nY#25
" Q; B0 O" l/ R27=#27+#21
! n3 O; ~5 s7 b9 |' S# pEND2
; L- }  J3 p3 D* C7 W8 _G0Z30.
  w# I7 Z3 g9 C8 U+ x$ w# `8 Q4 b* u: HM99
4 X5 n- s  M& E/ i: x. f# w0 x
- c& i1 M- x& \: a' qN3G1X[#24+#103]F#9
Y[#25+#103]
X[-#103+#24]
& X- w, e. [' gY[-#103+#25]
* a1 n( V: o) r+ R  D4 t1 e8 tX[#24+#103]
% d0 R; q" \: o+ ^  ?8 i/ uY#25
' {0 ?8 O2 ~% A2 \9 m1 P. }
N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
9 ^5 `# |! S  r4 I7 S) G' H1 uY[#25+#102]
X[-#102+#24]
Y[-#102+#25]
X[#24+#102]
Y#25
( O1 y; e9 V  |  {# n8 c% a9 @' r#102=#102+#21
END3
G0Z30.
$ }/ e$ ]7 X; W. k: xM99
" b  x: K& ?, V# H; L6 D; q%
& v6 Y. K# ?, d& u/ T9 B
9 @$ }7 ]6 ^' \以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
* H8 Y% u4 _: B3 ^$ _: u实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
( l& H! v( U& N" a4 F! R: i到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

. T4 |+ c) V! M* p6 s% l
8 D6 e6 `7 X8 u謝謝指点
" ?# Z% v# t! j9 C我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
; @! T! k" E2 m( }% Y1 L+ k: SG65P5X0.Y0.I30.R5.U2.Z-3.F300
2 C3 C9 E% Y' |3 WG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
5 E3 [& j1 T3 G* O* ^' QG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置

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

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

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

lixuejin

确实看不懂 很少用宏