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

羅蓋仙

9 V+ x8 ~5 d/ r& _小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

- k! c! x  H' P; X+ \矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
, G3 X0 T( ~2 X$ r  c$ N' K取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
: C$ B* ~3 f/ r# H0 u' k! IU(#21)為切距.步距
& o. a1 D/ `. p$ }7 ]* g#100=#4-#18 (內槽－刀半徑)
9 X- a3 U1 M; `: M$ S1 n#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
- ]. V/ \% V( E( A: w#103=#102-#101(如果余數大于切距的一半，將會使用到他)
# t2 O/ f& a& U
" z. V/ X$ l' q  U以下兵分四路：
6 g/ b* n3 `% e甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
- Q* Z  v! I& O$ ]7 f4 _丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣


3 q$ X1 d" Z' E" [. z, n6 _

, i2 \0 d0 c' z8 w! g4 m& g8 g( |& A%
. K4 s- h! E% B) I3 rO0003(主程序)
5 r, ^4 Q/ {$ j+ W& l% m* WG91G28Z0.
& ^" c. A5 {& j! V8 z9 cT1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
7 Z& p2 `3 B1 X  GG0Z200.
4 d* a: r" B5 b' ~G91G28Z0.Y0.
4 F8 l: s* M  o0 lM0
%

8 w. {  R* C9 Z0 K2 `XY工件的中心
I內槽的一半
7 Z- \" [% h* B2 mR刀半徑
# Y( v, d( P8 l' L) ?- c+ ]U切距
5 `5 d' N& J9 u0 X4 U" z2 TZ深度
$ w2 D; E2 Y- }8 [

%
+ P5 q, Z7 e2 dO0005(副程序)
#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
. I! _: w5 w7 I! Q7 g2 Q. v#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
! f: n* |% [0 K" O6 C: d8 E#103=#102-#101 (餘數-切距的1/2)

- b# Q2 ]5 Z3 P  qG90G1X#24Y#25F[#9*5.]
# }+ M% S8 w6 F9 G' VZ[#26+10.]F[#9*3.]
Z#26F[#9/3.]

  q; w( Z8 u, `" \' q(甲)IF[#102EQ0.]GOTO1
- x9 ]2 u3 H) `' S8 v; ~(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
5 F- f3 i' v; C2 {(丁)IF[#102LT#101]GOTO4
5 E9 |3 T( V& u9 |; X1 |

' R1 n, D  ]) `2 u& CN1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
0 d1 ]. H5 z3 a6 a$ YY[#25+#101]
; b/ \, H" b1 V# T; WX[-#101+#24]
Y[-#101+#25]
+ ?1 n/ ^1 u  ^X[#24+#101]
" G$ z7 g  L! Z" N; hY#25
$ }! a; @8 d7 r# P5 jIF[#102EQ0.]GOTO2
5 i6 C! n6 `$ `. a% c9 R#101=#101+#21
END1
0 o! n/ b4 f5 u( u( AG0Z30.
M99

- y3 x4 L; N0 IN2#27=#21(切距)
' N: M) G& g+ r* v2 kWHILE[#27LE#100]DO2
G1X[#24+#27]F#9
0 u: G4 z3 |: ^0 y) c: uY[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
1 Y& `' h7 x/ u" [$ ~0 T2 d1 QY#25
27=#27+#21
END2
5 b8 ~, j: Q  q  H* UG0Z30.
- F: Z: q. i/ [) \- A1 c4 gM99

& `7 F! K( f. _0 H( y: ]& nN3G1X[#24+#103]F#9
* k( c9 X9 |  L  I  Y) LY[#25+#103]
X[-#103+#24]
Y[-#103+#25]
) Y. z  Q) l  }X[#24+#103]
Y#25

9 }, c: j3 M2 F' ]- ]N4WHILE[#102LE#100]DO3
0 Q, Q- r6 P( [/ WG1X[#24+#102]F#9
Y[#25+#102]
( k4 }5 k& Z1 O5 X0 Y2 K" YX[-#102+#24]
Y[-#102+#25]
X[#24+#102]
3 M5 b8 z9 t0 b3 qY#25
3 }0 S" L( v  C  t+ X: M#102=#102+#21
END3
G0Z30.
M99
* K2 U/ I- ]3 Z" B9 o1 Z%
/ n7 [- c! m6 P# g( N6 r
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
: G/ |' T% t; _, W, i6 _我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
  m* v$ ?; i, E2 ]实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
4 D: H' A1 `& k, p' w* ^到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
4 z1 G: h, l" I" }7 vZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
  e' C" h% F9 y1 ^: \如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
/ f! ~  k: G) Q$ q: h
) t0 ^6 M) z9 B* g1 Y/ M' V0 C9 d如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

: B1 V  m3 h; G! Y可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏