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

羅蓋仙

( D/ S4 x: @1 R+ i/ @6 q/ l
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
5 Q' k2 M; u+ I% O6 E5 l找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

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

先說明一下CAM挖槽(平行環切)的計算規則：
: m7 K& @; }6 l' z1 u; {7 ~取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
- S; ]' E  W& ]6 L0 g
以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
+ |* G1 ~: O7 t5 N& W乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣


" v: [. ]0 W) {% D) e
2 F- \0 o0 f8 U
%
O0003(主程序)
- ~& i. b' r( d/ l/ q6 G, nG91G28Z0.
: v7 {1 e8 {* k; v5 x$ WT1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
5 _; P9 ]8 h6 f6 D! B$ @G91G28Z0.Y0.
M0
%
4 W! A/ i- F& k8 g
XY工件的中心
! y4 r1 N$ Z8 f' X3 C$ pI內槽的一半
R刀半徑
U切距
! P9 I3 {. w9 yZ深度
5 M+ l7 w: B! ~& s0 z% W. j

  b3 w4 [' J$ H, j) t2 T- N%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
: _" f, T8 |" }$ |8 C#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
" Q3 ~6 w; _# {1 a' Y, x) J, r#103=#102-#101 (餘數-切距的1/2)
! m2 z& {$ r; h
/ n# D. p  h( x  dG90G1X#24Y#25F[#9*5.]
. o( s& U: D5 \+ D% I& IZ[#26+10.]F[#9*3.]
Z#26F[#9/3.]
7 v/ C& _( E: s% [3 S+ w5 y- B# |
9 x: v) ?, Q( }2 l& R! Z(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
0 ~) c% X8 L: K- a4 V
5 y  E0 {% |+ w% W/ [
4 W+ m) P$ ?9 L+ Z5 l, U  WN1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
$ C. W; y* Y* e0 x1 w2 e2 J( `Y[#25+#101]
X[-#101+#24]
7 |. }- C( F! ~) R* y! J9 n8 qY[-#101+#25]
, i+ G! r* {0 i5 ~: [X[#24+#101]
/ N1 H( n9 G. l- AY#25
% S" D5 L7 I/ }# KIF[#102EQ0.]GOTO2
& x$ a- c- {  T. U# \- `#101=#101+#21
2 e: B0 @4 }+ |  F9 CEND1
" h1 x. y" a& O; H6 NG0Z30.
M99
3 U# k; m% n2 a
! a/ v; i5 |! N( S$ t5 P* D) ?N2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
2 t2 \$ j* x1 u) O+ W4 bX[#24+#27]
  `/ S+ _* u; M9 O& fY#25
27=#27+#21
END2
1 \4 ~* m  K" B2 Z9 l6 K( U. sG0Z30.
M99

N3G1X[#24+#103]F#9
Y[#25+#103]
X[-#103+#24]
  [- g+ h: x, D5 y! JY[-#103+#25]
. E* x+ j: ^: X% X  [$ g: x9 VX[#24+#103]
, R; ~- N1 _5 [+ t. ?9 [# N6 Z# l$ h! cY#25
! E7 R; ~" H+ s7 B/ w  [6 T3 v
N4WHILE[#102LE#100]DO3
5 }. E" a, k: q  H! LG1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
Y[-#102+#25]
X[#24+#102]
Y#25
+ x( T" j# `. i& `8 W5 N/ ]#102=#102+#21
END3
' y- T4 c3 x# }* R2 y  L: s5 EG0Z30.
M99
%
. q  g6 v" Z/ y4 a$ O8 z. F. S3 p% @
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
& J* D9 Q" }/ T0 |我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
* j4 X+ d. a/ {你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
3 A  a( Y1 C+ _! Y/ p实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
8 w4 s8 O# c. t) o3 b到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

0 S5 `0 c+ C) ^3 w* _& R! M謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
8 i* {1 c0 D: r8 H- d" e如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
# S& @7 n+ y9 _& V9 xG65P5X0.Y0.I30.R5.U2.Z-9.F300
3 w9 L% Q( m& X; tG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
8 j& S8 h! O2 B/ o) H2 r3 A  u以上為基本.簡單的設置
+ ]. M2 R, ]8 t: x6 Z2 a
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
" |6 f) P8 ]8 _! \( p實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
/ M1 p4 C, U/ Q% U
+ }% Q/ I* C  _& X% S7 O- i! f6 Z4 n可能是你工作比較忙碌，還要加班沒多余的時間
. n9 |$ h! G) p5 e  @' X我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏