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

羅蓋仙

; x* g+ T+ \4 s5 E
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
. o1 u) v( l7 n, T8 O0 ?! Q% f% C找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
9 w/ J7 A% }% n8 w* I( ~
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
; N5 J# z9 V8 M0 B& N4 L% `
先說明一下CAM挖槽(平行環切)的計算規則：
3 D" B. |/ k: w- T取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
7 B# Q8 I1 s# \1 c; @2 r' HU(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
- P) l4 g9 I& N#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
, l0 Z3 U  H4 ^( D( l#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
$ L4 e: D# |/ @& u- S丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣


" {6 S" O! N# n9 b5 m

( c! n, \" N9 K3 p. U5 S" t9 L, l' W%
O0003(主程序)
( f* v. z% F" g2 k, ]3 [G91G28Z0.
T1M6
4 f- n: n& \4 k* X4 N% c: U! m! kG0G54G90G94G17X0.Y0.
/ K5 E0 s* J* G. \$ AG43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
M0
/ w4 n# `" A* Q: L9 `%

XY工件的中心
I內槽的一半
$ M3 p3 f/ a! s! Q# @/ fR刀半徑
' q7 l- S+ J. t1 n  o1 PU切距
& [. U7 j9 r, X. KZ深度
: a/ G1 ~5 W6 b+ l- t4 g; [
( ^4 r& Z+ k6 H. {/ a5 S1 K
9 u0 F4 o6 V) L# a+ ^! M) s%
/ C: w/ o  X0 g  ]/ gO0005(副程序)
#100=#4-#18 (內槽-刀半徑)
( I2 X& D, f: ^7 `6 ?#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
8 z: F( s8 C8 p3 ^6 Q: l1 u, n#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
" E# J- {' C$ R( d7 r6 cZ[#26+10.]F[#9*3.]
Z#26F[#9/3.]

* U! O0 g& h! S! V(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
$ H0 J4 ?1 F4 k(丙)IF[#102GT#101]GOTO3
8 d1 a  x) {( `5 O" I$ K  w(丁)IF[#102LT#101]GOTO4


N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
Y[-#101+#25]
8 G3 s& \: K( u! G. kX[#24+#101]
Y#25
IF[#102EQ0.]GOTO2
, {; R6 z% v- \: ]#101=#101+#21
END1
4 N# {: T2 T3 |G0Z30.
- |. ?: y4 _: lM99

N2#27=#21(切距)
7 o  O4 ~+ L0 v* f$ aWHILE[#27LE#100]DO2
! N# ]3 Q, c, z- E* KG1X[#24+#27]F#9
Y[#25+#27]
1 B2 d! O, D: G. _/ ~X[-#27+#24]
8 V+ L7 u/ @2 `Y[-#27+#25]
X[#24+#27]
) Q) g5 X! j' p5 eY#25
; q2 l) @6 g) o27=#27+#21
4 g! w9 H1 u. @( OEND2
G0Z30.
  g; N0 |% F- X3 uM99

N3G1X[#24+#103]F#9
6 L5 ]' {' R; r8 }Y[#25+#103]
X[-#103+#24]
& U. V  _. q& r. iY[-#103+#25]
X[#24+#103]
$ N/ W9 J3 S  Y& b3 QY#25
) d/ x+ C, A' Y& n  w2 r' T- G
N4WHILE[#102LE#100]DO3
9 U$ F3 K8 n* B  O7 I% TG1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
Y[-#102+#25]
X[#24+#102]
+ D% H" K, x- M- ]Y#25
#102=#102+#21
( `2 K6 T& o" u: V; a1 E! HEND3
: V' g  Q8 y0 G: |& n( IG0Z30.
) T! a' c, h' yM99
2 W- B$ c4 B- L# W%

  s- j: W3 D& T以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
5 P. k: s+ B4 \  Y1 B实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
* n# x$ w7 i5 p$ x* a+ L实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
. E& |7 j: r, F; K6 b; ]5 r到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

" e9 a3 `8 A  q# [2 U; S
) p) z# W' n1 L+ P3 P2 ~謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
) `7 @1 Q4 c: }8 hG65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
! Y5 G4 }' l+ k6 gG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
+ f2 C# C4 c$ `7 q, {以上為基本.簡單的設置

如果最後還有內槽的外形铣削會更好，所以我這個只是理論
, ?6 `9 |8 G% T  V4 \實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
' o; b/ N" D3 Y0 ~8 ?1 g
2 R0 Z$ F- {9 n: N0 U7 ~. {可能是你工作比較忙碌，還要加班沒多余的時間
0 j! V; g+ _8 J我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏