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

羅蓋仙

6 V9 n6 B% P8 |$ J. n0 O. t
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
: s" F" J  w$ E" f7 Y& O& A2 ~找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

  M0 @  s, O' L7 T! A/ {矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
  R# Z2 I3 {0 a  r* }3 V取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
5 \! s# c/ p# u) O1 U9 ]+ N! V& ~U(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
" `5 V  p" Y( r- m- Q7 c#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
( v7 w# f+ l' g( H: u#103=#102-#101(如果余數大于切距的一半，將會使用到他)
$ b; Y+ m; r; N$ p. N* h
- f; {4 A4 }# j2 f7 {以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
; L5 d2 a- k% c" Q乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
  k% B! A  G, \1 W( T7 M
2 q4 x$ L; L1 r# W. n7 r


) j- G* F0 M$ t8 Q%
. ?4 f! N- K( L! h& x) {9 C7 qO0003(主程序)
' s  |. |5 k! A& Z; `# {0 jG91G28Z0.
T1M6
5 D. S0 ^% A8 W% p) S. sG0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
0 K) \9 @3 L5 K& Y9 c0 I; @. D- FZ10.
: j" x; d+ Q/ t; R9 U) r7 GG65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
/ M' D$ q1 w/ ~4 a& D2 xM0
' p7 \" B" h/ v8 n! U# m%
; R, o: Q; K! t7 W% E
XY工件的中心
+ x; }: M$ ~5 \5 h  |- m3 qI內槽的一半
+ C2 }  k7 P) ?( G# X& D) e9 J) i* mR刀半徑
) i" ]- t$ e6 J* ?: |* ^4 n: BU切距
Z深度
, h. r3 ^$ p+ y4 }4 d

%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
" p0 X  s% k: e3 ?4 W2 }3 f#103=#102-#101 (餘數-切距的1/2)
. b/ q  ?3 r3 g3 H- b; q) g& H8 m
G90G1X#24Y#25F[#9*5.]
" ?/ K$ K, b" \, K- \  I; K1 iZ[#26+10.]F[#9*3.]
Z#26F[#9/3.]

" Z  a6 c( f8 e7 e2 @" B. C( X(甲)IF[#102EQ0.]GOTO1
/ E: u3 U$ `* L(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
$ }9 w% }- x, B% e; E! W(丁)IF[#102LT#101]GOTO4
% t% P/ V( b4 v7 E' [) B

$ v4 v" g- V# J3 R. U9 `/ r6 J  _N1WHILE[#101LE#100]DO1
+ z4 ]9 d- a9 gG1X[#24+#101]F#9
Y[#25+#101]
) h1 n. _# B: D4 h# q8 a' MX[-#101+#24]
+ g- W" a* U9 v2 E- x$ \# `) ?Y[-#101+#25]
" w7 J6 g' q3 f  bX[#24+#101]
+ S+ z* l2 s4 Y/ I" A7 W0 P3 e, ^6 w3 VY#25
IF[#102EQ0.]GOTO2
# O7 O2 N5 o) a#101=#101+#21
END1
G0Z30.
7 o: c$ I! B) F0 k8 f2 xM99

3 r0 T1 D6 T5 ON2#27=#21(切距)
2 o  l2 ]1 h2 N& n$ IWHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
8 x# p) ^. u" a% ~X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
$ f9 k8 P/ F  c6 z- q5 W* O) A* UY#25
27=#27+#21
+ d% v3 x' \4 HEND2
G0Z30.
! x! s5 r8 L& E; f4 x8 yM99
' I) L- |/ i7 b5 z
0 i) d7 }& M' YN3G1X[#24+#103]F#9
1 L! x. ~: A1 A( @/ W& t( _% j0 E) ~Y[#25+#103]
X[-#103+#24]
Y[-#103+#25]
X[#24+#103]
Y#25

N4WHILE[#102LE#100]DO3
2 T  I1 s9 c3 @+ K" w, _) q0 ~G1X[#24+#102]F#9
4 [/ t( \2 e  M& ~; K: _Y[#25+#102]
X[-#102+#24]
0 S* G. M3 b$ N! e7 G3 H! q4 @& EY[-#102+#25]
X[#24+#102]
Y#25
0 M! d' c* T5 n% ?. ?! b#102=#102+#21
* P, k0 H( {( I" `  kEND3
G0Z30.
M99
%

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

空气中的小鱼

首先，先支持一下

空气中的小鱼

我记得应该是2004年，我也写过类似的程序，先去翻翻看能不能找出来。
不过后面也如楼主，重写了N遍，最后的最新版本给模块化了，好像是2009年是最新版本，只写了FANUC和TOSUNC的系统，主要用于模架模框区域加工，可以加二维和三维，加工类型比较多，程序能够共用相同系统不同版本，具备容错性能，人性化操作，程序必须配合机床参数方可使用，程序总共大概上W行，由于是商业话的程序，我就不贴出来了，
7 h+ e. F! W8 J& p找个单独简化的贴出来看看吧，不过要先找找，不一定能够找到。

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
0 y: b& Q2 x' b/ S8 ~5 n实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

$ m+ `6 F# m2 T9 V, t4 ~
' v6 ]# ~9 U- S+ A  i: X3 K謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
. `) m# k/ j2 T( u: l! G0 `Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
" ?# `! i5 \% _4 h  Y9 v如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
- u& J6 s& P& ~. VG65P5X0.Y0.I30.R5.U2.Z-6.F300
+ \5 ~  R5 Y, ?, y, T* ZG65P5X0.Y0.I30.R5.U2.Z-9.F300
, y# N+ q( y" I$ B9 i+ ^1 n0 k! b$ ?G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置

如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

佩服楼主，原理看的明白，但自己一直没有这个耐心。

羅蓋仙

回复 8# cadme

# U5 V! f/ J2 l9 R5 @0 q1 V1 l" _. k可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏