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

羅蓋仙

1 y# L9 \, W: N5 b% c: Z
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

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

先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
( |# D' S, H$ h, b#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
  G6 A+ P* H  k2 ^% V/ s#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
0 y" C: \+ i6 ^: s$ J  ]0 i甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
# r1 G1 V6 f" m/ I- @丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
8 k# w, X5 z4 a! M' x8 Z, R
: K' ^. T' S$ t( H# ~# L2 q* o
* [$ A" H: I7 q* H9 V

+ n" y0 }* f  H! n%
  A% A! W0 d+ LO0003(主程序)
G91G28Z0.
& q6 v) f8 P* W6 p$ r9 HT1M6
! ?- b, Z/ _& s9 EG0G54G90G94G17X0.Y0.
8 O1 b2 _: X9 b7 a/ a" P% tG43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
7 H  |) P$ e' ?1 _9 i' d6 hG0Z200.
G91G28Z0.Y0.
M0
8 y* e, _2 b& d2 @%
, J/ y$ V! S; p3 L! A- {& G
XY工件的中心
. S% N+ {% T( \+ y% ?' q" p! l; cI內槽的一半
4 P) c; t' M: D! X) m# T! AR刀半徑
5 }7 |2 U7 _3 X( s0 rU切距
Z深度
. N4 `# s1 n9 \9 i

* S% [/ A0 `; k3 I5 ?%
. m  w6 B: o! j% J/ b+ jO0005(副程序)
#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
/ J) [  _# f7 a. [, u  [( E#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

$ f, `3 Q. P+ _( U' M! w; QG90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
7 `' g; F+ w+ ~0 xZ#26F[#9/3.]
+ |! ]% u* g3 W% F
(甲)IF[#102EQ0.]GOTO1
/ D# @% e2 g' U! l/ R(乙)IF[#102EQ#101]GOTO1
/ ]: F% M5 l/ R5 h& H2 P(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4


+ L3 n; [" n0 c0 R/ Y) A7 ]  iN1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
( i# ?: C6 g: a" BX[-#101+#24]
" }6 J3 d+ x7 x7 HY[-#101+#25]
7 I' ?, e( f# q) v$ W! C7 @) l7 VX[#24+#101]
! j& O  ]0 ^. _Y#25
IF[#102EQ0.]GOTO2
8 a/ H4 Z7 Z, }' ]: m" W#101=#101+#21
END1
G0Z30.
. w- v1 C2 L1 H0 k: P% K: XM99

N2#27=#21(切距)
WHILE[#27LE#100]DO2
* `1 V$ S; \- d# }G1X[#24+#27]F#9
5 L. q  f9 t3 l* V, v4 XY[#25+#27]
X[-#27+#24]
3 p5 a* N; G3 C5 R0 h: dY[-#27+#25]
X[#24+#27]
+ N2 h& z2 j9 W1 f0 zY#25
27=#27+#21
: `" G9 d  M% ^0 [END2
G0Z30.
. G* ]3 J! F1 y: }& h  p. S7 ^- GM99

N3G1X[#24+#103]F#9
- K4 K" V1 U  JY[#25+#103]
! A5 J- E) Y, gX[-#103+#24]
Y[-#103+#25]
) e& Z' S4 v# M" `3 R' K$ F8 BX[#24+#103]
7 a  |9 u0 D' L% xY#25
" H  d% b6 y7 H) g" c7 l
: ]& E$ H) R' x2 Z# xN4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
+ W, O3 b5 \* n1 M3 d; MY[#25+#102]
* ~- ~  H$ D$ mX[-#102+#24]
( Y$ p5 p3 j+ x) K4 |" HY[-#102+#25]
X[#24+#102]
% C/ s% j8 ^) Q0 w7 hY#25
#102=#102+#21
/ H4 ^6 l+ j* u  y" {END3
1 p7 F  x4 Y! j$ v0 L" nG0Z30.
M99
%
0 W; L) `& x& I# ?! ~
) S3 m4 s, m& u8 o以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
/ Y- l7 z" L5 M$ c" |. y' _实现了以上，就增加做框四个面可以带不同斜度的功能
9 z/ Y& N2 Q, M+ g. J实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

' G* \$ R: U. ~& a7 y% K6 A
謝謝指点
+ t8 o  y( z" `( ?! Z我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
3 C* Z0 T: W& s5 LZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
! m# @" E+ @7 O+ g) m  I$ ^G65P5X0.Y0.I30.R5.U2.Z-3.F300
, R" {: A% t, W$ }5 c& {G65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
% }7 [- X& k4 E0 N; a" D& K以上為基本.簡單的設置
: i, j( m& L* Y
& D6 `3 \2 J* |; n2 d2 H如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
" f$ O  @! o) Y4 d, E% L7 z+ H
可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏