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

羅蓋仙

) v+ ]2 ]5 P4 z4 L
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
1 K0 ~5 w  H: |) o0 Y: G找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
0 }8 {; N4 O$ j7 `! s0 g
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

# k9 B, \5 H! b1 |/ @, n先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
5 m1 R4 N% p4 S* k8 Y0 ?U(#21)為切距.步距
% E3 f5 r; K8 X/ }: ]; u#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
4 @, l! A2 `' k7 T#103=#102-#101(如果余數大于切距的一半，將會使用到他)

8 S1 u. E8 C7 u7 r以下兵分四路：
! t0 u5 y4 I) f( y% o# t甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
9 j/ h- i* Y' q1 ^6 Y2 ]丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
0 Q7 M' T! ?9 Z, k% B丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
9 I1 f2 ~, ~. Q3 e) U% @

登錄/注冊后可看大圖

9 R6 p/ E) K. E0 T& v

登錄/注冊后可看大圖

' f; B7 ]( ~7 K& _* J. u, |%
& _4 v8 E2 I3 DO0003(主程序)
6 P' L4 p  a# R% [% sG91G28Z0.
T1M6
3 K& m8 L; J) o8 ]9 T  h) IG0G54G90G94G17X0.Y0.
' ~/ d4 F# s: u. F* H, @' f# xG43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
M0
/ }) w* z2 c/ ?7 V7 U: ^%
- F6 w; @/ O8 ?* i0 ^1 n+ U
XY工件的中心
I內槽的一半
  I6 m+ J3 }, N5 A5 vR刀半徑
U切距
. U, X1 c0 L2 Z: {8 pZ深度
1 t- Y2 p  v: Z( X) b' t4 i: C
/ c/ Y: B  _+ L
, @8 ^( m* L+ f9 h%
( x2 |" V0 J- c  AO0005(副程序)
0 |# ~! k7 i3 h6 G1 p3 C#100=#4-#18 (內槽-刀半徑)
) t; v; E5 k7 R; c/ y* S+ M#101=[#21*.5] (切距的一半)
& d7 ]1 c0 F3 L3 T0 Y+ t5 \#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
  S5 f1 J. _9 t* U" BZ#26F[#9/3.]
. {" k$ B+ |# C( l5 V5 z* a7 e, K  g
- Y: H# d5 M- ~/ c9 Z) f(甲)IF[#102EQ0.]GOTO1
) }2 C3 Q. V8 X: B9 t/ K(乙)IF[#102EQ#101]GOTO1
& K2 s4 e' ]5 w(丙)IF[#102GT#101]GOTO3
5 F- u6 K  U( \(丁)IF[#102LT#101]GOTO4


N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
( @8 o  q6 r5 bX[-#101+#24]
Y[-#101+#25]
X[#24+#101]
Y#25
- p2 k& e" o. q! _& c1 AIF[#102EQ0.]GOTO2
1 d' b1 F; @; P7 K$ g. t#101=#101+#21
8 ^# d+ m* K+ `END1
G0Z30.
& K, L5 q; }) h* T, X9 ]M99
6 X5 t$ t9 e8 q) Z1 O- f- P
3 `+ t# z# S) l/ D& nN2#27=#21(切距)
WHILE[#27LE#100]DO2
, ~5 }& c% d  _G1X[#24+#27]F#9
Y[#25+#27]
8 _: ]9 y  A. k& O8 _3 `- m, bX[-#27+#24]
7 a/ g( m' C+ Z8 rY[-#27+#25]
X[#24+#27]
! O0 r  S; |) x& j. L" v7 VY#25
8 ]* K! \0 e# V" _/ s27=#27+#21
; m( y& {$ U* t/ EEND2
# E+ @0 v5 K6 m) iG0Z30.
M99

N3G1X[#24+#103]F#9
Y[#25+#103]
/ z3 k$ W7 h! _4 R# d* DX[-#103+#24]
& j' K# @7 R$ @$ c, X* `& V. fY[-#103+#25]
6 J- G$ {; F% h& m% _' dX[#24+#103]
7 I+ T$ m; y; H; @- ^! |Y#25

$ K. H" t5 \. a4 EN4WHILE[#102LE#100]DO3
* U1 f( n% Y  _G1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
% ?; f$ c; l) O; J2 q! g+ XY[-#102+#25]
X[#24+#102]
" X" r( H' S1 u. Z2 Y$ O9 o( \+ rY#25
#102=#102+#21
END3
/ ^  e" A* f  r7 P: ]/ S+ ~) iG0Z30.
1 {/ t! h! A0 [: F: l( fM99
9 }$ b8 A7 ^% d* I7 [%
+ W0 y% `# A% G9 t
: Q/ W4 {, S" B5 X& v) Y9 h# A以上有實際在機臺上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
. X5 c# D9 ]& y/ D. Z& ]; ]0 s8 t我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

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

空氣中的小魚

回復 1# 羅蓋仙
5 r% g  @" r3 J5 h: e8 ]你這個適合銑平面，建議你改善為可以銑模框的，帶R角的
2 D+ ^, @/ r, _- W實現了以上，就增加做框四個面可以帶不同斜度的功能
3 ~" |2 u  c3 \實現了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
實現了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
  `4 u4 n- C% ]; n+ t到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

謝謝指點
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
2 W  U9 k; R* X如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
/ }0 ]) E' V. u2 RG65P5X0.Y0.I30.R5.U2.Z-6.F300
+ t2 U2 e, K0 d. |! U+ @G65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
  Z0 h' v) j! }0 B0 g$ D/ I以上為基本.簡單的設置

4 @! J: i* h# _如果最後還有內槽的外形銑削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

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

羅蓋仙

回復 8# cadme
7 s, k" Z% {! D6 |
7 X$ k* O% c$ z' ^2 o( V+ R) g可能是你工作比較忙碌，還要加班沒多余的時間
, n: R2 z) ~. G2 G8 W! B6 J我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實看不懂 很少用宏