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

羅蓋仙

' o" }/ d+ K+ F
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
5 i* T0 r0 Q9 s5 u找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
0 z# b, h8 m! A/ G/ m, Q! i
1 H% h& z/ r8 o( a, s! q矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

' K# `& t" G0 H  q! w先說明一下CAM挖槽(平行環切)的計算規則：
! u7 k! @6 K; i' X取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
( Z; g( Z) v  l, X7 t#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
* E8 b2 W7 ]2 A9 |#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
8 C" o& h  |# k* a#103=#102-#101(如果余數大于切距的一半，將會使用到他)
* `1 x; F( H: `$ i0 o4 t+ l/ f) I  Z
( C  |& V: n( f  W2 B# X以下兵分四路：
6 _: E0 z# g+ \/ f$ ?) o甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
1 S7 r. J0 }$ n! @乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
  g' a" _% y& b( v圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

登錄/注冊后可看大圖

登錄/注冊后可看大圖

8 e, h# C: r- N" a5 A3 w

%
O0003(主程序)
G91G28Z0.
6 J$ ^; b7 |) }  oT1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
) p5 l$ {! B( V, \G91G28Z0.Y0.
M0
2 m1 P, |! D, J; l9 t/ e%

, d: ~- s/ k! ?2 JXY工件的中心
I內槽的一半
R刀半徑
U切距
2 I7 A5 S0 y2 ^Z深度
" V6 v  I, ?! S- Z
& s% Q" g" g& R+ Z& N* N9 n
%
9 S5 c9 k5 S7 S' n( h: E8 [5 RO0005(副程序)
1 m/ q% W& v. Z- K8 R6 N; z#100=#4-#18 (內槽-刀半徑)
5 A8 H: |9 Y6 m; U  p& S6 A/ `#101=[#21*.5] (切距的一半)
4 X- z" K% G- H' i' B#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)
; O4 L( E! `8 y* s& n
, \- T1 i, t- Z7 iG90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]

2 r/ i$ v6 C! U, A5 n1 X) g6 M(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
8 E$ x  [+ c; D+ F- ^7 v, _(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4

# C8 @% |5 }8 _/ y# H3 |" i1 X
3 ~, Z# W+ c7 DN1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
& H/ L4 F3 s$ qY[#25+#101]
X[-#101+#24]
% |6 T1 Q' w. TY[-#101+#25]
X[#24+#101]
8 |4 e3 M, t( Q7 |( LY#25
IF[#102EQ0.]GOTO2
#101=#101+#21
END1
  @2 Q9 ~  G$ S9 X* L2 w: E1 uG0Z30.
9 e$ }: B7 r, P7 u2 Q. Y9 ~# DM99
* m5 V0 \( d! ~3 R7 Z6 v! h( K& H
N2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
1 ^! v* m4 d8 Q2 l, H# |Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
/ [: A% M- C3 V0 `* H# }4 J& O; dY#25
5 i# k+ b: u- u2 J27=#27+#21
END2
1 e4 \3 S" z  G' @4 y& XG0Z30.
* t' V7 H) B" i1 P. @* rM99
; z6 E) B3 ^' H. R4 z( Z1 [
- K3 u9 ]9 L: d8 N% W6 K/ ^N3G1X[#24+#103]F#9
Y[#25+#103]
X[-#103+#24]
2 H, t7 _7 h4 j" P, dY[-#103+#25]
X[#24+#103]
Y#25

" ~* @/ X, x# ^+ g: H1 ]N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
; E/ a0 r  o- y8 c1 u& }Y[#25+#102]
5 ~$ ?) c- c5 a1 V6 iX[-#102+#24]
Y[-#102+#25]
& |* ?% w& @0 N6 n$ ]X[#24+#102]
Y#25
#102=#102+#21
END3
3 }1 Z0 A1 z+ M- M/ G1 M8 EG0Z30.
4 H& r# e! @7 x" A, Y1 C$ _" K. wM99
9 R/ S9 ^  L1 X! {& @%

以上有實際在機臺上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
. M9 L2 b( `* w我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

我記得應該是2004年，我也寫過類似的程序，先去翻翻看能不能找出來。
) [  ?$ }8 G* K! e8 r) Q不過后面也如樓主，重寫了N遍，最后的最新版本給模塊化了，好像是2009年是最新版本，只寫了FANUC和TOSUNC的系統，主要用于模架模框區域加工，可以加二維和三維，加工類型比較多，程序能夠共用相同系統不同版本，具備容錯性能，人性化操作，程序必須配合機床參數方可使用，程序總共大概上W行，由于是商業話的程序，我就不貼出來了，
找個單獨簡化的貼出來看看吧，不過要先找找，不一定能夠找到。

空氣中的小魚

回復 1# 羅蓋仙
你這個適合銑平面，建議你改善為可以銑模框的，帶R角的
) E1 Y. p+ c0 G1 E. {' v實現了以上，就增加做框四個面可以帶不同斜度的功能
/ |, J5 N2 `) `7 |實現了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
實現了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
; e' f" P- N" E# c! E! C/ Z6 u到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

謝謝指點
- S2 \0 l9 `+ d; y6 l3 I; O我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
' [3 B! w8 W+ C6 N$ lZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
3 g1 Z1 e* X& h2 F" z, M, ^如：
7 @" B7 p7 t* W. t$ y0 W5 n3 `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(有精修的效果)
" v( s2 [& E* ~: w以上為基本.簡單的設置

; p/ N8 ^) ?6 k$ ]& d( L* l2 ]如果最後還有內槽的外形銑削會更好，所以我這個只是理論
/ L4 d2 |: M, A1 q/ }實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

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

羅蓋仙

回復 8# cadme

5 Q4 n) J; Y6 Q0 _6 K9 l: O+ E  ~可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實看不懂 很少用宏