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

羅蓋仙

% D( w6 p9 W. r# t$ b/ d小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
9 C5 T: {0 S' x& g0 n( a$ V0 c
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
) ?) \. E0 P6 }
- U5 z" |/ W9 q  q先說明一下CAM挖槽(平行環切)的計算規則：
: l$ _( q% c: d4 k5 [- X% v取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
9 [, S+ \5 [: T5 f#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
5 O* T& g. N5 `' e5 _- ]甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
3 d- R2 h/ H! w5 j* {. R3 ]* G5 T乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
5 R4 y% ^$ C( p7 Q0 M: z丁.IF余數LT#101. ：先做#102，再用#21加到底
, M' |- W+ E- l6 G1 q1 i: q圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
1 W' P9 }: ^& f! n

登錄/注冊后可看大圖

登錄/注冊后可看大圖

% v" c4 i8 \: k9 F9 s* n) r
%
/ P) R7 S( B. r' ^7 l& P2 F# A9 KO0003(主程序)
G91G28Z0.
! t9 h2 S. ^' b, t  t4 p7 P! D; HT1M6
! ]! S9 ^) W5 w7 W+ L8 H, k) m& TG0G54G90G94G17X0.Y0.
) q0 _) a5 o0 l: dG43H1Z100.S1000M3
$ \2 b# M; _% ?  \5 X/ u% jZ10.
# s& U+ D! y) M: e. r" V: HG65P5X0.Y0.I30.R5.U2.Z-2.F800
9 }2 v4 w0 l" R! {, gG0Z200.
G91G28Z0.Y0.
M0
%

XY工件的中心
I內槽的一半
R刀半徑
U切距
Z深度


%
( M. a! d" K% t. fO0005(副程序)
#100=#4-#18 (內槽-刀半徑)
1 V4 Q# L. E; V& e5 I8 w#101=[#21*.5] (切距的一半)
6 S) Z4 |4 }& Z$ S- k) ~8 T#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
. ]0 @$ k7 A+ z( eZ#26F[#9/3.]
* h  N+ {9 j- S$ U$ x
' e' z, c/ B/ b$ b(甲)IF[#102EQ0.]GOTO1
2 y& ^! A4 v9 n(乙)IF[#102EQ#101]GOTO1
" ^+ ]3 z5 X5 R) r* x9 I+ p6 X(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4

3 j+ T0 i6 E- @6 s: X
N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
1 i6 C* |* P) K6 B9 J) d, o% k. Z) @Y[-#101+#25]
5 b3 v1 ?' t" J5 |/ }- bX[#24+#101]
Y#25
' d8 J5 N2 x3 l5 u: DIF[#102EQ0.]GOTO2
  O' U7 L/ [' `5 C9 X#101=#101+#21
END1
9 i& W4 S* c2 l. Z* GG0Z30.
& a+ b% H. y/ U9 D7 z4 Y1 ]4 n' TM99
5 @+ R+ A6 F7 ^* ~
. E* U; h' g4 I6 I5 B5 tN2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
; Q5 y5 L6 x# v" L: H' Y1 F3 BX[-#27+#24]
Y[-#27+#25]
9 r1 d! G% _" V3 {! LX[#24+#27]
Y#25
27=#27+#21
6 Y3 @4 U9 i/ @( F+ n3 |' [6 CEND2
G0Z30.
M99

7 \3 |* V% _& V" n& A8 k1 IN3G1X[#24+#103]F#9
Y[#25+#103]
) b( F' K1 V, E# E4 U: yX[-#103+#24]
Y[-#103+#25]
! O# K5 i8 U# [$ m/ V4 Q; J- i4 sX[#24+#103]
Y#25
6 T" G* d7 x/ p5 k" T# j; @' v& t
N4WHILE[#102LE#100]DO3
. h4 p6 _1 T9 W" w* H9 I  n) `5 c9 VG1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
Y[-#102+#25]
: _( I6 N/ d1 X9 n( pX[#24+#102]
! t1 Y8 Y$ g' h8 LY#25
$ X9 @% V; S  V- ]7 _) r#102=#102+#21
END3
/ j! y& H- z* t4 P. E8 B$ f, _G0Z30.
M99
! `/ R" c! f" k  y%

" Y# e; h8 K' y* n/ p以上有實際在機臺上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
+ {8 q4 t. O5 i2 `4 s  r, J5 j我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

我記得應該是2004年，我也寫過類似的程序，先去翻翻看能不能找出來。
- j" [0 T" m! O, E/ x/ y$ k; T不過后面也如樓主，重寫了N遍，最后的最新版本給模塊化了，好像是2009年是最新版本，只寫了FANUC和TOSUNC的系統，主要用于模架模框區域加工，可以加二維和三維，加工類型比較多，程序能夠共用相同系統不同版本，具備容錯性能，人性化操作，程序必須配合機床參數方可使用，程序總共大概上W行，由于是商業話的程序，我就不貼出來了，
& [. [- p: g# f' T% B$ [+ O# J, h找個單獨簡化的貼出來看看吧，不過要先找找，不一定能夠找到。

空氣中的小魚

回復 1# 羅蓋仙
8 x/ x# ?. E! J6 I你這個適合銑平面，建議你改善為可以銑模框的，帶R角的
2 M' A( e# T( g1 ]7 L: }' z1 h5 o實現了以上，就增加做框四個面可以帶不同斜度的功能
實現了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
1 c8 |& t5 Y% h  H. ~實現了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
. B2 k2 i  J( [到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

謝謝指點
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
& t1 v: V1 B& Y9 k$ o& ?( IG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
% i4 n' K* C% e  {7 B) {( CG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
: s6 Z0 Z" D4 V+ N( e以上為基本.簡單的設置
3 O& }7 J; L7 R* o
如果最後還有內槽的外形銑削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

佩服樓主，原理看的明白，但自己一直沒有這個耐心。

羅蓋仙

回復 8# cadme

- l! F+ U/ g- n* \3 w9 P) g+ F可能是你工作比較忙碌，還要加班沒多余的時間
% G8 i) I. ]* C3 t+ f3 s/ i7 U我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實看不懂 很少用宏