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

羅蓋仙

. @1 g# S) J+ L- o; Q
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
# b9 N  K+ d# m& o找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
7 C9 c0 E$ V- P  y/ e
) N' F4 N# t) X8 ]) d先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
* c; [& e  X- |5 r& F( h# \  n, LU(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
( _( V1 _; L+ w0 I, Y- f#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
+ R% g" O0 k6 A0 @! V9 G#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
; w& k5 @3 m9 d9 u7 C: B, ]& Q#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
9 c! z, _( V+ [( ^' ], E7 s甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
" a* i5 Z' k" W乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
7 t: o3 z8 }, \8 ~8 Q# F+ e5 g圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
( c; J# A5 G5 [+ C

登錄/注冊后可看大圖

登錄/注冊后可看大圖

0 `" f( f8 A% k  u5 C% ~

%
; i' J- O5 s5 _' X# v7 SO0003(主程序)
G91G28Z0.
# X# J/ u# J* D4 I7 J1 GT1M6
/ B6 b& m! ]* w# Z1 l1 ^4 m5 Q9 SG0G54G90G94G17X0.Y0.
6 g+ [0 A1 i1 Q2 z: W- AG43H1Z100.S1000M3
! O9 p# K. I. l* L- ~. d5 I, YZ10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
& [% l% U7 B: ]M0
%
  x' ?) ?! O/ P/ g6 s, X! m+ \
XY工件的中心
6 K8 d! ~, L: T9 R1 ]! s  cI內槽的一半
- [/ v6 Y% H  x! s  V  Y! q: u6 U' BR刀半徑
/ }* p4 N8 N" KU切距
( o1 ]2 t# f& o- j! FZ深度
+ x, Y, Q. [- Y8 N1 ]) u

' T) a7 Y: v$ S5 p/ T$ ^%
: H7 `+ d% R  [2 VO0005(副程序)
) M9 L6 N% C/ P# E#100=#4-#18 (內槽-刀半徑)
) {2 p) U5 H, o1 {: N- a/ Y7 r6 L" P#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)
0 J9 \3 t% e; T6 D( t! O' h
G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
- A1 ^3 e1 _3 ~: i(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4


N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
Y[-#101+#25]
& ]1 t; w& D) Z9 n% K; S& CX[#24+#101]
4 i- `& l7 Z8 @Y#25
IF[#102EQ0.]GOTO2
#101=#101+#21
; k+ Q. m9 e/ ^0 {& pEND1
G0Z30.
M99
+ H$ S" @3 Y" m- f2 u! [  ^
N2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
2 o4 |& U* A; Y- sY[#25+#27]
" K9 U/ d. j) ]& ~& yX[-#27+#24]
Y[-#27+#25]
X[#24+#27]
Y#25
# R. W& K4 g! ^( c27=#27+#21
END2
' [( p6 E  {: ]- [: fG0Z30.
1 z1 Q0 D0 a; G4 a- MM99
9 x; A4 N: f' M5 m7 h( c
N3G1X[#24+#103]F#9
Y[#25+#103]
X[-#103+#24]
Y[-#103+#25]
X[#24+#103]
3 Q4 D- g$ f( D; E- O" L; Z5 mY#25
- {% J6 ^. F: ~4 y( D
N4WHILE[#102LE#100]DO3
/ V: ?8 y5 h7 S- T: y$ l# y) DG1X[#24+#102]F#9
$ @" z2 n% q' M" e$ wY[#25+#102]
$ f. X1 A( Q: y% z' c; _X[-#102+#24]
& z4 _  U) f  p* lY[-#102+#25]
5 ~( p& W  b7 t; WX[#24+#102]
5 B& i6 _- u4 _1 yY#25
#102=#102+#21
END3
G0Z30.
  E2 N# A# B3 d+ Q* _2 M1 y$ ^. yM99
%

6 `3 V! a7 x+ z' I5 ?" Y" F以上有實際在機臺上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
$ U8 l* e  K: n8 P. _3 H我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

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

空氣中的小魚

回復 1# 羅蓋仙
# f* ~# W) y$ q1 C1 N你這個適合銑平面，建議你改善為可以銑模框的，帶R角的
7 D* \) \2 E' V1 ?) p/ M實現了以上，就增加做框四個面可以帶不同斜度的功能
2 K7 _' q* x2 ?7 ^1 C實現了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
8 _2 A6 Z2 q0 L實現了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
; x" e! M0 k* o; b8 J; z到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

" ^5 R# m+ k5 q( O+ ~9 a
謝謝指點
( k' a& T+ e% M+ y我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
9 I! Z) k' ?& B# p1 ^/ rZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
( l* }6 @& U8 r$ p如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
# ?1 X# B2 G4 G0 \3 l3 |G65P5X0.Y0.I30.R5.U2.Z-9.F300
* D" S5 ]$ v! Z2 n* VG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置

& y7 o4 g8 l! `8 y4 ~如果最後還有內槽的外形銑削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

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

羅蓋仙

回復 8# cadme

" `6 m+ N2 F' a* x) B4 d5 l# y可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實看不懂 很少用宏