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

羅蓋仙

小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
& T( w2 B- F8 q7 T, D9 C! S找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

' V+ d8 M6 H7 T3 V) j矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
! p( h% D" M+ v2 _U(#21)為切距.步距
8 j$ S. [( J$ I1 P, |$ H8 u" w#100=#4-#18 (內槽－刀半徑)
; o7 U- P2 X3 @3 s/ P  z0 L#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
% Z+ g/ \, [: B' p) t* m* p2 \6 M#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
6 W# o! C7 E$ Z3 j& U/ I# b丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
0 ]2 s, R* `# R4 q' d, |9 l' O丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

登錄/注冊后可看大圖

# S; ^" u; g  T: X( @) A& f2 a

登錄/注冊后可看大圖

! |" N3 t) j: r) F
3 y0 E/ C4 B- }: k  `; X%
6 c! J5 @4 p1 c6 \O0003(主程序)
G91G28Z0.
T1M6
- @3 H3 X& m1 C# n2 A7 D1 PG0G54G90G94G17X0.Y0.
) T( Y/ K1 v$ u( T" A. _- SG43H1Z100.S1000M3
& e; T6 }( h) ~Z10.
- ]2 I  b) u. a1 c, DG65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
  K' Q, ]; J: v8 }2 H; IG91G28Z0.Y0.
M0
( ^; Z' A7 b' M- {5 ]1 }/ Y%
$ n& N% O( S$ T- d
XY工件的中心
I內槽的一半
R刀半徑
# G+ c5 o; Z2 y& T2 ^U切距
Z深度


5 H" \9 j  }! Q+ C! b4 o%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
+ \1 p& Y1 k& W  O! ?' M0 J#101=[#21*.5] (切距的一半)
# T* m9 S( d6 T( K2 K#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)
! q1 i$ c1 ^7 c  U, w8 K
G90G1X#24Y#25F[#9*5.]
$ S. d+ k; I% ^- q4 g4 sZ[#26+10.]F[#9*3.]
Z#26F[#9/3.]
* f/ Z2 q; [0 i  \' b6 r# s
(甲)IF[#102EQ0.]GOTO1
+ S5 T6 C$ Y5 v; _/ X(乙)IF[#102EQ#101]GOTO1
# _" Y( Y! O+ Q7 P3 ^* ?(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
' X* S2 n7 z* d1 \2 m/ \2 S
  g: }8 C1 I# q# `9 g0 {
& w5 `( s, k, k0 yN1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
# g1 R9 x6 O" Z4 qY[#25+#101]
X[-#101+#24]
Y[-#101+#25]
X[#24+#101]
Y#25
1 @5 n8 l8 D% ?% CIF[#102EQ0.]GOTO2
#101=#101+#21
3 b( i3 |- Y& R/ c9 [END1
G0Z30.
) b/ m( u. O  }8 |M99

N2#27=#21(切距)
WHILE[#27LE#100]DO2
6 q: E' h: n8 f9 E2 TG1X[#24+#27]F#9
3 y5 K8 A) s4 n4 v- o. MY[#25+#27]
X[-#27+#24]
' c) q- T' S$ z/ y& jY[-#27+#25]
X[#24+#27]
Y#25
27=#27+#21
) D4 L# Y4 C5 K& k' t  A' e  aEND2
G0Z30.
M99

5 A; o, u) u6 sN3G1X[#24+#103]F#9
2 g5 {: t& {3 u  P0 s7 v# S, XY[#25+#103]
6 V" O! q/ \, O" s9 IX[-#103+#24]
Y[-#103+#25]
X[#24+#103]
Y#25
( B- Z! B8 |5 P/ p' w) }) O0 J  X! J
7 N) H- l: H! V! `0 R: ^$ V9 ~5 [N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
7 t7 L7 x' i& y" rX[-#102+#24]
Y[-#102+#25]
# n) }- O0 Q. t6 s+ @( H3 uX[#24+#102]
Y#25
#102=#102+#21
4 B: P, H0 A$ n3 [  ^, C# mEND3
G0Z30.
M99
  h, e2 e. K  H/ G+ {8 U%

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

空氣中的小魚

首先，先支持一下

空氣中的小魚

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

空氣中的小魚

回復 1# 羅蓋仙
你這個適合銑平面，建議你改善為可以銑模框的，帶R角的
實現了以上，就增加做框四個面可以帶不同斜度的功能
& _# s. F2 |# i2 z# N實現了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
實現了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

謝謝指點
7 Q/ D( [: t: H, I6 \# q* s我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
7 Y+ m1 s- b7 K: \Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
: D& i7 Y: \" @: O' g0 h如：
* ]/ b7 p# R& y/ H" jG65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
5 N+ F+ l" m  u& K% k8 E7 _. |5 ~- wG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
# D" l. f: I! e1 G% j5 K7 u
) C9 K* Z4 T" X: a( |8 e如果最後還有內槽的外形銑削會更好，所以我這個只是理論
' U4 N  C# m' U  N: T2 Q實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

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

羅蓋仙

回復 8# cadme
% v1 `# f! D/ B  d! y
可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實看不懂 很少用宏