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

羅蓋仙

1 v* o: }; ?; ~+ n0 v: a
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
) f1 h6 f% v9 y  X8 M
5 E+ a$ }$ n$ A" q4 }矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
" J3 p  o! D# A取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
3 h; F( F- p1 W1 a. e/ A& B, jU(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
- ~! `: ?# D7 Z' e#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
, M, S0 s( a* @6 o#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
; \2 B1 g1 O; _6 K: Q乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
, g; q% l& K4 n( b丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
  m- l( Q& g# m3 z7 m0 H9 g圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
9 `. @, e) L  e9 _8 Y1 T0 j

登錄/注冊后可看大圖

: j7 c1 x0 Y) P) Z

登錄/注冊后可看大圖

6 d# n; o! H; q* w% C6 |# O3 w$ `

& O  `% N/ b" w' y1 V%
O0003(主程序)
G91G28Z0.
T1M6
1 Q4 j" w! d3 b! l' @% [/ RG0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
! X5 L$ [, R2 D5 O6 |Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
! R0 K8 y% i% ~$ a7 g& Q' b7 \G0Z200.
. `/ V+ K2 i: ]) P- b8 }; c& y) \- }G91G28Z0.Y0.
, {' [- D" `# c% i0 d2 l# t+ p8 @M0
%

) P+ |  x/ r" X: p2 D. `3 `XY工件的中心
I內槽的一半
R刀半徑
U切距
Z深度
, Y* R, |  s9 R! H6 T0 s/ X
6 I7 W' l# p6 I( ]/ ?
( O9 H' r* X- o& M" w( H%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
- J6 J; h& G4 \' ?; g#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
$ ~$ e5 [7 m( T4 j" N8 Q#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
3 D% G$ l! {8 t& tZ[#26+10.]F[#9*3.]
Z#26F[#9/3.]

6 ]5 n+ X2 j- [4 J: v(甲)IF[#102EQ0.]GOTO1
) r( M* {; ^) Z6 h. T% v/ |) {(乙)IF[#102EQ#101]GOTO1
' F, w; c. k* @, l. R(丙)IF[#102GT#101]GOTO3
! N) r" m& ^4 x8 M5 ~0 Y+ I5 G(丁)IF[#102LT#101]GOTO4


: _- n" z- K: H6 v# o; SN1WHILE[#101LE#100]DO1
  Y$ o5 {! u- d- A, ^- QG1X[#24+#101]F#9
2 B) T( E& _/ A( K5 t: ]4 d* wY[#25+#101]
& V; G3 O. \3 u  o+ w/ c/ ?& L$ \X[-#101+#24]
Y[-#101+#25]
+ y3 S/ f+ s. T: R+ \) P% Y4 o3 JX[#24+#101]
Y#25
IF[#102EQ0.]GOTO2
% z. Y, t- s! w+ Z: g) N" m#101=#101+#21
7 N( ?5 F$ c- }* V# I$ i! YEND1
6 m% l3 `: X. a1 r1 yG0Z30.
M99
# u' S! i0 R4 [" r) @
N2#27=#21(切距)
WHILE[#27LE#100]DO2
+ f2 H- E$ N* g# u1 E' KG1X[#24+#27]F#9
0 P! m5 Q% W: ~* `1 ]6 T- B/ {Y[#25+#27]
6 Z' k! f; f( Y0 G! X% O" O& \X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
7 [7 ^6 X8 J) \2 D7 WY#25
27=#27+#21
+ F, O' P( W9 b6 z: yEND2
G0Z30.
M99
: z7 D6 E: L1 i: Z+ b9 c
6 P; W6 _  D) o3 `: H$ nN3G1X[#24+#103]F#9
' u+ @. ~, r6 n  EY[#25+#103]
X[-#103+#24]
5 T$ e5 E3 d" w$ g1 k, [Y[-#103+#25]
X[#24+#103]
: l/ C0 s; F( ~6 _! G( LY#25
1 L# h- s* b* f; P9 n. f
N4WHILE[#102LE#100]DO3
  b6 V  }' l1 k3 m8 _G1X[#24+#102]F#9
  l! Q( E3 r  w( ^4 S7 e. }/ aY[#25+#102]
) O2 z- Z; }+ R5 g* aX[-#102+#24]
# C4 `9 e3 O# t; Z$ QY[-#102+#25]
X[#24+#102]
Y#25
#102=#102+#21
END3
G0Z30.
M99
: L' ~( Q# p/ c5 [  D%
5 ~& N/ k5 ~7 g
7 r0 S3 ^, [9 P% l6 o  V6 M3 n3 Q以上有實際在機臺上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
" r6 |8 h  A. o- A4 r& S我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

我記得應該是2004年，我也寫過類似的程序，先去翻翻看能不能找出來。
2 K9 }) Q' a9 U+ V. T# J4 z, O- }8 ^不過后面也如樓主，重寫了N遍，最后的最新版本給模塊化了，好像是2009年是最新版本，只寫了FANUC和TOSUNC的系統，主要用于模架?？騾^域加工，可以加二維和三維，加工類型比較多，程序能夠共用相同系統不同版本，具備容錯性能，人性化操作，程序必須配合機床參數方可使用，程序總共大概上W行，由于是商業話的程序，我就不貼出來了，
$ M7 M+ l# B- }" c9 K找個單獨簡化的貼出來看看吧，不過要先找找，不一定能夠找到。

空氣中的小魚

回復 1# 羅蓋仙
! X7 Y2 B6 d" ]8 `0 J  R, L你這個適合銑平面，建議你改善為可以銑?？虻模瑤角的
1 d+ V- d, a! z2 C實現了以上，就增加做框四個面可以帶不同斜度的功能
1 a) K# V5 L) Z& z* e) L實現了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
實現了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

/ U  m0 W1 s8 [% g* u" ?
$ b5 [3 b6 [+ D: x6 }謝謝指點
4 s) T  y8 U8 f( a  X. G我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
0 J6 b# U: o9 h) D% v5 u! i7 V+ F% I5 S如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
; [1 h7 v. V8 Z+ r* ~8 M( t! dG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
8 Y; K$ c6 D+ |0 {  r  i
如果最後還有內槽的外形銑削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

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

羅蓋仙

回復 8# cadme

可能是你工作比較忙碌，還要加班沒多余的時間
" Z$ K# \4 l/ p' \( S我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實看不懂 很少用宏