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

羅蓋仙

小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
4 H* `7 U7 t& L9 s  |  D  n' W
2 [# _% ?9 V# `! \3 p矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

! G9 K$ s4 t5 L先說明一下CAM挖槽(平行環切)的計算規則：
$ {3 z. N; b+ n( g% b取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
# r& A6 R% @/ Z' d! i& C* E+ @#100=#4-#18 (內槽－刀半徑)
3 M" l( [8 {3 H( g' n, O  |% d6 E5 w#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
! a+ s0 f6 L6 y# A: f#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
% k5 \/ @5 W7 {0 j- X9 d甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
8 t$ l3 T' ^; [/ S7 T  A乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
6 v$ p# S# o5 Z! b丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
8 m! s4 \" L' b0 o- x2 y圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
/ Q! k: N" H( W& {) s; u$ `

登錄/注冊后可看大圖

7 T: ~* C6 v$ o/ ?3 ]9 n

登錄/注冊后可看大圖

  G, \! e( L* n5 d( h2 J8 A; t%
& J: b$ W- s8 k7 e1 \  RO0003(主程序)
G91G28Z0.
  p$ R( z/ x1 r9 |8 gT1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
1 b# N( o( {8 ?' @/ ZZ10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
6 r7 w1 G* D  _5 OG0Z200.
* r, P4 E9 y5 U  o- rG91G28Z0.Y0.
  S# s- n) f( G' \5 H3 o" M0 K1 jM0
4 p1 S5 C( k2 `%
0 Q- x/ h- r. ]1 a% S* q8 D
XY工件的中心
1 _; e2 E) T3 W9 CI內槽的一半
3 P" }6 D3 V8 L0 z5 fR刀半徑
# i( x; ~( Q0 ]U切距
/ K; R4 y" y  O6 M( M# `Z深度


- F$ g; m  t5 i: ?: t- `1 y' y%
O0005(副程序)
7 _( u. E  J8 y0 m0 {; I/ ~#100=#4-#18 (內槽-刀半徑)
5 W. {  t5 @9 t: r' S9 u& F8 h#101=[#21*.5] (切距的一半)
, ]5 M  s6 d" ^% d. `#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
1 I$ T0 ^! O8 d! `5 G" `#103=#102-#101 (餘數-切距的1/2)

& F* ?7 A8 K% Z9 `7 S5 |$ YG90G1X#24Y#25F[#9*5.]
: C( w+ h) F0 f8 U" f! PZ[#26+10.]F[#9*3.]
8 T$ C  [' y& t6 m4 g0 ?Z#26F[#9/3.]

/ e5 a) c: I8 R! T  }4 S(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4


N1WHILE[#101LE#100]DO1
7 P. s  C6 D6 i' ~G1X[#24+#101]F#9
2 A: S5 Q! L: b; e( xY[#25+#101]
X[-#101+#24]
Y[-#101+#25]
2 u" a* G0 e7 Z2 U! f5 IX[#24+#101]
Y#25
IF[#102EQ0.]GOTO2
2 i9 {: |1 m: f2 {/ F#101=#101+#21
END1
2 H- {% `5 c* P! D% rG0Z30.
M99
: t* H% U+ x1 v* x4 _' i3 x. {  ?
9 @7 v9 a9 ^( h. G$ NN2#27=#21(切距)
/ ^* S4 p1 d+ p( I: Z; bWHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
& J% p0 T- J1 sX[#24+#27]
$ _4 M& Q5 u  ~0 L  n9 y2 h' B  ?Y#25
% P! o4 ]# G: _3 ~7 F4 Z27=#27+#21
0 `  w& M( A/ y4 ~3 O- wEND2
G0Z30.
1 T2 S$ F! B0 yM99

, ]+ o: }( T1 y' W6 Y1 Z- I' i7 i$ RN3G1X[#24+#103]F#9
$ @0 s" h6 g7 {# t3 j  E* cY[#25+#103]
) p! `; f* M5 MX[-#103+#24]
/ s/ [9 ]$ y; b/ cY[-#103+#25]
X[#24+#103]
1 W7 `: p3 e) e8 S- v; Z& t: a! aY#25

N4WHILE[#102LE#100]DO3
, R& @, p8 E8 ?6 c& eG1X[#24+#102]F#9
Y[#25+#102]
* U0 C% V: ?+ t; Q1 h8 o" YX[-#102+#24]
Y[-#102+#25]
& w6 M3 u4 Y. n9 j$ r2 e& `X[#24+#102]
Y#25
#102=#102+#21
END3
G0Z30.
( B8 ^3 z/ |& h+ b0 \M99
%

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

空氣中的小魚

首先，先支持一下

空氣中的小魚

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

空氣中的小魚

回復 1# 羅蓋仙
你這個適合銑平面，建議你改善為可以銑模框的，帶R角的
) C) x  r" q% J6 N  ^實現了以上，就增加做框四個面可以帶不同斜度的功能
$ V; P, |1 H" Q/ J  R2 A  ?實現了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
實現了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

謝謝指點
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
3 q1 y4 a/ n. I+ J% c9 T如：
2 |, k" ^  D9 jG65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
2 p& O' K" R, P1 Y5 RG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
" K! a' K# Z7 Q9 E5 t0 m  v以上為基本.簡單的設置
5 ^% v6 m* j2 x1 s
# x/ s. A+ v# s% g) p如果最後還有內槽的外形銑削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

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

羅蓋仙

回復 8# cadme
2 q1 R0 R8 Q/ g+ _
% ~! B3 ]  r$ F可能是你工作比較忙碌，還要加班沒多余的時間
! v6 @3 R: n" S% T8 J我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實看不懂 很少用宏