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

羅蓋仙

/ d; m, m  D- v8 e) }
+ R6 g  b) v. x* h/ U小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

6 `- b6 m8 P* T& c矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

8 _# M! G5 ]/ c- k: C" K5 B% [先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
" v3 Q7 r( D- e5 K" k1 X; h& K
以下兵分四路：
- f6 o0 \# [9 F5 R5 v8 Z甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
: O% q5 W7 u: I: m. c1 R1 i2 V丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
  D4 f; T2 \- d丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣



5 p; I" \# H" }
# }! E3 |5 G4 h, e%
) S- @$ `& G! w8 ?O0003(主程序)
G91G28Z0.
$ Q7 W6 }  v- Y9 Z  OT1M6
# _$ K9 n# P3 J5 ?) f) U3 g3 wG0G54G90G94G17X0.Y0.
. R% B5 x* t3 ?- l1 KG43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
( v' K- ?- b2 g5 w, \: {/ J, L' EG0Z200.
! h  T* R1 Q6 y' uG91G28Z0.Y0.
M0
%
* N+ _; A+ v4 _: e6 R2 _
9 e" C, b$ z) z, TXY工件的中心
I內槽的一半
R刀半徑
U切距
/ f$ \: @7 s9 P% X3 T, @Z深度

- I5 G0 t& [2 O, E/ O: j& z6 e1 R
# d3 n9 |- b  T& z+ @%
0 M. m  {- l$ b" IO0005(副程序)
#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]

: T/ j& B4 `3 [: p3 h( h8 ?% `(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
5 w6 ?( E2 H; ~3 A/ }  D3 e(丁)IF[#102LT#101]GOTO4


) p% A  l/ @' ^+ n: Q. [% i* \$ ]N1WHILE[#101LE#100]DO1
# @1 c* U. q+ ~8 X* e7 l: FG1X[#24+#101]F#9
Y[#25+#101]
0 \7 n1 o% T1 s) J. XX[-#101+#24]
* p+ N/ U0 l6 q# q; eY[-#101+#25]
X[#24+#101]
Y#25
; N9 T( Z* t$ u3 e+ AIF[#102EQ0.]GOTO2
+ ~/ `" _0 k: _4 a- p#101=#101+#21
" t" |$ z! L$ n" O( JEND1
7 n" O. V: Z& W, MG0Z30.
M99

N2#27=#21(切距)
, M3 V$ Q/ h& q/ m/ l+ [WHILE[#27LE#100]DO2
- q: M+ R' W1 d; ]. kG1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
5 b1 f, P- V1 U! p. `, D# ^- ZY[-#27+#25]
& z1 X$ ]. N! A% R  g" mX[#24+#27]
+ b* @7 j6 L$ n3 d1 XY#25
1 b( g8 U1 Y/ k27=#27+#21
. I9 f1 T; `1 F* F* j( eEND2
G0Z30.
% `8 C1 c9 A5 I& a& H& T, ~4 _4 SM99

N3G1X[#24+#103]F#9
5 F. j1 D; y, v, I; MY[#25+#103]
& o: I6 e$ x5 p$ f% r( XX[-#103+#24]
6 V0 _' k" ]$ H! c% k; SY[-#103+#25]
3 B  A' J6 f+ _" GX[#24+#103]
Y#25
- R% q+ x) Q- c0 N7 w) Z; Y/ Z
N4WHILE[#102LE#100]DO3
, E  R7 ]1 M% aG1X[#24+#102]F#9
Y[#25+#102]
9 j, h0 \1 p4 u2 GX[-#102+#24]
# F- [. V9 v. Q, n: M$ R3 `3 PY[-#102+#25]
" C0 B5 h4 ]% g% _X[#24+#102]
Y#25
2 u9 ~: |( s8 {# W6 Q7 O. \1 X#102=#102+#21
7 f) ]* K4 B) R- P6 P9 E9 Z* x7 {END3
1 p# p' Q2 ?9 f% S( E0 kG0Z30.
M99
%

* C8 }0 v+ X! L7 S7 @: f以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
- C% }/ P! e/ f; u+ @* j我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
$ u( [4 L: c. u7 y& l; j8 h实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
8 t4 r" \( K% D3 V. m6 Y3 S到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

+ t# E: g6 Z% d( G' F( T$ ]! q謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
& i0 H" v) Q5 F- e& HG65P5X0.Y0.I30.R5.U2.Z-3.F300
; e* I  Y, P9 y  kG65P5X0.Y0.I30.R5.U2.Z-6.F300
/ `9 X2 X) l8 P) m) iG65P5X0.Y0.I30.R5.U2.Z-9.F300
9 O- b. ^6 j4 s- x$ Y$ \! N, J8 e" @8 lG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
8 B- K- u- v# k8 ]; z# n以上為基本.簡單的設置

如果最後還有內槽的外形铣削會更好，所以我這個只是理論
: z. H9 e; O% S# i實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
) I% z* G3 V0 W$ X
4 E) X( P' n! x/ q+ o- @) m可能是你工作比較忙碌，還要加班沒多余的時間
+ o% S6 G! j* _, `+ \, b我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏