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

羅蓋仙

6 p9 E' f3 J7 a3 R
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
% k, a* M$ t/ D找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
: W; ?/ e1 X4 l
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

8 a( l/ e. y; l; ?6 z5 ]* Q6 o% O先說明一下CAM挖槽(平行環切)的計算規則：
" F" {0 f0 B3 O: a取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
5 `9 ?2 d- o0 x- A! Q, F! GU(#21)為切距.步距
$ V# G5 O( ~, B* A) c#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)

) E" e" }$ J( a6 O9 B2 I7 G: o以下兵分四路：
# Z8 Y1 Q, @' p4 I) C2 Z6 U甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
4 y9 k- |( ]2 T/ O3 j乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
1 y1 E5 L1 ^# D2 ?4 A+ Q丁.IF余數LT#101. ：先做#102，再用#21加到底
2 d0 Y: l: P3 h6 X' ~  Q& V' q圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
  K# ~5 V4 v; S6 \
2 A2 @8 b7 {* t& U# z


%
! T4 d$ \, R- p' ~2 f7 _" o; aO0003(主程序)
3 k. I2 m5 ?$ AG91G28Z0.
9 v; d6 K, ~  kT1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
9 x+ |7 Z; ^) C2 m/ y. W* c+ r+ }G0Z200.
$ [* _! D. K4 G' L+ _' qG91G28Z0.Y0.
M0
( q, W, E3 K: `: r& ^9 z0 X. R%
" F" e8 L$ e7 q3 H: U' [" A, O$ `
XY工件的中心
: ]3 G: F7 n, J+ k4 x8 l4 TI內槽的一半
R刀半徑
U切距
Z深度
) {0 I/ S6 ?+ L. z# C
0 |. O5 ?2 r) E* N" t( `
%
O0005(副程序)
7 r- V* k8 ?. N: E5 r- K#100=#4-#18 (內槽-刀半徑)
6 @" G- V0 I/ t- Y3 r7 q% S& f; N#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)
8 D* }# _2 e1 h% b
G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
% c& V! B5 v; e. }! a2 ^" {
(甲)IF[#102EQ0.]GOTO1
5 c$ Z9 s9 \! X(乙)IF[#102EQ#101]GOTO1
  D1 [- m: ^( k% Y3 l/ x8 G(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
8 W; B9 ~- H  b
5 M$ g7 M0 F$ X( e! X
% M1 l6 Z$ z4 E1 h' kN1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
1 q# C" m3 _% H  a/ b3 v2 x1 wY[#25+#101]
X[-#101+#24]
8 I0 c0 u' o0 mY[-#101+#25]
+ ~, b9 Q( a; K0 ]6 R' U# d+ I1 BX[#24+#101]
1 {$ l9 r; |& H. t# N$ s2 ]Y#25
/ {: i# f& R+ V2 \0 zIF[#102EQ0.]GOTO2
) i2 u& u  ^+ L$ X' E: \#101=#101+#21
7 Q/ K1 ~- x# t" z! l9 R1 iEND1
) y3 s! L( v3 Q+ _. BG0Z30.
M99
0 C$ k2 D; c1 O4 @) n; ]1 ~! v
N2#27=#21(切距)
4 _9 ^- I- Y6 w$ c0 B+ T: }+ DWHILE[#27LE#100]DO2
/ u' O% o) K8 _: L, c" C, YG1X[#24+#27]F#9
8 h9 M& A3 q5 |" ?Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
Y#25
) d/ c* W- U4 ]( Y27=#27+#21
6 h4 _' U6 j& O0 t& C! j: b0 {1 C) t$ xEND2
G0Z30.
M99
1 n) K' j( P6 L7 ]
  f# |: i. j+ J: ?N3G1X[#24+#103]F#9
Y[#25+#103]
X[-#103+#24]
; L1 o6 g3 q# h' d+ u7 FY[-#103+#25]
9 _7 r2 V0 ]+ _( P5 z9 Z' `X[#24+#103]
Y#25
4 }$ Q' N! V; n8 T
; Z7 j9 [$ t$ X' wN4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
& D* C) q, k7 Q& ^2 z8 pX[-#102+#24]
Y[-#102+#25]
X[#24+#102]
: R, n; }3 v# v) G& dY#25
#102=#102+#21
END3
G0Z30.
M99
; v6 t* S3 u; r6 j%

3 r# f6 y' P. W8 O3 m; j) S以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
. i2 H: N2 k( Z+ g, i你这个适合铣平面，建议你改善为可以铣模框的，带R角的
0 Y* t! y- i) A6 u实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
2 L( }3 r  C. H* u4 @实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
3 w' h( Z: T8 N5 O我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
) C- _' U+ c, l$ A+ UZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
7 p) Q" k) E0 G4 M; f如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
" t3 l& T0 J! n$ q* b3 \G65P5X0.Y0.I30.R5.U2.Z-9.F300
( o0 [# p0 ~4 O+ tG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置

+ O* _7 j4 n/ D. c) Q# i! O; Q6 p如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
" D& {0 w1 n, Q1 [, u
) m; `! b4 n7 i: M可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏